summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2013-11-18 01:17:13 +0100
committerThierry Vignaud <thierry.vignaud@gmail.com>2013-11-24 23:28:18 +0100
commitc9349d3f46f2f01cd286f6121c749e83192b6817 (patch)
treea4346cd245b5bf804083abf19b2a1e35deb311ae /perl-install
parentbd4da8d9900c122bf0c2b372adc78d298066f00d (diff)
downloaddrakx-c9349d3f46f2f01cd286f6121c749e83192b6817.tar
drakx-c9349d3f46f2f01cd286f6121c749e83192b6817.tar.gz
drakx-c9349d3f46f2f01cd286f6121c749e83192b6817.tar.bz2
drakx-c9349d3f46f2f01cd286f6121c749e83192b6817.tar.xz
drakx-c9349d3f46f2f01cd286f6121c749e83192b6817.zip
lang package is not needed here
also compute language direction only once
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/ugtk3.pm5
1 files changed, 2 insertions, 3 deletions
diff --git a/perl-install/ugtk3.pm b/perl-install/ugtk3.pm
index 47b91b510..ee2f8fe3a 100644
--- a/perl-install/ugtk3.pm
+++ b/perl-install/ugtk3.pm
@@ -1455,11 +1455,10 @@ sub new {
$darea->modify_font(Pango::FontDescription->from_string("13"));
eval { $darea->{icon} = ugtk3::gtkcreate_pixbuf($icon) };
$darea->{icon} ||= ugtk3::gtkcreate_pixbuf(ugtk3::wm_icon());
- my $blue_part = eval { gtknew('Pixbuf', file => 'banner-blue-part', flip => mygtk3::text_direction_rtl()) };
+ my $is_rtl = mygtk3::text_direction_rtl();
+ my $blue_part = eval { gtknew('Pixbuf', file => 'banner-blue-part', flip => $is_rtl) };
my $blue_width = $blue_part->get_width;
$darea->{text} = $text;
- require lang;
- my $is_rtl = lang::text_direction_rtl();
$darea->signal_connect(realize => \&set_pixmap);
$darea->signal_connect("style-set" => \&set_pixmap);