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 |
constant Button1 = Control(Button,"Click me",250,20,80,25) |
||
constant |
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 = |
if EventOwner = Button1 and Event = Click then |
||
clicks += 1 |
clicks += 1 |
||
SetText( |
SetText(Label1,sprintf("You clicked me %d times",clicks)) |
||
end if |
end if |
||
end while |
end while |