The current eventsystem is .. confusing?
Pseudocode :
Code: Select all
Procedure OnButtonClick0(*event.ButtonEvent)
Debug "button 0 click"
ProcedureReturn #True
EndProcedure
Procedure OnButtonClick1(*event.ButtonEvent)
Debug "button 1 click"
ProcedureReturn #True
EndProcedure
Procedure OnWindowResize(*event.WindowEvent)
Debug "Resize window"
ProcedureReturn #True
EndProcedure
Procedure OnWindowClose(*event.WindowEvent)
Debug "Close window"
; exit StartAndWaitWindow(0)
ProcedureReturn #True
EndProcedure
Procedure Main()
If OpenWindow(0,0,0,100,100,"")
ButtonGadget(0,0,0,75,23,"Button0")
ButtonGadget(1,0,30,75,23,"Button1")
SetGadgetEventHandler(0,#OnClick ,@OnButtonClick0())
SetGadgetEventHandler(1,#OnClick ,@OnButtonClick1())
SetWindowEventHandler(0,#OnResize,@OnWindowResize())
SetWindowEventHandler(0,#OnClose ,@OnWindowClose())
StartAndWaitWindow(0) ; :D
EndIf
EndProcedure