From aaebcfd04d7f81175afbdb4baa390d7a5c0b3687 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Wed, 21 Feb 2007 11:28:09 +0000 Subject: kill "grep_allowed_to_toggle" callback which really was unused --- Rpmdrake/gui.pm | 4 ++-- rpmdrake | 1 - 2 files changed, 2 insertions(+), 3 deletions(-) diff --git a/Rpmdrake/gui.pm b/Rpmdrake/gui.pm index 392f6252..a269f06b 100644 --- a/Rpmdrake/gui.pm +++ b/Rpmdrake/gui.pm @@ -207,7 +207,7 @@ sub add_parent { # o "info" is a TextView # o "tree_model" is the associated model of "tree" # o "status" references a Label -# - some methods: get_info, node_state, build_tree, grep_allowed_to_toggle, partialsel_unsel, grep_unselected, rebuild_tree, toggle_nodes, get_status +# - some methods: get_info, node_state, build_tree, partialsel_unsel, grep_unselected, rebuild_tree, toggle_nodes, get_status # - "tree_submode": the default mode (by group, mandriva choice), ... # - "state": a hash of misc flags: => { flat => '0' }, # o "flat": is the tree flat or not @@ -330,7 +330,7 @@ sub ask_browse_tree_given_widgets_for_rpmdrake { my $children = sub { map { $w->{detail_list_model}->get($_, 0) } gtktreeview_children($w->{detail_list_model}, $_[0]) }; $common->{toggle_all} = sub { my ($_val) = @_; - my @l = $common->{grep_allowed_to_toggle}($children->()) or return; + my @l = $children->() or return; my @unsel = $common->{grep_unselected}(@l); my @p = @unsel ? diff --git a/rpmdrake b/rpmdrake index 98917c5a..ee076388 100755 --- a/rpmdrake +++ b/rpmdrake @@ -200,7 +200,6 @@ sub run_treeview_dialog { ? N("Selected: %s / Free disk space: %s", formatXiB($size_selected), formatXiB($size_free*1024)) : N("Selected size: %d MB", $size_selected/(1024*1024)); }, - grep_allowed_to_toggle => sub { @_ }, rebuild_tree => sub {}, }; -- cgit v1.2.1