From beb3c155c05a194d0b505af5b1225a97f180c28a Mon Sep 17 00:00:00 2001 From: Guillaume Cottenceau Date: Thu, 5 Sep 2002 10:18:39 +0000 Subject: ask_browse_tree_info_given_widgets: add ability of partial selection clickery leading to unselection for rpmdrake (if someone understands this log message..) --- perl-install/my_gtk.pm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'perl-install') diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm index f8cef32fe..a161fb6f4 100644 --- a/perl-install/my_gtk.pm +++ b/perl-install/my_gtk.pm @@ -533,8 +533,9 @@ sub ask_browse_tree_info_given_widgets { my @l = $common->{grep_allowed_to_toggle}($children->($curr)) or return; my @unsel = $common->{grep_unselected}(@l); my @p = @unsel ? - @unsel : # not all is selected, select all - @l; + #- 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) + : @l; $common->{toggle_nodes}($set_leaf_state, @p); &$update_size; $parent = $curr; -- cgit v1.2.1