summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorMystery Man 535 <uid535@mandriva.org>2002-12-03 20:04:40 +0000
committerMystery Man 535 <uid535@mandriva.org>2002-12-03 20:04:40 +0000
commitbcfb6035aabf1b06a7024c6af2b6afbddf17e14d (patch)
tree93fa655aad7ec2e54e98016a21b53209f25df929 /perl-install
parent6eb04547105e92f777b167c83d9cf2113b84b941 (diff)
downloaddrakx-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')
-rw-r--r--perl-install/ugtk2.pm7
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;