From 6ecfc313fa0680e532dc38cf35f1261ccc4a6798 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 17 Feb 2003 13:34:29 +0000
Subject: also ->hide in when a button is clicked in standalone

---
 perl-install/interactive/gtk.pm | 12 ++----------
 1 file changed, 2 insertions(+), 10 deletions(-)

(limited to 'perl-install/interactive')

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])) };
-- 
cgit v1.2.1