From 399fb008919578645b2e87939a2a7a7ceb32e655 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Thu, 5 Jul 2007 15:50:17 +0000
Subject: (children) split it out of
 ask_browse_tree_given_widgets_for_rpmdrake()

---
 Rpmdrake/gui.pm | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

(limited to 'Rpmdrake')

diff --git a/Rpmdrake/gui.pm b/Rpmdrake/gui.pm
index 8999705a..5a7dfab6 100644
--- a/Rpmdrake/gui.pm
+++ b/Rpmdrake/gui.pm
@@ -246,10 +246,15 @@ sub update_size {
     }
 }
 
+sub children {
+    my ($w) = @_;
+    map { $w->{detail_list_model}->get($_, $pkg_columns{text}) } gtktreeview_children($w->{detail_list_model});
+}
+
 sub toggle_all {
     my ($common, $_val) = @_;
-    my @l = children() or return;
     my $w = $common->{widgets};
+    my @l = children($w) or return;
 
     my @unsel = grep_unselected(@l);
     use Data::Dumper; print Dumper \@unsel;
@@ -342,7 +347,6 @@ sub ask_browse_tree_given_widgets_for_rpmdrake {
         $w->{info}->scroll_to_iter($w->{info}->get_buffer->get_start_iter, 0, 0, 0, 0);
         0;
     };
-    my $children = sub { map { $w->{detail_list_model}->get($_, $pkg_columns{text}) } gtktreeview_children($w->{detail_list_model}, $_[0]) };
 
     my $fast_toggle = sub {
         my ($iter) = @_;
-- 
cgit v1.2.1