there is a new bug in PureBasic 6.00 and 6.01:
GetActiveGadget() does not work on MacOS as in former versions.
Please try the following example on MacOS (result: -1) and on Windows (result: a number > 0):
Code: Select all
If OpenWindow(0, 0, 0, 230, 90, "Event-Handling Example...", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
b1=ButtonGadget (#PB_Any, 10, 10, 200, 20, "Klick on me")
b2=CheckBoxGadget(#PB_Any, 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
Event = WaitWindowEvent()
Select Event
Case #PB_Event_Gadget
Select EventGadget()
Case b1 : Debug "Button 1 klicked!" : Debug GetActiveGadget()
Case b2 : Debug " Button 2 klicked!" : Debug GetActiveGadget()
EndSelect
Case #PB_Event_Menu
Select EventMenu()
Case m1 : Debug "Menu-Item 1 klicked!!"
Case m2 : Debug "Menu-Item 2 klicked!"
Case m3 : Debug "Menu-Item 3 klicked!"
EndSelect
EndSelect
Until Event = #PB_Event_CloseWindow
EndIf
Thank you for helping!
// Code Tags added (Kiffi)