Code: Select all
Repeat
Select WaitWindowEvent() ;Wait for an event
Case #PB_Event_CloseWindow ;Close window if "X" is clicked.
run = 1 ;Set run flag To 1
Case #PB_Event_Gadget ;Check for gadget event
Select EventGadget()
Case #mainPanel
tab = GetGadgetState(#mainPanel)
Select tab
Case 0
Debug "tab = 0"
Case 1
Debug "tab = 1"
Case 2
Debug "tab = 2"
Case 3
Debug "tab = 03"
EndSelect
Code: Select all
tab = 2
tab = 2
tab = 2
tab = 3
tab = 3
tab = 3
tab = 1
tab = 1
tab = 1