OpenEuphoria

Re: Kicking off combo/list box event in wxEuphoria (linux FC4)

• Posted by Stephen O'Sullivan <stephen_o__sullivan at hotmail.com> Aug 22, 2005
• 454 views

Hi Matt,

sorry for atking so long to reply, was kinda busy. Here's the complete code
required to replicate the problem.

without warning

-- Includes --
include wxEuphoria.e
include wxList.e
include wxText.e

atom MainWindow, win
object void
-- Create a window.
MainWindow =  create( wxFrame, {0,-1,"First Program", 20, 20, 400, 200} )
win = create( wxPanel,{MainWindow})
constant 
CustCombo=create (wxComboBox, {win,-1, "",260,135,125,20})
add_item(CustCombo,"1")
add_item(CustCombo,"2")
add_item(CustCombo,"3")

procedure CustCombo_onclick(atom this, atom event_type, atom id, atom event)
integer a
a=message_box("hello","Selected text is...",wxOK)
end procedure


set_event_handler (CustCombo, get_id (CustCombo),
wxEVT_COMMAND_COMBOBOX_SELECTED, routine_id ("CustCombo_onclick"))
wxMain (MainWindow)

Thanks and Regards,

Stephen.