From 265d4e492148c9a450610b702354ba40a27bdbb1 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 5 Feb 2001 17:50:48 +0000 Subject: (create_ctree): node_moveto done only if node_is_visible is not full --- perl-install/interactive_gtk.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install/interactive_gtk.pm') diff --git a/perl-install/interactive_gtk.pm b/perl-install/interactive_gtk.pm index 88b5a0999..b96a7d48c 100644 --- a/perl-install/interactive_gtk.pm +++ b/perl-install/interactive_gtk.pm @@ -159,7 +159,7 @@ sub create_ctree { $tree->expand($c); } $tree->select($node); - $tree->node_moveto($node, 0, 0.5, 0); + $tree->node_moveto($node, 0, 0.5, 0) if $tree->node_is_visible($node) ne 'full'; foreach (1 .. @l) { if ($tree->node_nth($_) == $node) { -- cgit v1.2.1