my $window = Gtk::Window
	->Class::Proxy::MethodChain::new("toplevel")
	->signal_connect(delete => sub { Gtk->main_quit })
	->set_title("Test")
	->border_width(15)
	->add(Gtk::Button
		->Class::Proxy::MethodChain::new("Quit")
		->signal_connect(clicked => sub { Gtk->main_quit })
		->show
	)
	->show;