Code: Select all
OpenWindow(0, 100, 100, 300, 200, "Test")
TextGadget(0, 10, 10, 200, 30, "Test", #PB_Text_Center | #PB_Text_Border)
ComboBoxGadget(1, 10, 50, 200, 30)
AddGadgetItem(1, -1, "Test")
SetGadgetState(1, 0)
LoadFont(0, "Arial Unicode MS", 21)
SetGadgetFont(0, FontID(0))
SetGadgetFont(1, FontID(0))
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow