From 465e8f2473783697a8b0ea890ab4251a36ca6f92 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Fri, 30 Aug 2013 17:37:54 +0200
Subject: fix setting locale with Gtk3

---
 perl-install/any.pm               | 2 +-
 perl-install/install/gtk.pm       | 2 +-
 perl-install/install/steps_gtk.pm | 2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/any.pm b/perl-install/any.pm
index a19b1c057..ea96ed8c6 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -1201,7 +1201,7 @@ sub selectLanguage_standalone {
     ]);
     $locale->{utf8} = !$non_utf8;
     lang::set($locale);
-    Gtk3->set_locale if $in->isa('interactive::gtk');
+    c::init_setlocale() if $in->isa('interactive::gtk');
     lang::lang_changed($locale) if $old_lang ne $locale->{lang};
 }
 
diff --git a/perl-install/install/gtk.pm b/perl-install/install/gtk.pm
index a60d6d678..ee0899b2e 100644
--- a/perl-install/install/gtk.pm
+++ b/perl-install/install/gtk.pm
@@ -202,7 +202,7 @@ q(<fontconfig>
     }
 
     Gtk3->init;
-    Gtk3->set_locale;
+    c::init_setlocale();
 }
 
 #------------------------------------------------------------------------------
diff --git a/perl-install/install/steps_gtk.pm b/perl-install/install/steps_gtk.pm
index 928c29336..c55324f84 100644
--- a/perl-install/install/steps_gtk.pm
+++ b/perl-install/install/steps_gtk.pm
@@ -180,7 +180,7 @@ sub leavingStep {
 
 sub charsetChanged {
     my ($o) = @_;
-    Gtk3->set_locale;
+    c::init_setlocale();
     install::gtk::load_font($o);
     install::gtk::create_steps_window($o);
 }
-- 
cgit v1.2.1