diff options
author | damien <damien@mandriva.com> | 2002-02-07 11:57:53 +0000 |
---|---|---|
committer | damien <damien@mandriva.com> | 2002-02-07 11:57:53 +0000 |
commit | cc6361f1fb627a75c5ab4ac7e6523851aed21ba0 (patch) | |
tree | bfd8293794ec0044cca7b8aed0598f9e5425a485 /perl-install/my_gtk.pm | |
parent | c582cbfaa64386a834208d55f0093c09d3f8f40b (diff) | |
download | drakx-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.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; |