diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2004-11-25 21:32:43 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2004-11-25 21:32:43 +0000 |
| commit | eb736786a058722c1c27b607aa2f9f09f1a0873b (patch) | |
| tree | 87e9844c1dd1b335420b1c5a34430e7d180fa3b2 /perl-install/install_steps_gtk.pm | |
| parent | 9a72bff48ce6fb7c6b4ada2a4e20299f108dcf51 (diff) | |
| download | drakx-eb736786a058722c1c27b607aa2f9f09f1a0873b.tar drakx-eb736786a058722c1c27b607aa2f9f09f1a0873b.tar.gz drakx-eb736786a058722c1c27b607aa2f9f09f1a0873b.tar.bz2 drakx-eb736786a058722c1c27b607aa2f9f09f1a0873b.tar.xz drakx-eb736786a058722c1c27b607aa2f9f09f1a0873b.zip | |
simpler code
Diffstat (limited to 'perl-install/install_steps_gtk.pm')
| -rw-r--r-- | perl-install/install_steps_gtk.pm | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm index 7e826c514..d8e11ac25 100644 --- a/perl-install/install_steps_gtk.pm +++ b/perl-install/install_steps_gtk.pm @@ -610,11 +610,12 @@ sub summary_prompt { my $set_entry_labels; my @table; - my %group; + my $group; foreach my $e (@$l) { - $group{$e->{group}} ||= do { - push @table, [ gtkpack__(Gtk2::HBox->new(0, 0), $e->{group}), '' ]; - }; + if ($group ne $e->{group}) { + $group = $e->{group}; + push @table, [ gtkpack__(Gtk2::HBox->new(0, 0), $group), '' ]; + } $e->{widget} = Gtk2::Label->new; $e->{widget}->set_property(wrap => 1); $e->{widget}->set_size_request($::real_windowwidth * 0.72, -1); |