Code: Select all
EnableExplicit
Procedure TabChanged()
Debug GetGadgetState(1)
EndProcedure
If OpenWindow(0, 0, 0, 800, 600, "Bug? demo", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
PanelGadget (1, 10, 10, 780, 580)
AddGadgetItem (1, -1, "First")
AddGadgetItem (1, -1, "Second")
CloseGadgetList()
BindGadgetEvent(1, @TabChanged(), #PB_EventType_Change)
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf
Can anyone confirm?



