diff options
| -rw-r--r-- | perl-install/interactive_gtk.pm | 2 |
1 files changed, 1 insertions, 1 deletions
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) { |