Anonymous user
Simple windowed application: Difference between revisions
→{{header|Euphoria}}: Euphoria EuWinGUI example added
(→{{header|Euphoria}}: Euphoria EuWinGUI example added) |
|||
Line 518:
w.show()
}</lang>
=={{header|Euphoria}}==
===EuWinGUI===
{{libheader|EuWinGUI}}
<lang euphoria>include EuWinGUI.ew
Window("EuWinGUI - Simple windowed application",100,100,360,100)
constant Button = Control(Button,"Click me",250,20,80,25)
constant Label = Control(Label,"There have been no clicks yet",10,25,200,18)
integer clicks
clicks = 0
-- Event loop
while 1 do
WaitEvent()
if EventOwner = Button and Event = Click then
clicks += 1
SetText(Label,sprintf("You clicked me %d times",clicks))
end if
end while
CloseApp(0)</lang>
=={{header|Fantom}}==
| |||