diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2014-01-30 07:49:31 +0100 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2014-02-07 21:36:45 +0100 |
| commit | df1230d7b566c0d67db089650d5e0ed491e11c29 (patch) | |
| tree | 6fc78e9c67d89d277e768ae804da5025e0bac9e4 /perl-install | |
| parent | b53ffdf8b2c1fb86135f67ecb3fb829efd8a754b (diff) | |
| download | drakx-df1230d7b566c0d67db089650d5e0ed491e11c29.tar drakx-df1230d7b566c0d67db089650d5e0ed491e11c29.tar.gz drakx-df1230d7b566c0d67db089650d5e0ed491e11c29.tar.bz2 drakx-df1230d7b566c0d67db089650d5e0ed491e11c29.tar.xz drakx-df1230d7b566c0d67db089650d5e0ed491e11c29.zip | |
simplify
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/ugtk3.pm | 9 |
1 files changed, 2 insertions, 7 deletions
diff --git a/perl-install/ugtk3.pm b/perl-install/ugtk3.pm index 04d1697ce..d2bcc18ed 100644 --- a/perl-install/ugtk3.pm +++ b/perl-install/ugtk3.pm @@ -939,19 +939,14 @@ sub ask_browse_tree_info { $buttons[0]->grab_focus; $w->{rwindow}->show; - my @toolbar; foreach my $ic (@{$common->{icons} || []}) { - push @toolbar, ($ic->{icon} => [ $ic->{help}, sub { + my $t = gtknew('ToolButton', tooltip => $ic->{help}, file => "$ic->{icon}.png", clicked => sub { if ($ic->{code}) { my $_w = $ic->{wait_message} && $common->{wait_message}->('', $ic->{wait_message}); $ic->{code}(); $common->{rebuild_tree}->(); } - } ]); - } - my %toolbar = @toolbar; - foreach (grep_index { $::i % 2 == 0 } @toolbar) { - my $t = gtknew('ToolButton', tooltip => $toolbar{$_}[0], file => "$_.png", clicked => $toolbar{$_}[1]); + }); $toolbar->insert($t, -1); } |