my $file_dialog = Gtk::FileSelection->new("File Selection Demo");

$file_dialog->ok_button->label("Load");
$file_dialog->ok_button->relief("half");
$file_dialog->ok_button->width(80);
$file_dialog->ok_button->height(50);
$file_dialog->ok_button->signal_connect(clicked => sub {
	print $file_dialog->get_filename(), "\n";
});

$file_dialog->cancel_button->label("Exit");
$file_dialog->cancel_button->relief("half");
$file_dialog->cancel_button->width(80);
$file_dialog->cancel_button->height(50);
$file_dialog->cancel_button->signal_connect(clicked => sub{Gtk->main_quit});

$file_dialog->set_filename("penguin.png");
$file_dialog->signal_connect(destroy => sub{Gtk->main_quit});
$file_dialog->show();

##</code><code>##

my $file_dialog;
$file_dialog = Gtk::FileSelection
	->Class::Proxy::MethodChain::new("File Selection Demo")
	->ok_button->ret_wrap(sub {shift
		->label("Load")
		->relief("half")
		->width(80)
		->height(50)
		->signal_connect(clicked => sub {
			print $file_dialog->get_filename()->ret_val, "\n";
		});
	})
	->cancel_button->ret_wrap(sub {shift
		->label("Exit")
		->relief("half")
		->width(80)
		->height(50)
		->signal_connect(clicked => sub{Gtk->main_quit});
	})
	->set_filename("penguin.png")
	->signal_connect(destroy => sub{Gtk->main_quit})
	->show();