summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2014-02-18 22:51:10 +0100
committerThierry Vignaud <thierry.vignaud@gmail.com>2014-02-18 22:51:10 +0100
commit3e259f9a398f035a161a8a0fa42c2b9c76fd73a3 (patch)
tree98a3bbf28e27ad219e9408a7bf47c61d1c43963d /perl-install
parent3fdeab1b9c33342d55a69b7af63ad2dcef042eb3 (diff)
downloaddrakx-3e259f9a398f035a161a8a0fa42c2b9c76fd73a3.tar
drakx-3e259f9a398f035a161a8a0fa42c2b9c76fd73a3.tar.gz
drakx-3e259f9a398f035a161a8a0fa42c2b9c76fd73a3.tar.bz2
drakx-3e259f9a398f035a161a8a0fa42c2b9c76fd73a3.tar.xz
drakx-3e259f9a398f035a161a8a0fa42c2b9c76fd73a3.zip
fix crash when choosing a RTL language (mga#12793)
*** Gtk3::Widget::set_default_direction: passed too many parameters (expected 1, got 2); ignoring excess at /usr/lib/libDrakX/install/gtk.pm line 74. * error: FATAL: invalid enum GtkTextDirection value Gtk3::Widget, expecting: none / GTK_TEXT_DIR_NONE, ltr / GTK_TEXT_DIR_LTR, rtl / GTK_TEXT_DIR_RTL at /usr/lib/perl5/vendor_perl/5.18.2/i386-linux-thread-multi/Glib/Object/Introspection.pm line 59.
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install/NEWS1
-rw-r--r--perl-install/install/gtk.pm2
2 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index 9a2fa08df..e7330ffc2 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,3 +1,4 @@
+- fix crash when choosing a RTL language (mga#12793)
- Ensure uid/gid extraction works when adding users via summary page
(fixes chown'ing user to root when adding existing user on upgrade mga#12375)
diff --git a/perl-install/install/gtk.pm b/perl-install/install/gtk.pm
index f9e6bf71c..41d43d42d 100644
--- a/perl-install/install/gtk.pm
+++ b/perl-install/install/gtk.pm
@@ -71,7 +71,7 @@ sub load_font {
my ($o) = @_;
if (defined($::WizardWindow) && lang::text_direction_rtl()) {
- Gtk3::Widget->set_default_direction('rtl');
+ Gtk3::Widget::set_default_direction('rtl');
my ($x, $y) = $::WizardWindow->get_position;
my ($width) = $::WizardWindow->get_size;
$::WizardWindow->move($::rootwidth - $width - $x, $y);