summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2013-09-06 12:51:32 +0200
committerThierry Vignaud <thierry.vignaud@gmail.com>2013-11-24 21:28:35 +0100
commit99b1943996623b48db883434aaa9f82a6650403a (patch)
tree0a0535afff14887dff0e187e1777e3fcb78a0c2c /perl-install
parenta90c75de317ece497ecd0da553c3a0666ae4fd16 (diff)
downloaddrakx-99b1943996623b48db883434aaa9f82a6650403a.tar
drakx-99b1943996623b48db883434aaa9f82a6650403a.tar.gz
drakx-99b1943996623b48db883434aaa9f82a6650403a.tar.bz2
drakx-99b1943996623b48db883434aaa9f82a6650403a.tar.xz
drakx-99b1943996623b48db883434aaa9f82a6650403a.zip
use Pango as binded by Gtk3
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/harddrake21
-rw-r--r--perl-install/ugtk3.pm2
2 files changed, 1 insertions, 2 deletions
diff --git a/perl-install/standalone/harddrake2 b/perl-install/standalone/harddrake2
index c857dbb03..2de7059af 100755
--- a/perl-install/standalone/harddrake2
+++ b/perl-install/standalone/harddrake2
@@ -309,7 +309,6 @@ $tree->get_selection->signal_connect('changed' => sub {
($current_device, $current_class) = @{$data[$idx]};
if ($idx ne -1) {
- 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/').
diff --git a/perl-install/ugtk3.pm b/perl-install/ugtk3.pm
index 192d7a6a9..99c4ce5a8 100644
--- a/perl-install/ugtk3.pm
+++ b/perl-install/ugtk3.pm
@@ -310,7 +310,7 @@ sub markup_to_TextView_format {
foreach (@$l) {
my ($_txt, $attrs) = @$_;
if ($attrs) {
- $attrs->{weight} eq 'bold' and $attrs->{weight} = do { require Pango; Pango->PANGO_WEIGHT_BOLD };
+ $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'
delete $attrs->{size};