diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2002-12-02 09:09:03 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2002-12-02 09:09:03 +0000 |
| commit | 0d8b0c156aa9270c6a678a7d645dbb9c81269aef (patch) | |
| tree | 9450e1764af8aadb67b74b1a89d2b4f9ee4304ef /perl-install/ugtk2.pm | |
| parent | 2f8837bff82e2c7375f2ad616580e51993bdc3c2 (diff) | |
| download | drakx-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.pm | 8 |
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; |