From d41c3387fb7ff4c9d75e616fa1bf0dadf42879cf Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 12 Feb 2003 14:47:13 +0000
Subject: don't set pop_it when the window is hidden

---
 perl-install/ugtk2.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'perl-install')

diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index 3ddf0b56d..5494e0f8e 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -739,7 +739,10 @@ sub new {
     $o->{rwindow}->set_transient_for($o->{transient}) if $o->{transient};
     
 
-    $o->{pop_it} ||= $pop_it || $::WizardTable && listlength($::WizardTable->get_children) > ($::isInstall ? 0 : 1);
+    $o->{pop_it} ||= $pop_it || $::WizardTable && do {
+	my @l = $::WizardTable->get_children;
+	@l > ($::isInstall ? 1 : 2) || @l && $l[-1]->visible;
+    };
 
     if ($::isWizard && !$o->{pop_it}) {
 	$o->{isWizard} = 1;
-- 
cgit v1.2.1