diff options
| -rw-r--r-- | perl-install/my_gtk.pm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm index f1026f575..39b5b743d 100644 --- a/perl-install/my_gtk.pm +++ b/perl-install/my_gtk.pm @@ -51,6 +51,7 @@ sub new { if (!defined($::WizardWindow)) { $::WizardWindow = new Gtk::Window; $::WizardWindow->set_position('center_always'); + $::WizardWindow->signal_connect(delete_event => sub { die 'wizcancel'}); $::WizardTable = new Gtk::Table(2, 2, 0); $::WizardWindow->add($::WizardTable); my $draw1 = new Gtk::DrawingArea; |