summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/any.pm2
-rw-r--r--perl-install/install/gtk.pm2
-rw-r--r--perl-install/install/steps_gtk.pm2
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);
}