summaryrefslogtreecommitdiffstats
path: root/perl-install/ugtk2.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2002-12-02 09:09:03 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2002-12-02 09:09:03 +0000
commit0d8b0c156aa9270c6a678a7d645dbb9c81269aef (patch)
tree9450e1764af8aadb67b74b1a89d2b4f9ee4304ef /perl-install/ugtk2.pm
parent2f8837bff82e2c7375f2ad616580e51993bdc3c2 (diff)
downloaddrakx-backup-do-not-use-0d8b0c156aa9270c6a678a7d645dbb9c81269aef.tar
drakx-backup-do-not-use-0d8b0c156aa9270c6a678a7d645dbb9c81269aef.tar.gz
drakx-backup-do-not-use-0d8b0c156aa9270c6a678a7d645dbb9c81269aef.tar.bz2
drakx-backup-do-not-use-0d8b0c156aa9270c6a678a7d645dbb9c81269aef.tar.xz
drakx-backup-do-not-use-0d8b0c156aa9270c6a678a7d645dbb9c81269aef.zip
gtkfontinfo() is bugged since it uses a C macro which is
(oh surprise) not in binary library .... : $fontinfo{$_} = Gtk2::Pango->PANGO_PIXELS($metrics->$func);
Diffstat (limited to 'perl-install/ugtk2.pm')
-rw-r--r--perl-install/ugtk2.pm8
1 files changed, 7 insertions, 1 deletions
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index a3168db53..8db733c62 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -519,6 +519,11 @@ 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) = @_;
@@ -529,7 +534,8 @@ sub gtkfontinfo {
foreach (qw(ascent descent approximate_char_width approximate_digit_width)) {
no strict;
my $func = "get_$_";
- $fontinfo{$_} = Gtk2::Pango->PANGO_PIXELS($metrics->$func);
+ print "TOTO: ", $metrics->$func, "\n";;
+ $fontinfo{$_} = PANGO_PIXELS($metrics->$func);
}
$metrics->unref;
%fontinfo;