12 lines
208 B
Text
12 lines
208 B
Text
OpenWindow (0, 10, 10, 150, 40, "Event Demo")
|
|
ButtonGadget (1, 10, 10, 35, 20, "Quit")
|
|
|
|
Repeat
|
|
|
|
Event = WaitWindowEvent()
|
|
|
|
If Event = #PB_Event_Gadget And EventGadget() = 1
|
|
End
|
|
EndIf
|
|
|
|
ForEver
|