From c03b88dad7a4a486fce6f6ebdfaf1c0c79a9e732 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Thu, 5 Jul 2007 15:35:17 +0000
Subject: (grep_unselected) make a function out of it

---
 Rpmdrake/gui.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'Rpmdrake/gui.pm')

diff --git a/Rpmdrake/gui.pm b/Rpmdrake/gui.pm
index 7892195f..e8b4143f 100644
--- a/Rpmdrake/gui.pm
+++ b/Rpmdrake/gui.pm
@@ -195,6 +195,8 @@ sub set_leaf_state {
     set_node_state($_, $state, $model) foreach @{$ptree{$leaf}};
 }
 
+sub grep_unselected { grep { exists $pkgs->{$_} && !$pkgs->{$_}{selected} } @_ }
+
 sub add_parent {
     my ($root, $state) = @_;
     $root or return undef;
@@ -330,7 +332,7 @@ sub ask_browse_tree_given_widgets_for_rpmdrake {
         my ($_val) = @_;
 		my @l = $children->() or return;
 
-		my @unsel = $common->{grep_unselected}(@l);
+		my @unsel = grep_unselected(@l);
 		my @p = @unsel ?
 		  #- not all is selected, select all if no option to potentially override
 		  (exists $common->{partialsel_unsel} && $common->{partialsel_unsel}->(\@unsel, \@l) ? difference2(\@l, \@unsel) : @unsel)
-- 
cgit v1.2.1