summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
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);