From df1230d7b566c0d67db089650d5e0ed491e11c29 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Thu, 30 Jan 2014 07:49:31 +0100
Subject: simplify

---
 perl-install/ugtk3.pm | 9 ++-------
 1 file changed, 2 insertions(+), 7 deletions(-)

(limited to 'perl-install/ugtk3.pm')

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);
     }
 
-- 
cgit v1.2.1