summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2014-01-30 07:49:31 +0100
committerThierry Vignaud <thierry.vignaud@gmail.com>2014-02-07 21:36:45 +0100
commitdf1230d7b566c0d67db089650d5e0ed491e11c29 (patch)
tree6fc78e9c67d89d277e768ae804da5025e0bac9e4
parentb53ffdf8b2c1fb86135f67ecb3fb829efd8a754b (diff)
downloaddrakx-df1230d7b566c0d67db089650d5e0ed491e11c29.tar
drakx-df1230d7b566c0d67db089650d5e0ed491e11c29.tar.gz
drakx-df1230d7b566c0d67db089650d5e0ed491e11c29.tar.bz2
drakx-df1230d7b566c0d67db089650d5e0ed491e11c29.tar.xz
drakx-df1230d7b566c0d67db089650d5e0ed491e11c29.zip
simplify
-rw-r--r--perl-install/ugtk3.pm9
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);
}