diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2012-08-01 17:26:31 +0200 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2013-11-24 21:28:33 +0100 |
| commit | 602108d3f37701dcecdeb9697c05c3b9d76eb67a (patch) | |
| tree | ab635ba0aebbd2dba969c86160eb26423c53c25d /perl-install/standalone | |
| parent | 504f6c89db28716c7038153fb7838565b4ba0583 (diff) | |
| download | drakx-602108d3f37701dcecdeb9697c05c3b9d76eb67a.tar drakx-602108d3f37701dcecdeb9697c05c3b9d76eb67a.tar.gz drakx-602108d3f37701dcecdeb9697c05c3b9d76eb67a.tar.bz2 drakx-602108d3f37701dcecdeb9697c05c3b9d76eb67a.tar.xz drakx-602108d3f37701dcecdeb9697c05c3b9d76eb67a.zip | |
Gtk2::Pango -> Pango
Diffstat (limited to 'perl-install/standalone')
| -rwxr-xr-x | perl-install/standalone/harddrake2 | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/standalone/harddrake2 b/perl-install/standalone/harddrake2 index bd1bcd9d0..4a605c480 100755 --- a/perl-install/standalone/harddrake2 +++ b/perl-install/standalone/harddrake2 @@ -309,7 +309,7 @@ $tree->get_selection->signal_connect('changed' => sub { ($current_device, $current_class) = @{$data[$idx]}; if ($idx ne -1) { - use Gtk2::Pango; + use Pango; my %device_fields = map { # The U+200E character is to force LTR display, as what what follows the colon is always in LTR (device names, paths, etc), # this ensures proper displaying of names like /dev/fd0 (otherwise it gets 'dev/fd0/'). @@ -317,7 +317,7 @@ $tree->get_selection->signal_connect('changed' => sub { my $field = lookup_field($_); if_($_ && $field->[0], $_ => [ - [ $field->[0] . ": \x{200e}", { 'foreground' => 'royalblue3', 'weight' => Gtk2::Pango->PANGO_WEIGHT_BOLD } ], + [ $field->[0] . ": \x{200e}", { 'foreground' => 'royalblue3', 'weight' => Pango->PANGO_WEIGHT_BOLD } ], [ ($current_device->{$_} =~ /^(unknown)/ ? N("unknown") : $current_device->{$_} =~ /^(Unknown)/ ? N("Unknown") : $current_device->{$_} eq 'yes' ? N("Yes") : @@ -569,7 +569,7 @@ sub lookup_field { sub titleFormat { my ($title) = @_; - [ $title . "\n", { 'weight' => Gtk2::Pango->PANGO_WEIGHT_BOLD, scale => Gtk2::Pango->PANGO_SCALE_LARGE } ]; + [ $title . "\n", { 'weight' => Pango->PANGO_WEIGHT_BOLD, scale => Pango->PANGO_SCALE_LARGE } ]; } sub force_rename_field { |