diff options
author | Thierry Vignaud <tv@mandriva.org> | 2007-07-05 15:50:17 +0000 |
---|---|---|
committer | Thierry Vignaud <tv@mandriva.org> | 2007-07-05 15:50:17 +0000 |
commit | 399fb008919578645b2e87939a2a7a7ceb32e655 (patch) | |
tree | f013068c39b3338f06fec9e30c1e77ce22d2fd87 | |
parent | 6794e467d922397d28dd01642ae5a169883f9e6e (diff) | |
download | rpmdrake-399fb008919578645b2e87939a2a7a7ceb32e655.tar rpmdrake-399fb008919578645b2e87939a2a7a7ceb32e655.tar.gz rpmdrake-399fb008919578645b2e87939a2a7a7ceb32e655.tar.bz2 rpmdrake-399fb008919578645b2e87939a2a7a7ceb32e655.tar.xz rpmdrake-399fb008919578645b2e87939a2a7a7ceb32e655.zip |
(children) split it out of ask_browse_tree_given_widgets_for_rpmdrake()
-rw-r--r-- | Rpmdrake/gui.pm | 8 |
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) = @_; |