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;

#$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;