From ea8f8f21e22730a1abe1cab9f36282bf8b42f1cf Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 17 Feb 2003 10:27:21 +0000
Subject: fix setting pop_it for wizard in standalone

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

(limited to 'perl-install/ugtk2.pm')

diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index 14d7afe78..8fdaadac7 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -744,7 +744,8 @@ sub new {
 
     $o->{pop_it} ||= $pop_it || $::WizardTable && do {
 	my @l = $::WizardTable->get_children;
-	@l > ($::isInstall ? 1 : 2) || @l && $l[-1]->visible;
+	shift @l if !$::isInstall; #- don't take into account the DrawingArea
+	@l > 1 || @l && $l[-1]->visible;
     };
 
     if ($::isWizard && !$o->{pop_it}) {
-- 
cgit v1.2.1