diff options
| author | Guillaume Cottenceau <gc@mandriva.com> | 2002-09-16 10:21:21 +0000 |
|---|---|---|
| committer | Guillaume Cottenceau <gc@mandriva.com> | 2002-09-16 10:21:21 +0000 |
| commit | 074de4bedb25fe246817ad6a8f8039681442ddcf (patch) | |
| tree | fa78b37be1a3e535a40de3eac6e479d87df8cfa6 /perl-install/my_gtk.pm | |
| parent | f12a9634c8df853a47daffd4c8ea0a0a7b52377d (diff) | |
| download | drakx-backup-do-not-use-074de4bedb25fe246817ad6a8f8039681442ddcf.tar drakx-backup-do-not-use-074de4bedb25fe246817ad6a8f8039681442ddcf.tar.gz drakx-backup-do-not-use-074de4bedb25fe246817ad6a8f8039681442ddcf.tar.bz2 drakx-backup-do-not-use-074de4bedb25fe246817ad6a8f8039681442ddcf.tar.xz drakx-backup-do-not-use-074de4bedb25fe246817ad6a8f8039681442ddcf.zip | |
fix die wizcancel in non wizard mode
Diffstat (limited to 'perl-install/my_gtk.pm')
| -rw-r--r-- | perl-install/my_gtk.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm index 4f2eb40aa..e2ce4fa1b 100644 --- a/perl-install/my_gtk.pm +++ b/perl-install/my_gtk.pm @@ -204,7 +204,7 @@ sub _create_window($$) { $w->set_title($title); $w->signal_connect(expose_event => sub { eval { $interactive::objects[-1]{rwindow} == $w and $w->window->XSetInputFocus } }) if $my_gtk::force_focus || $o->{force_focus}; - $w->signal_connect(delete_event => sub { $w->destroy; die 'wizcancel' }); + $w->signal_connect(delete_event => sub { if ($::isWizard) { $w->destroy; die 'wizcancel' } else { Gtk->main_quit } }); $w->set_uposition(@{$my_gtk::force_position || $o->{force_position}}) if $my_gtk::force_position || $o->{force_position}; my $focusing; |