14 lines
289 B
Text
14 lines
289 B
Text
Define MyWin.i, Event.i
|
|
|
|
MyWin = OpenWindow(#PB_Any, 412, 172, 402, 94, "PureBasic")
|
|
|
|
; Event loop
|
|
Repeat
|
|
Event = WaitWindowEvent()
|
|
Select Event
|
|
Case #PB_Event_Gadget
|
|
; Handle any gadget events here
|
|
Case #PB_Event_CloseWindow
|
|
Break
|
|
EndSelect
|
|
ForEver
|