summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/install/NEWS1
-rw-r--r--perl-install/interactive/gtk.pm1
-rwxr-xr-xperl-install/standalone/display_installer_help4
3 files changed, 6 insertions, 0 deletions
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index e4db0aef9..ada2c59dc 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,5 +1,6 @@
- help dialogs:
o make screenshots work (mga#11176)
+ o fix untranslated button & title (mga#9828)
Version 16.23 - 16 January 2014
diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm
index 6b76b7d40..9b989b84f 100644
--- a/perl-install/interactive/gtk.pm
+++ b/perl-install/interactive/gtk.pm
@@ -838,6 +838,7 @@ sub display_help {
if ($common->{interactive_help}) {
output($f, $common->{interactive_help}->());
}
+ local $ENV{LC_ALL} = $::o->{locale}{lang} || 'C';
system('display_installer_help', $common->{interactive_help_id} || $f, $o->{locale}{lang});
}
diff --git a/perl-install/standalone/display_installer_help b/perl-install/standalone/display_installer_help
index 165ae6729..2a395daec 100755
--- a/perl-install/standalone/display_installer_help
+++ b/perl-install/standalone/display_installer_help
@@ -20,6 +20,7 @@
use lib qw(/usr/lib/libDrakX);
use interactive;
use any;
+use lang;
# so that screenshots works:
use install::any;
@@ -32,4 +33,7 @@ any::set_wm_hints_if_needed($in);
# Fake enough $o for retrieving the proper translation:
$::o = $in;
$::o->{locale}{lang} = $ARGV[1];
+$::prefix = '/';
+lang::set($::o->{locale});
+
$in->display_help_window({ interactive_help_id => $ARGV[0] });