diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2003-03-03 16:50:25 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2003-03-03 16:50:25 +0000 |
commit | 8d79020e705d45506e330d3a87bb791fa97c017c (patch) | |
tree | 5faedb1a18216f830eecaecfa6639f3e61741d68 /perl-install | |
parent | 9a682226521c5a58996586175432c79d323ed801 (diff) | |
download | drakx-8d79020e705d45506e330d3a87bb791fa97c017c.tar drakx-8d79020e705d45506e330d3a87bb791fa97c017c.tar.gz drakx-8d79020e705d45506e330d3a87bb791fa97c017c.tar.bz2 drakx-8d79020e705d45506e330d3a87bb791fa97c017c.tar.xz drakx-8d79020e705d45506e330d3a87bb791fa97c017c.zip |
(n_line_size): spacing for default font using XFT is 3
Diffstat (limited to 'perl-install')
-rw-r--r-- | perl-install/ugtk2.pm | 2 |
1 files changed, 1 insertions, 1 deletions
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); } |