(children) split it out of ask_browse_tree_given_widgets_for_rpmdrake()

1 files changed, 6 insertions, 2 deletions

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) = @_;