From 92e7be32f29a647d709319d0bb7bb05d3f61afd3 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Fri, 29 Aug 2008 15:05:54 +0000 Subject: (ask_browse_tree_info) remove "Expand Tree", "Collapse Tree" & "Toggle between flat and group sorted" icons --- perl-install/ugtk2.pm | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'perl-install') diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm index 9069ec615..175b4b658 100644 --- a/perl-install/ugtk2.pm +++ b/perl-install/ugtk2.pm @@ -952,9 +952,7 @@ sub ask_browse_tree_info { $buttons[0]->grab_focus; $w->{rwindow}->show; - my @toolbar = (ftout => [ N("Expand Tree"), sub { $tree->expand_all } ], - ftin => [ N("Collapse Tree"), sub { $tree->collapse_all } ], - reload => [ N("Toggle between flat and group sorted"), sub { invbool(\$common->{state}{flat}); $common->{rebuild_tree}->() } ]); + my @toolbar; foreach my $ic (@{$common->{icons} || []}) { push @toolbar, ($ic->{icon} => [ $ic->{help}, sub { if ($ic->{code}) { -- cgit v1.2.1