summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/install/NEWS1
-rw-r--r--perl-install/mygtk2.pm8
2 files changed, 7 insertions, 2 deletions
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index db4eddf56..730ec2594 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,4 +1,5 @@
- align titles to the left
+- display a separator below titles
- update language step
Version 11.11 - 18 August 2008
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 {