summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPablo Saratxaga <pablo@mandriva.com>2000-04-30 02:21:44 +0000
committerPablo Saratxaga <pablo@mandriva.com>2000-04-30 02:21:44 +0000
commit410c3aa5db5600f94559ccd507e569863aba458b (patch)
treef145f66e21e641e070aa7900493111e5d8597031 /perl-install
parent87b4bc37165d6311d61ae87cb2a2fcf099726a99 (diff)
downloaddrakx-backup-do-not-use-410c3aa5db5600f94559ccd507e569863aba458b.tar
drakx-backup-do-not-use-410c3aa5db5600f94559ccd507e569863aba458b.tar.gz
drakx-backup-do-not-use-410c3aa5db5600f94559ccd507e569863aba458b.tar.bz2
drakx-backup-do-not-use-410c3aa5db5600f94559ccd507e569863aba458b.tar.xz
drakx-backup-do-not-use-410c3aa5db5600f94559ccd507e569863aba458b.zip
Small i18n fixes
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/ChangeLog8
-rw-r--r--perl-install/common.pm2
-rw-r--r--perl-install/my_gtk.pm1
3 files changed, 10 insertions, 1 deletions
diff --git a/perl-install/ChangeLog b/perl-install/ChangeLog
index e5c211df5..70e577850 100644
--- a/perl-install/ChangeLog
+++ b/perl-install/ChangeLog
@@ -1,3 +1,11 @@
+2000-04-29 Pablo Saratxaga <pablo@mandrakesoft.com>
+
+ * my_gtk.pm: added call to Gtk->init; that makes 16 bit locales
+ text to be properly aligned (reported by Craig Chang
+ <craig_chang@taipei.siscomm.com.tw>)
+ * common.pm: now that po handling is correct, I changed the order
+ of reading variables so that it follows the standards ($LANGUAGE first)
+
2000-04-28 François Pons <fpons@mandrakesoft.com>
* install_steps*.pm: added support for selection of package during
diff --git a/perl-install/common.pm b/perl-install/common.pm
index 9442e97f9..34e869636 100644
--- a/perl-install/common.pm
+++ b/perl-install/common.pm
@@ -287,7 +287,7 @@ sub unmakedev { $_[0] >> 8, $_[0] & 0xff }
sub translate {
my ($s) = @_;
- my ($lang) = $ENV{LANG} || $ENV{LANGUAGE} || $ENV{LC_MESSAGES} || $ENV{LC_ALL} || 'en';
+ my ($lang) = $ENV{LANGUAGE} || $ENV{LC_MESSAGES} || $ENV{LC_ALL} || $ENV{LANG} || 'en';
require lang;
foreach (split ':', $lang) {
diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm
index 8fb641f87..ed3f5cd16 100644
--- a/perl-install/my_gtk.pm
+++ b/perl-install/my_gtk.pm
@@ -33,6 +33,7 @@ sub new {
my ($type, $title, %opts) = @_;
Gtk->init;
+ Gtk->set_locale;
my $o = bless { %opts }, $type;
$o->_create_window($title);
while (my $e = shift @tempory::objects) { $e->destroy }