From 39e245aba1359c916866258fd7eeb96a280cc617 Mon Sep 17 00:00:00 2001 From: Guillaume Cottenceau Date: Mon, 17 Dec 2001 17:58:20 +0000 Subject: drakgw for gold --- perl-install/interactive_gtk.pm | 12 ++++++++++-- 1 file changed, 10 insertions(+), 2 deletions(-) (limited to 'perl-install/interactive_gtk.pm') 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])) }; -- cgit v1.2.1