diff options
| -rw-r--r-- | perl-install/interactive_gtk.pm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/perl-install/interactive_gtk.pm b/perl-install/interactive_gtk.pm index fe22a66b5..44923d996 100644 --- a/perl-install/interactive_gtk.pm +++ b/perl-install/interactive_gtk.pm @@ -189,6 +189,7 @@ sub create_ctree { my $curr = $tree->node_nth(0); #- default value $tree->set_column_auto_resize(0, 1); $tree->set_selection_mode('browse'); + $tree->set_row_height($tree->style->font->ascent + $tree->style->font->descent + 1); $tree->signal_connect(tree_select_row => sub { $curr = $_[1]; if ($curr->row->is_leaf) { @@ -266,8 +267,6 @@ sub create_ctree { &$double_click if $curr->row->is_leaf && $double_click; }); - $tree->set_row_height($tree->style->font->ascent + $tree->style->font->descent + 1); - $tree, sub { my $v = may_apply($e->{format}, $_[0]); $select->($wleaves{$v} || return) if $wleaves{$v} != $tree->selection; |