From cc6361f1fb627a75c5ab4ac7e6523851aed21ba0 Mon Sep 17 00:00:00 2001 From: damien Date: Thu, 7 Feb 2002 11:57:53 +0000 Subject: wizard fixes --- perl-install/my_gtk.pm | 1 + 1 file changed, 1 insertion(+) (limited to 'perl-install/my_gtk.pm') 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; -- cgit v1.2.1