summaryrefslogtreecommitdiffstats
path: root/perl-install/install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/install')
-rw-r--r--perl-install/install/NEWS1
-rw-r--r--perl-install/install/steps_gtk.pm13
2 files changed, 11 insertions, 3 deletions
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index 743080195..1fcfe224c 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,5 +1,6 @@
- summary screen:
o add spacing between elements
+ o add an horizontal bar between elements
Version 10.4.188 - 4 September 2007, by Thierry Vignaud
diff --git a/perl-install/install/steps_gtk.pm b/perl-install/install/steps_gtk.pm
index 4859e1025..b5716a069 100644
--- a/perl-install/install/steps_gtk.pm
+++ b/perl-install/install/steps_gtk.pm
@@ -587,10 +587,14 @@ sub summary_prompt {
my $w = ugtk2->new(N("Summary"), icon => 'banner-summary');
my $set_entry_labels;
- my @table;
- my $group;
+ my (@table, @widget_list);
+ my ($group, $count);
foreach my $e (@$l) {
if ($group ne $e->{group}) {
+ push @widget_list, [ @table ] if @table;
+ @table = ();
+ push @widget_list, gtknew('HSeparator') if $count;
+ $count++;
$group = $e->{group};
push @table, [ gtknew('HBox', children_tight => [ gtknew('Title1', label => escape_text_for_TextView_markup_format($group)) ]), '' ];
}
@@ -624,7 +628,10 @@ sub summary_prompt {
ugtk2::gtkadd($w->{window},
gtknew('VBox', spacing => 5, children => [
- 1, gtknew('ScrolledWindow', child => gtknew('Table', mcc => 1, row_spacings => 2, children => \@table)),
+ 1, gtknew('ScrolledWindow',
+ child => gtknew('VBox', children_tight => [ map {
+ ref($_) eq 'ARRAY' ? gtknew('Table', mcc => 1, row_spacings => 2, children => $_) : $_;
+ } @widget_list ])),
0, $w->create_okcancel(undef, '', '', if_($help_sub, [ N("Help"), $help_sub, 1 ]))
]));