Simple windowed application: Difference between revisions
m
→{{header|Wren}}: Changed to Wren S/H
mNo edit summary |
m (→{{header|Wren}}: Changed to Wren S/H) |
||
| (3 intermediate revisions by 3 users not shown) | |||
Line 1,367:
=={{header|Elena}}==
ELENA
<syntaxhighlight lang="elena">import forms;
import extensions;
Line 1,380:
constructor new()
<= super new()
{
lblClicks := Label.new();
Line 3,561:
=={{header|Sidef}}==
===Gtk2===
<syntaxhighlight lang="ruby">require('Gtk2') -> init
Line 3,588 ⟶ 3,589:
# Main loop.
%s<Gtk2>.main</syntaxhighlight>
===Gtk3===
<syntaxhighlight lang="ruby">use('Gtk3 -init')
# Window.
var window = %O'Gtk3::Window'.new
window.signal_connect('destroy' => { %O'Gtk3'.main_quit })
# VBox.
var vbox = %O'Gtk3::VBox'.new(0, 0)
window.add(vbox)
# Label.
var label = %O'Gtk3::Label'.new('There have been no clicks yet.')
vbox.add(label)
# Button.
var count = 0
var button = %O'Gtk3::Button'.new(' Click Me ');
vbox.add(button)
button.signal_connect('clicked' => {
label.set_text(++count)
})
# Show.
window.show_all
# Main loop.
%O'Gtk3'.main</syntaxhighlight>
=={{header|Smalltalk}}==
Line 3,793 ⟶ 3,823:
mut:
window &ui.Window = unsafe {nil}
counter string = "
}
Line 3,814 ⟶ 3,844:
),
ui.button(
text: "
bg_color: gx.light_gray
radius: 5
Line 3,938 ⟶ 3,968:
=={{header|Wren}}==
{{libheader|DOME}}
<syntaxhighlight lang="
import "input" for Mouse
import "dome" for Window
| |||