summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive_gtk.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-11-26 16:33:41 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-11-26 16:33:41 +0000
commit9f2a0ea26a8d8c78a171431793750dfb9453f2af (patch)
tree0bd7f47951c1c85cd598b4de4708c98af1346946 /perl-install/interactive_gtk.pm
parentb9f4dfa941779fade78869728b9393cab1ede012 (diff)
downloaddrakx-backup-do-not-use-9f2a0ea26a8d8c78a171431793750dfb9453f2af.tar
drakx-backup-do-not-use-9f2a0ea26a8d8c78a171431793750dfb9453f2af.tar.gz
drakx-backup-do-not-use-9f2a0ea26a8d8c78a171431793750dfb9453f2af.tar.bz2
drakx-backup-do-not-use-9f2a0ea26a8d8c78a171431793750dfb9453f2af.tar.xz
drakx-backup-do-not-use-9f2a0ea26a8d8c78a171431793750dfb9453f2af.zip
cleanup
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;