3 files changed, 3 insertions, 3 deletions
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);
 }