Simple windowed application: Difference between revisions
Content added Content deleted
(→{{header|Euphoria}}: Euphoria EuWinGUI example added) |
|||
Line 518: | Line 518: | ||
w.show() |
w.show() |
||
}</lang> |
}</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}}== |
=={{header|Fantom}}== |