From 4038e34eaa6d4606cc9b27ca891ecdd67fb77772 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 4 Sep 2007 18:21:24 +0000 Subject: (summary_prompt) add an horizontal bar between elements --- perl-install/install/NEWS | 1 + perl-install/install/steps_gtk.pm | 13 ++++++++++--- 2 files changed, 11 insertions(+), 3 deletions(-) (limited to 'perl-install') 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 ])) ])); -- cgit v1.2.1