#!/usr/bin/perl -w

use strict;
use Gtk2 -init;

my $dialog = Gtk2::Dialog->new(
 'Open file',
 undef, 'modal',
 'gtk-cancel' => 'cancel',
 'gtk-ok'     => 'ok'
);
$dialog->signal_connect(
 response => sub {
 my ( $dialog, $response ) = @_;
 print "signal returned $response\n";
 }
);
print "run returned ",$dialog->run, "\n";
$dialog->destroy;
exit( 0 );
