summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2003-02-17 10:27:21 +0000
committerPascal Rigaux <pixel@mandriva.com>2003-02-17 10:27:21 +0000
commitea8f8f21e22730a1abe1cab9f36282bf8b42f1cf (patch)
treeaa49b3e2718d74eee3c2eed2bed314f586912776 /perl-install
parent4ad6ccf57f748415810aa5df2900407c869a5d22 (diff)
downloaddrakx-ea8f8f21e22730a1abe1cab9f36282bf8b42f1cf.tar
drakx-ea8f8f21e22730a1abe1cab9f36282bf8b42f1cf.tar.gz
drakx-ea8f8f21e22730a1abe1cab9f36282bf8b42f1cf.tar.bz2
drakx-ea8f8f21e22730a1abe1cab9f36282bf8b42f1cf.tar.xz
drakx-ea8f8f21e22730a1abe1cab9f36282bf8b42f1cf.zip
fix setting pop_it for wizard in standalone
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/ugtk2.pm3
1 files changed, 2 insertions, 1 deletions
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}) {