From 5ee8ad29451722fa4177178864227f63cf4c696e Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Sun, 18 Oct 2009 01:41:28 +0000 Subject: make non-latin character users on Windows happy with tlmgr gui git-svn-id: svn://tug.org/texlive/trunk@15823 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf/scripts/texlive/tlmgrgui/gui-config.pl | 2 +- Master/texmf/scripts/texlive/tlmgrgui/gui-uninstall.pl | 2 +- Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui.pl | 6 +++--- 3 files changed, 5 insertions(+), 5 deletions(-) diff --git a/Master/texmf/scripts/texlive/tlmgrgui/gui-config.pl b/Master/texmf/scripts/texlive/tlmgrgui/gui-config.pl index bbca304b8dd..1a4ff96bbfb 100644 --- a/Master/texmf/scripts/texlive/tlmgrgui/gui-config.pl +++ b/Master/texmf/scripts/texlive/tlmgrgui/gui-config.pl @@ -7,7 +7,7 @@ # GUI for tlmgr # -our $back_config = $back->add("config",-label => __("Configuration")); +our $back_config = $back->add("config",-label => __("Configuration"), -justify => "left"); $screens{"config"} = $back_config; my @fileassocdesc; diff --git a/Master/texmf/scripts/texlive/tlmgrgui/gui-uninstall.pl b/Master/texmf/scripts/texlive/tlmgrgui/gui-uninstall.pl index 0c889f002d0..ba3047945a1 100644 --- a/Master/texmf/scripts/texlive/tlmgrgui/gui-uninstall.pl +++ b/Master/texmf/scripts/texlive/tlmgrgui/gui-uninstall.pl @@ -7,7 +7,7 @@ # GUI for tlmgr # -our $back_f3 = $back->add("uninstall", -label => __("Uninstallation")); +our $back_f3 = $back->add("uninstall", -label => __("Uninstallation"), -justify => "left"); $screens{"uninstall"} = $back_f3; if ($^O=~/^MSWin(32|64)$/i) { diff --git a/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui.pl b/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui.pl index d380d70f32d..253b254ef44 100755 --- a/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui.pl +++ b/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui.pl @@ -172,7 +172,7 @@ $back->pack(-side => 'top', -fill => 'both', -expand => 1); require ("do_listframe.pl"); # install screen -our $back_f1 = $back->add("install",-label => __("Installation")); +our $back_f1 = $back->add("install",-label => __("Installation"), -justify => "left"); $screens{"install"} = $back_f1; my ($install_win, $install_lb) = do_listframe($back_f1, __("Adding packages"), @@ -183,7 +183,7 @@ my ($install_win, $install_lb) = do_listframe($back_f1, ); set_text_win($install_win, __("The database of the package repository has not been loaded.\n\nPlease use the \"Load\" (and possibly \"Change\") button to do so.")); # update screen -our $back_up = $back->add("update", -label => __("Update")); +our $back_up = $back->add("update", -label => __("Update"), -justify => "left"); $screens{"update"} = $back_up; my $critical_updates_present = 0; my ($update_win, $update_lb) = do_listframe($back_up, @@ -200,7 +200,7 @@ my ($update_win, $update_lb) = do_listframe($back_up, ); set_text_win($update_win, __("The database of the package repository has not been loaded.\n\nPlease use the \"Load\" (and possibly \"Change\") button to do so.")); # remove screen -our $back_f2 = $back->add("remove", -label => __("Remove")); +our $back_f2 = $back->add("remove", -label => __("Remove"), -justify => "left"); $screens{"remove"} = $back_f2; my ($remove_win, $remove_lb) = do_listframe($back_f2, __("Removing packages"), -- cgit v1.2.3