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