From 410c3aa5db5600f94559ccd507e569863aba458b Mon Sep 17 00:00:00 2001 From: Pablo Saratxaga Date: Sun, 30 Apr 2000 02:21:44 +0000 Subject: Small i18n fixes --- perl-install/ChangeLog | 8 ++++++++ perl-install/common.pm | 2 +- perl-install/my_gtk.pm | 1 + 3 files changed, 10 insertions(+), 1 deletion(-) (limited to 'perl-install') 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 + + * my_gtk.pm: added call to Gtk->init; that makes 16 bit locales + text to be properly aligned (reported by Craig Chang + ) + * 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 * 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 } -- cgit v1.2.1