I'm running some sample code that I hacked.
Code: Select all
;If OpenWindow(0, 0, 0, 230, 90, "Event handling example...", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
EnableDebugger
OpenWindow(0, 0, 0, 230, 90, "Event handling example...", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
someCondition=0
ButtonGadget (1, 10, 10, 200, 20, "Click me")
CheckBoxGadget(2, 10, 40, 200, 20, "Check me")
If CreateMenu(0, WindowID(0))
MenuTitle("Menu")
MenuItem(1, "Item 1")
MenuItem(2, "Item 2")
MenuItem(3, "Item 3")
EndIf
Repeat
WWE = WaitWindowEvent()
Result$ = Str(WWE)
Select WWE
Case #PB_Event_Gadget
Eg$ = Str(EventGadget())
; Debug "Eg = "+ Eg$
Select EventGadget()
Case 1 : Debug "Button 1 clicked! " + Result$ + " Eg= " + Eg$
; Debug Result$
Case 2 : Debug "Button 2 clicked! " + Result$ + " Eg= " + Eg$
; Debug Result$
EndSelect
Case #PB_Event_Menu
MenuNumber = EventMenu()
Mn$ = Str(EventMenu())
; Debug "Mn = " + Mn$
Select EventMenu()
Case 1 : Debug "Menu item 1 clicked! " + Result$ + " MN= " + Mn$
; Debug Result$
Case 2 : Debug "Menu item 2 clicked! " + Result$ + " MN= " + Mn$
; Debug Result$
Case 3 : Debug "Menu item 3 clicked! " + Result$ + " MN= " + Mn$
; Debug Result$
EndSelect
EndSelect
; someCondition = 0
If someCondition
Break
EndIf
Until WWE = #PB_Event_CloseWindow
; EndIf