summaryrefslogtreecommitdiffstats
path: root/perl-install/my_gtk.pm
diff options
context:
space:
mode:
authorGuillaume Cottenceau <gc@mandriva.com>2002-09-05 10:18:39 +0000
committerGuillaume Cottenceau <gc@mandriva.com>2002-09-05 10:18:39 +0000
commitbeb3c155c05a194d0b505af5b1225a97f180c28a (patch)
tree1a13e31d03a5650e27c1abb40898dfd9dc3ec3e8 /perl-install/my_gtk.pm
parentf1e8ec6e31fc910575ccfa16489c20526d23959e (diff)
downloaddrakx-beb3c155c05a194d0b505af5b1225a97f180c28a.tar
drakx-beb3c155c05a194d0b505af5b1225a97f180c28a.tar.gz
drakx-beb3c155c05a194d0b505af5b1225a97f180c28a.tar.bz2
drakx-beb3c155c05a194d0b505af5b1225a97f180c28a.tar.xz
drakx-beb3c155c05a194d0b505af5b1225a97f180c28a.zip
ask_browse_tree_info_given_widgets: add ability of partial
selection clickery leading to unselection for rpmdrake (if someone understands this log message..)
Diffstat (limited to 'perl-install/my_gtk.pm')
-rw-r--r--perl-install/my_gtk.pm5
1 files changed, 3 insertions, 2 deletions
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;