From 8d79020e705d45506e330d3a87bb791fa97c017c Mon Sep 17 00:00:00 2001 From: Pascal Rigaux 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/ugtk2.pm') 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