33 lines
958 B
Plaintext
33 lines
958 B
Plaintext
Global Window_0
|
|
Global Window_0_Text_0
|
|
Global Window_0_Button_1
|
|
Global Clicks, txt$
|
|
|
|
Procedure OpenWindow_Window_0()
|
|
Protected flags=#PB_Window_SystemMenu|#PB_Window_SizeGadget|#PB_Window_TitleBar|#PB_Window_WindowCentered
|
|
Window_0 = OpenWindow(#PB_Any, 408, 104, 280, 45, "Simple windowed application", flags)
|
|
If Window_0
|
|
SmartWindowRefresh(Window_0, #True)
|
|
Window_0_Text_0 = TextGadget(#PB_Any, 5, 5, 165, 20, "There have been no clicks yet")
|
|
Window_0_Button_1 = ButtonGadget(#PB_Any, 190, 10, 85, 30, "Click me")
|
|
EndIf
|
|
EndProcedure
|
|
|
|
OpenWindow_Window_0()
|
|
|
|
Repeat
|
|
Select WaitWindowEvent()
|
|
Case #PB_Event_Gadget
|
|
Select EventGadget()
|
|
Case Window_0_Text_0
|
|
Case Window_0_Button_1
|
|
Clicks+1
|
|
txt$="You Clicked "+Str(Clicks)+" time"
|
|
If Clicks>1: txt$+"s": EndIf
|
|
SetGadgetText(Window_0_Text_0,txt$)
|
|
EndSelect
|
|
Case #PB_Event_CloseWindow
|
|
End
|
|
EndSelect
|
|
ForEver
|