diff options
| author | Mystery Man 535 <uid535@mandriva.org> | 2002-12-03 20:04:40 +0000 |
|---|---|---|
| committer | Mystery Man 535 <uid535@mandriva.org> | 2002-12-03 20:04:40 +0000 |
| commit | bcfb6035aabf1b06a7024c6af2b6afbddf17e14d (patch) | |
| tree | 93fa655aad7ec2e54e98016a21b53209f25df929 /perl-install/ugtk2.pm | |
| parent | 6eb04547105e92f777b167c83d9cf2113b84b941 (diff) | |
| download | drakx-bcfb6035aabf1b06a7024c6af2b6afbddf17e14d.tar drakx-bcfb6035aabf1b06a7024c6af2b6afbddf17e14d.tar.gz drakx-bcfb6035aabf1b06a7024c6af2b6afbddf17e14d.tar.bz2 drakx-bcfb6035aabf1b06a7024c6af2b6afbddf17e14d.tar.xz drakx-bcfb6035aabf1b06a7024c6af2b6afbddf17e14d.zip | |
titisux, revert the pango pixels stuff
Diffstat (limited to 'perl-install/ugtk2.pm')
| -rw-r--r-- | perl-install/ugtk2.pm | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm index e9cba0a46..00b44ab1c 100644 --- a/perl-install/ugtk2.pm +++ b/perl-install/ugtk2.pm @@ -518,11 +518,6 @@ sub gtktext_insert { $textview; } -sub PANGO_PIXELS { - my ($d) = @_; - ($d + (0 <= $d ? 1024 : -1024) /2) / 1024; -} - # extracts interesting font metrics for a given widget sub gtkfontinfo { my ($widget) = @_; @@ -533,7 +528,7 @@ sub gtkfontinfo { foreach (qw(ascent descent approximate_char_width approximate_digit_width)) { no strict; my $func = "get_$_"; - $fontinfo{$_} = PANGO_PIXELS($metrics->$func); + $fontinfo{$_} = Gtk2::Pango->PANGO_PIXELS($metrics->$func); } $metrics->unref; %fontinfo; |