1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
use Gtk;
# TITLE: Simple #1
# REQUIRES: Gtk
use vars qw($window $button $button2);
sub hello {
Gtk->print("hello world\n");
print "Destroying $button and $window\n";
destroy $button;
destroy $window;
$button = undef;
$window = undef;
}
init Gtk;
$window = new Gtk::Widget "GtkWindow",
GtkWindow::type => -toplevel,
GtkWindow::title => "hello world",
GtkWindow::allow_grow => 0,
GtkWindow::allow_shrink => 0,
GtkContainer::border_width => 10;
$window->signal_connect('destroy', sub {Gtk->main_quit});
#$button = new Gtk::Widget "GtkButton",
# GtkButton::label => "hello world",
# GtkObject::signal::clicked => "hello",
# GtkWidget::parent => $window,
# GtkWidget::visible => 1;
$button = new_child $window "GtkButton",
GtkButton::label => "hello world",
GtkObject::signal::clicked => "hello",
GtkWidget::visible => 1;
show $window;
main Gtk;
|
