diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2013-11-06 14:26:59 +0100 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2013-11-24 23:28:13 +0100 |
| commit | 04a9d2b3139a6709aee4b9bc2debf047308a408c (patch) | |
| tree | 4766ddfcc65d26ac5b93a75a3cf4b73de8d070d1 | |
| parent | 35f9c81c361e8f1856a457d087d26670878c2c6e (diff) | |
| download | drakx-04a9d2b3139a6709aee4b9bc2debf047308a408c.tar drakx-04a9d2b3139a6709aee4b9bc2debf047308a408c.tar.gz drakx-04a9d2b3139a6709aee4b9bc2debf047308a408c.tar.bz2 drakx-04a9d2b3139a6709aee4b9bc2debf047308a408c.tar.xz drakx-04a9d2b3139a6709aee4b9bc2debf047308a408c.zip | |
we no longuer have access to PANGO_SCALE_* with introspection
| -rwxr-xr-x | perl-install/standalone/harddrake2 | 2 | ||||
| -rw-r--r-- | 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}; }; } |