summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/interactive/gtk.pm12
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])) };