28 lines
488 B
Plaintext
28 lines
488 B
Plaintext
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
|