diff options
| -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 } |