diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/interactive/gtk.pm | 12 |
1 files changed, 2 insertions, 10 deletions
diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm index 63f50da37..1514c5a45 100644 --- a/perl-install/interactive/gtk.pm +++ b/perl-install/interactive/gtk.pm @@ -424,20 +424,12 @@ sub ask_fromW { $w = Gtk2::Button->new(''); $w->signal_connect(clicked => sub { $get_all->(); - if ($::isWizard && !$::isInstall) { - $mainw->{rwindow}->set_sensitive(0); - } else { - $mainw->{rwindow}->hide; - } + $mainw->{rwindow}->hide; if (my $v = $e->{clicked_may_quit}()) { $mainw->{retval} = $v; Gtk2->main_quit; } - if ($::isWizard && !$::isInstall) { - $mainw->{rwindow}->set_sensitive(1); - } else { - $mainw->{rwindow}->show; - } + $mainw->{rwindow}->show; $set_all->(); }); $set = sub { $w->child->set(may_apply($e->{format}, $_[0])) }; |