From 32dfc90e18b52dc5bc3928a46c5e946158d7aee1 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Fri, 22 Nov 2013 16:24:42 +0100 Subject: Pango->PANGO_WEIGHT_BOLD is not available through introspection --- perl-install/standalone/harddrake2 | 4 ++-- perl-install/ugtk3.pm | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/perl-install/standalone/harddrake2 b/perl-install/standalone/harddrake2 index 824af3aa1..3862a0614 100755 --- a/perl-install/standalone/harddrake2 +++ b/perl-install/standalone/harddrake2 @@ -285,7 +285,7 @@ $tree->get_selection->signal_connect('changed' => sub { my $field = lookup_field($_); if_($_ && $field->[0], $_ => [ - [ $field->[0] . ": \x{200e}", { 'foreground' => 'royalblue3', 'weight' => Pango->PANGO_WEIGHT_BOLD } ], + [ $field->[0] . ": \x{200e}", { 'foreground' => 'royalblue3', 'weight' => 'bold' } ], [ ($current_device->{$_} =~ /^(unknown)/ ? N("unknown") : $current_device->{$_} =~ /^(Unknown)/ ? N("Unknown") : $current_device->{$_} eq 'yes' ? N("Yes") : @@ -585,7 +585,7 @@ sub lookup_field { sub titleFormat { my ($title) = @_; - [ $title . "\n", { 'weight' => Pango->PANGO_WEIGHT_BOLD, scale => 1.4399999999999 } ]; # Pango->PANGO_SCALE_LARGE + [ $title . "\n", { '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 59d8fae49..e136d6701 100644 --- a/perl-install/ugtk3.pm +++ b/perl-install/ugtk3.pm @@ -311,7 +311,7 @@ sub markup_to_TextView_format { foreach (@$l) { my ($_txt, $attrs) = @$_; if ($attrs) { - $attrs->{weight} eq 'bold' and $attrs->{weight} = Pango->PANGO_WEIGHT_BOLD; + $attrs->{weight} eq 'bold' and $attrs->{weight} = 'bold'; $attrs->{size} eq 'larger' and do { $attrs->{scale} = 1.4399999999999; # PANGO_SCALE_X_LARGE: equivalent to Label's size => 'larger' delete $attrs->{size}; -- cgit v1.2.1