use mygtk2::text_direction_rtl() instead of lang::text_direction_rtl()

since it's safer to rely on Gtk+ idea of direction than on our own DB

1 files changed, 7 insertions, 7 deletions

diff --git a/control-center b/control-center
index b120313d..2799c30a 100755
--- a/control-center
+++ b/control-center
@@ -752,8 +752,8 @@ sub request_url {
      $stream->close;
 }
 
-my $align = lang::text_direction_rtl() ? "right" : "justify";
-my $align2 = lang::text_direction_rtl() ? "right" : "left";
+my $align = mygtk2::text_direction_rtl() ? "right" : "justify";
+my $align2 = mygtk2::text_direction_rtl() ? "right" : "left";
 
 
 my $conf_file = '/etc/sysconfig/mcc.conf';
@@ -808,7 +808,7 @@ foreach (@tree) {
      margin-right: 10px;
  }
 ),
- if_(lang::text_direction_rtl(), "  a { direction: rtl; unicode-bidi: embed }"), qq(
+ if_(mygtk2::text_direction_rtl(), "  a { direction: rtl; unicode-bidi: embed }"), qq(
  a:link    {color:black; text-decoration:none }
  a:visited {color:black; text-decoration:none }
  a:hover   {color:blue }
@@ -845,7 +845,7 @@ foreach (@tree) {
 );
         if (@{$subtree->{list}} % 2) {
             my @widgets = (pop @{$subtree->{list}}, "");
-            @widgets = reverse @widgets if lang::text_direction_rtl();
+            @widgets = reverse @widgets if mygtk2::text_direction_rtl();
             push @{$subtree->{list}}, @widgets;
         }
     $string .= join("\n",
@@ -870,7 +870,7 @@ foreach (@tree) {
                               . escape_text_for_TextView_markup_format($programs{$label}{description})
                                 . qq(</DIV></A></TD>)
                         );
-                        @widgets = reverse @widgets if lang::text_direction_rtl();
+                        @widgets = reverse @widgets if mygtk2::text_direction_rtl();
                          qq(<TD WIDTH="49%">
 <TABLE align="$align2"><TR>
 @widgets
@@ -1421,13 +1421,13 @@ sub create_packtable2 {
 sub rtl_gtkcreate_pixbuf {
     my ($icon) = @_;
     my $pixbuf;
-    eval { $pixbuf = ugtk2::gtkcreate_pixbuf($icon . "_rtl") } if lang::text_direction_rtl();
+    eval { $pixbuf = ugtk2::gtkcreate_pixbuf($icon . "_rtl") } if mygtk2::text_direction_rtl();
     $pixbuf ||= ugtk2::gtkcreate_pixbuf($icon);
 }
 
 sub rtl_gtkcreate_img {
     my ($icon) = @_;
-    lang::text_direction_rtl() ? ugtk2::gtkcreate_img($icon . "_rtl") : ugtk2::gtkcreate_img($icon);
+    mygtk2::text_direction_rtl() ? ugtk2::gtkcreate_img($icon . "_rtl") : ugtk2::gtkcreate_img($icon);
 }
 
 sub new_pixbuf {