summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2013-11-22 16:24:42 +0100
committerThierry Vignaud <thierry.vignaud@gmail.com>2013-11-24 23:53:09 +0100
commit32dfc90e18b52dc5bc3928a46c5e946158d7aee1 (patch)
tree753d8a0617e7f316bcfabda8ef7b9224c364faa3 /perl-install
parent3e5eec0fb8d4099a5d0f9a4a16c0d26851ce6fd5 (diff)
downloaddrakx-32dfc90e18b52dc5bc3928a46c5e946158d7aee1.tar
drakx-32dfc90e18b52dc5bc3928a46c5e946158d7aee1.tar.gz
drakx-32dfc90e18b52dc5bc3928a46c5e946158d7aee1.tar.bz2
drakx-32dfc90e18b52dc5bc3928a46c5e946158d7aee1.tar.xz
drakx-32dfc90e18b52dc5bc3928a46c5e946158d7aee1.zip
Pango->PANGO_WEIGHT_BOLD is not available through introspection
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/harddrake24
-rw-r--r--perl-install/ugtk3.pm2
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};