From 9f2a0ea26a8d8c78a171431793750dfb9453f2af Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 26 Nov 2001 16:33:41 +0000
Subject: cleanup

---
 perl-install/interactive_gtk.pm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'perl-install')

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;
-- 
cgit v1.2.1