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
|
use 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",
GtkObject::user_data => undef,
GtkWindow::type => -toplevel,
GtkWindow::title => "hello world",
GtkWindow::allow_grow => 0,
GtkWindow::allow_shrink => 0,
GtkContainer::border_width => 10;
$button = new Gtk::Widget "GtkButton",
GtkButton::label => "hello world",
GtkObject::signal::clicked => "hello",
GtkWidget::parent => $window,
GtkWidget::visible => 1;
show $window;
main Gtk;
|
