summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive_gtk.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/interactive_gtk.pm')
-rw-r--r--perl-install/interactive_gtk.pm3
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;