From 04a9d2b3139a6709aee4b9bc2debf047308a408c Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Wed, 6 Nov 2013 14:26:59 +0100 Subject: we no longuer have access to PANGO_SCALE_* with introspection --- perl-install/standalone/harddrake2 | 2 +- perl-install/ugtk3.pm | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/perl-install/standalone/harddrake2 b/perl-install/standalone/harddrake2 index 2de7059af..6bb33dc25 100755 --- a/perl-install/standalone/harddrake2 +++ b/perl-install/standalone/harddrake2 @@ -568,7 +568,7 @@ sub lookup_field { sub titleFormat { my ($title) = @_; - [ $title . "\n", { 'weight' => Pango->PANGO_WEIGHT_BOLD, scale => Pango->PANGO_SCALE_LARGE } ]; + [ $title . "\n", { 'weight' => Pango->PANGO_WEIGHT_BOLD, scale => 1.4399999999999 } ]; # Pango->PANGO_SCALE_LARGE } sub force_rename_field { diff --git a/perl-install/ugtk3.pm b/perl-install/ugtk3.pm index 6b3c6a1e0..4be3b3c15 100644 --- a/perl-install/ugtk3.pm +++ b/perl-install/ugtk3.pm @@ -312,7 +312,7 @@ sub markup_to_TextView_format { if ($attrs) { $attrs->{weight} eq 'bold' and $attrs->{weight} = Pango->PANGO_WEIGHT_BOLD; $attrs->{size} eq 'larger' and do { - $attrs->{scale} = Pango->scale_x_large; # equivalent to Label's size => 'larger' + $attrs->{scale} = 1.4399999999999; # PANGO_SCALE_X_LARGE: equivalent to Label's size => 'larger' delete $attrs->{size}; }; } -- cgit v1.2.1