From a5e6faec4e367f5adce063b04d1c20db59882b44 Mon Sep 17 00:00:00 2001 From: Guillaume Cottenceau Date: Thu, 22 Aug 2002 14:42:52 +0000 Subject: change a bit hackery of parents with no children, so now we have one child (with '' as a name) so that we do have the [+] in front of the parent --- perl-install/my_gtk.pm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm index 1118d756a..bdf3933b8 100644 --- a/perl-install/my_gtk.pm +++ b/perl-install/my_gtk.pm @@ -461,7 +461,11 @@ sub ask_browse_tree_info_given_widgets { $set_node_state->($node, $state); push @{$ptree{$leaf}}, $node; } else { - $add_parent->($root, $state); + #- hackery for partial displaying of trees, used in rpmdrake: + #- if leaf is void, we do create the parent and one child (to have the [+] in front of the parent in the ctree) + #- though we use '' as the label of the child; then rpmdrake will connect on tree_expand, and whenever + #- the first child has '' as the label, it will remove the child and add all the "right" children + $w->{tree}->insert_node($add_parent->($root, $state), undef, ['', '', ''], 5, (undef) x 4, 1, 0); } }; $common->{delete_all} = sub { -- cgit v1.2.1