From bcfb6035aabf1b06a7024c6af2b6afbddf17e14d Mon Sep 17 00:00:00 2001
From: Mystery Man 535 <uid535@mandriva.org>
Date: Tue, 3 Dec 2002 20:04:40 +0000
Subject: titisux, revert the pango pixels stuff

---
 perl-install/ugtk2.pm | 7 +------
 1 file changed, 1 insertion(+), 6 deletions(-)

(limited to 'perl-install')

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;
-- 
cgit v1.2.1