diff options
| author | Guillaume Cottenceau <gc@mandriva.com> | 2002-09-05 10:18:39 +0000 |
|---|---|---|
| committer | Guillaume Cottenceau <gc@mandriva.com> | 2002-09-05 10:18:39 +0000 |
| commit | beb3c155c05a194d0b505af5b1225a97f180c28a (patch) | |
| tree | 1a13e31d03a5650e27c1abb40898dfd9dc3ec3e8 /perl-install/my_gtk.pm | |
| parent | f1e8ec6e31fc910575ccfa16489c20526d23959e (diff) | |
| download | drakx-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.pm | 5 |
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; |