From 8d79020e705d45506e330d3a87bb791fa97c017c Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 3 Mar 2003 16:50:25 +0000
Subject: (n_line_size): spacing for default font using XFT is 3

---
 perl-install/ugtk2.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install')

diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index 3a0d3569f..e5c56fb3b 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -304,7 +304,7 @@ sub create_scrolled_window {
 
 sub n_line_size {
     my ($nbline, $type, $widget) = @_;
-    my $spacing = ${{ text => 0, various => 17 }}{$type};
+    my $spacing = ${{ text => 3, various => 17 }}{$type};
     my %fontinfo = gtkfontinfo($widget);
     round($nbline * ($fontinfo{ascent} + $fontinfo{descent} + $spacing) + 8);
 }
-- 
cgit v1.2.1