I tested with PB 5.72 LTS and 5.73 beta 3 on Windows 10.
The problem only exists here when the compiler option
is checked.[v] Enable modern theme support (for Windows XP and above)
Code: Select all
OpenWindow(0, 100, 100, 150, 150, "Focus test")
ButtonGadget(0, 30, 20, 80, 30, "Button 0")
ButtonGadget(1, 30, 60, 80, 30, "Button 1")
ButtonGadget(2, 30, 100, 80, 30, "Button 2")
SetActiveGadget(0)
Repeat
event = WaitWindowEvent()
Select event
Case #PB_Event_Gadget
Debug "Button #" + GetActiveGadget()
EndSelect
Until event = #PB_Event_CloseWindow
But since it reads in the code
Code: Select all
SetActiveGadget(0)
Is this a bug?