Rosetta Code

Simple windowed application: Difference between revisions

Page Discussion

Simple windowed application (view source)

Revision as of 20:21, 22 August 2011

4 bytes added ,  12 years ago
m
→‎{{header|Euphoria}}: EuWinGUI, Button <=> Button1, Label <=> Label1
(→‎{{header|Euphoria}}: Euphoria EuWinGUI example added)
m (→‎{{header|Euphoria}}: EuWinGUI, Button <=> Button1, Label <=> Label1)
Line 525:
 
Window("EuWinGUI - Simple windowed application",100,100,360,100)
constant ButtonButton1 = Control(Button,"Click me",250,20,80,25)
constant LabelLabel1 = Control(Label,"There have been no clicks yet",10,25,200,18)
 
integer clicks
Line 534:
while 1 do
WaitEvent()
if EventOwner = ButtonButton1 and Event = Click then
clicks += 1
SetText(LabelLabel1,sprintf("You clicked me %d times",clicks))
end if
end while
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/22923"