Anonymous user
Simple windowed application: Difference between revisions
→{{header|Perl}}
Line 915:
$ID{txt}->value = ++$clicks
});</lang>
=={{header|PureBasic}}==
When compiled for Windows x86 using [http://www.purebasic.com/ PureBasic] 4.41 , this code is only 17 kB.
<lang PureBasic>
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</lang>
=={{header|Python}}==
| |||