summaryrefslogtreecommitdiffstats
path: root/perl-install/my_gtk.pm
diff options
context:
space:
mode:
authordamien <damien@mandriva.com>2002-02-07 11:57:53 +0000
committerdamien <damien@mandriva.com>2002-02-07 11:57:53 +0000
commitcc6361f1fb627a75c5ab4ac7e6523851aed21ba0 (patch)
treebfd8293794ec0044cca7b8aed0598f9e5425a485 /perl-install/my_gtk.pm
parentc582cbfaa64386a834208d55f0093c09d3f8f40b (diff)
downloaddrakx-backup-do-not-use-cc6361f1fb627a75c5ab4ac7e6523851aed21ba0.tar
drakx-backup-do-not-use-cc6361f1fb627a75c5ab4ac7e6523851aed21ba0.tar.gz
drakx-backup-do-not-use-cc6361f1fb627a75c5ab4ac7e6523851aed21ba0.tar.bz2
drakx-backup-do-not-use-cc6361f1fb627a75c5ab4ac7e6523851aed21ba0.tar.xz
drakx-backup-do-not-use-cc6361f1fb627a75c5ab4ac7e6523851aed21ba0.zip
wizard fixes
Diffstat (limited to 'perl-install/my_gtk.pm')
-rw-r--r--perl-install/my_gtk.pm1
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;