Simple windowed application: Difference between revisions

Content added Content deleted
(→‎{{header|Euphoria}}: Euphoria EuWinGUI example added)
m (→‎{{header|Euphoria}}: EuWinGUI, Button <=> Button1, Label <=> Label1)
Line 525: Line 525:


Window("EuWinGUI - Simple windowed application",100,100,360,100)
Window("EuWinGUI - Simple windowed application",100,100,360,100)
constant Button = Control(Button,"Click me",250,20,80,25)
constant Button1 = Control(Button,"Click me",250,20,80,25)
constant Label = Control(Label,"There have been no clicks yet",10,25,200,18)
constant Label1 = Control(Label,"There have been no clicks yet",10,25,200,18)


integer clicks
integer clicks
Line 534: Line 534:
while 1 do
while 1 do
WaitEvent()
WaitEvent()
if EventOwner = Button and Event = Click then
if EventOwner = Button1 and Event = Click then
clicks += 1
clicks += 1
SetText(Label,sprintf("You clicked me %d times",clicks))
SetText(Label1,sprintf("You clicked me %d times",clicks))
end if
end if
end while
end while