Code: Select all
If OpenWindow(0, 0, 0, 200, 200, "Test", #PB_Window_SystemMenu|#PB_Window_ScreenCentered) <> 0
If CreateGadgetList(WindowID(0)) <> 0
ComboBoxGadget(0, 5, 5, 190, 180)
EndIf
EndIf
For x = 0 To 10: AddGadgetItem(0, -1, Str(x)): Next
SetGadgetState(0, 2)
Debug GetGadgetState(0)
For x = 0 To 10: SetGadgetItemText(0, x, "Changed " + Str(x), 0): Next
Debug GetGadgetState(0)
While WaitWindowEvent() <> #PB_Event_CloseWindow: Wend