diff options
| author | Pablo Saratxaga <pablo@mandriva.com> | 2000-04-30 02:21:44 +0000 |
|---|---|---|
| committer | Pablo Saratxaga <pablo@mandriva.com> | 2000-04-30 02:21:44 +0000 |
| commit | 410c3aa5db5600f94559ccd507e569863aba458b (patch) | |
| tree | f145f66e21e641e070aa7900493111e5d8597031 /perl-install | |
| parent | 87b4bc37165d6311d61ae87cb2a2fcf099726a99 (diff) | |
| download | drakx-410c3aa5db5600f94559ccd507e569863aba458b.tar drakx-410c3aa5db5600f94559ccd507e569863aba458b.tar.gz drakx-410c3aa5db5600f94559ccd507e569863aba458b.tar.bz2 drakx-410c3aa5db5600f94559ccd507e569863aba458b.tar.xz drakx-410c3aa5db5600f94559ccd507e569863aba458b.zip | |
Small i18n fixes
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/ChangeLog | 8 | ||||
| -rw-r--r-- | perl-install/common.pm | 2 | ||||
| -rw-r--r-- | perl-install/my_gtk.pm | 1 |
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 } |