summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorGuillaume Cottenceau <gc@mandriva.com>2002-08-22 14:42:52 +0000
committerGuillaume Cottenceau <gc@mandriva.com>2002-08-22 14:42:52 +0000
commita5e6faec4e367f5adce063b04d1c20db59882b44 (patch)
tree701d2e4031f3078de615338ef37f33b764bb278f /perl-install
parent21b70343bb8a2b675570eb39002dec228513ac96 (diff)
downloaddrakx-backup-do-not-use-a5e6faec4e367f5adce063b04d1c20db59882b44.tar
drakx-backup-do-not-use-a5e6faec4e367f5adce063b04d1c20db59882b44.tar.gz
drakx-backup-do-not-use-a5e6faec4e367f5adce063b04d1c20db59882b44.tar.bz2
drakx-backup-do-not-use-a5e6faec4e367f5adce063b04d1c20db59882b44.tar.xz
drakx-backup-do-not-use-a5e6faec4e367f5adce063b04d1c20db59882b44.zip
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
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/my_gtk.pm6
1 files changed, 5 insertions, 1 deletions
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 {