diff options
| author | Thierry Vignaud <tv@mandriva.org> | 2007-09-04 18:21:24 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mandriva.org> | 2007-09-04 18:21:24 +0000 |
| commit | 4038e34eaa6d4606cc9b27ca891ecdd67fb77772 (patch) | |
| tree | 83cd25f32b09b23e6098db8132353136d4317cb1 /perl-install/install/steps_gtk.pm | |
| parent | a6a386385efe308dd3a53014f80ae04e64d5ad5d (diff) | |
| download | drakx-backup-do-not-use-4038e34eaa6d4606cc9b27ca891ecdd67fb77772.tar drakx-backup-do-not-use-4038e34eaa6d4606cc9b27ca891ecdd67fb77772.tar.gz drakx-backup-do-not-use-4038e34eaa6d4606cc9b27ca891ecdd67fb77772.tar.bz2 drakx-backup-do-not-use-4038e34eaa6d4606cc9b27ca891ecdd67fb77772.tar.xz drakx-backup-do-not-use-4038e34eaa6d4606cc9b27ca891ecdd67fb77772.zip | |
(summary_prompt) add an horizontal bar between elements
Diffstat (limited to 'perl-install/install/steps_gtk.pm')
| -rw-r--r-- | perl-install/install/steps_gtk.pm | 13 |
1 files changed, 10 insertions, 3 deletions
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 ])) ])); |