summaryrefslogtreecommitdiffstats
path: root/perl-install/mygtk2.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/mygtk2.pm')
-rw-r--r--perl-install/mygtk2.pm8
1 files changed, 6 insertions, 2 deletions
diff --git a/perl-install/mygtk2.pm b/perl-install/mygtk2.pm
index 8cb691002..63599757b 100644
--- a/perl-install/mygtk2.pm
+++ b/perl-install/mygtk2.pm
@@ -653,7 +653,9 @@ sub _gtk__MagicWindow {
my $provided_banner = delete $opts->{banner};
if ($pop_it && $provided_banner) {
- $sub_child = gtknew('VBox', children => [ 0, $provided_banner, if_($sub_child, 1, $sub_child) ]);
+ $sub_child = gtknew('VBox', children => [ 0, $provided_banner,
+ if_($::isInstall, 0, Gtk2::HSeparator->new),
+ if_($sub_child, 1, $sub_child) ]);
} else {
$sub_child ||= gtknew('VBox');
}
@@ -697,7 +699,9 @@ sub _gtk__MagicWindow {
$w = $::WizardWindow;
- gtkadd($::WizardTable, children_tight => [ $provided_banner ]) if $provided_banner;
+ gtkadd($::WizardTable, children_tight => [ $provided_banner,
+ if_($::isInstall, Gtk2::HSeparator->new),
+ ]) if $provided_banner;
gtkadd($::WizardTable, children_loose => [ $sub_child ]);
}
bless {