Code: Select all
Enumeration
#Window
#Gadget
EndEnumeration
Procedure Test()
Debug "Test"
EndProcedure
BindEvent(#PB_Event_Gadget, @Test(), #PB_All, #Gadget)
;BindEvent(#PB_Event_Gadget, @Test(), #Window, #Gadget)
OpenWindow(#Window, 0, 0, 800, 600, "WindowTitle", #PB_Window_MinimizeGadget|#PB_Window_ScreenCentered)
CanvasGadget(#Gadget, 20, 20, 200, 200)
Repeat
Select WaitWindowEvent()
Case #PB_Event_CloseWindow
End
EndSelect
ForEver

