First working callback

2013-08-28 00:04:42 +02:00
parent ef34217a6d
commit cb7f1f0ee3
7 changed files with 191 additions and 17 deletions
--- a/examples/widgetapp/sample_page.e
+++ b/examples/widgetapp/sample_page.e
@@ -23,6 +23,7 @@ feature
 	initialize_controls
 		do
 			button := create {WSF_BUTTON_CONTROL}.make ("sample_button", "I'm a button")
+			button.set_click_event(agent handle_click)
 			control := button
 		end