Re: wxEuphoria events don't work
- Posted by ghaberek (admin) May 21, 2009
- 814 views
Jerry_Story said...
I have something set up wrong. But I don't have a clue what. All the events fail to work and all used to work. Here is a small example.
procedure onClick_btnCheck1(atom this, atom event_type, atom id, atom event) check1() shade_check1() end procedure set_event_handler( btnCheck1, get_id(btnCheck1),wxEVT_COMMAND_BUTTON_CLICKED,routine_id( "onClick_btnCheck1" ))
This used to work. Now it doesn't work. I don't have a clue why.
This works for me...
include wxeud.e without warning object void constant frmMain = create( wxFrame, {0, -1, "Test"} ) constant pnlMain = create( wxPanel, {frmMain} ) constant btnCheck1 = create( wxButton, {pnlMain, -1, "Check", 10, 10, 90, 30} ) procedure btnCheck1_onClick(atom this, atom event_type, atom id, atom event) void = message_box( "Clicked!", "Test", wxICON_INFORMATION ) end procedure set_event_handler( btnCheck1, -1, wxEVT_COMMAND_BUTTON_CLICKED, routine_id("btnCheck1_onClick") ) wxMain( frmMain )
-Greg
