diff options
author | Norbert Preining <preining@logic.at> | 2009-09-03 07:39:21 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2009-09-03 07:39:21 +0000 |
commit | 354d95800a0aeff3779b0511cdcdf3beb801dcbb (patch) | |
tree | d2aa38b30561fdf527a2287e1302d21c9fcffa39 /Master/texmf | |
parent | 75dd6c4cf9d482c52035776ec4363b1dc7c1fe69 (diff) |
use sprintf on the translated string with the rest of the arguments,
replace 2009 in many places by %s and added arguemtn TL:TLC:ReleaseYear
git-svn-id: svn://tug.org/texlive/trunk@15017 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf')
-rw-r--r-- | Master/texmf/scripts/texlive/tlmgrgui/gui-uninstall.pl | 4 | ||||
-rwxr-xr-x | Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui.pl | 6 |
2 files changed, 5 insertions, 5 deletions
diff --git a/Master/texmf/scripts/texlive/tlmgrgui/gui-uninstall.pl b/Master/texmf/scripts/texlive/tlmgrgui/gui-uninstall.pl index 1e881b3547a..0c889f002d0 100644 --- a/Master/texmf/scripts/texlive/tlmgrgui/gui-uninstall.pl +++ b/Master/texmf/scripts/texlive/tlmgrgui/gui-uninstall.pl @@ -17,14 +17,14 @@ if ($^O=~/^MSWin(32|64)$/i) { $lab->pack(-padx => "10m", -pady => "5m"); } else { my $lab = $back_f3->Label(-justify => 'left', - -text => __("Really remove the complete TeX Live 2009 installation?\nYour last chance to change your mind!")); + -text => __("Really remove the complete TeX Live %s installation?\nYour last chance to change your mind!", $TeXLive::TLConfig::ReleaseYear)); $lab->pack(-padx => "10m", -pady => "5m"); my $f = $back_f3->Frame; $f->pack(-padx => "10m", -pady => "5m"); - my $ok = $f->Button(-text => __("Remove TeX Live 2009"), + my $ok = $f->Button(-text => __("Remove TeX Live %s", $TeXLive::TLConfig::ReleaseYear), -state => $::action_button_state, -command => sub { system("tlmgr", "uninstall", "--force"); diff --git a/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui.pl b/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui.pl index d6dd99a018a..c910c7cf5c4 100755 --- a/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui.pl +++ b/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui.pl @@ -234,7 +234,7 @@ $mw->deiconify; if (!$::we_can_save) { my $no_write_warn = $mw->Dialog(-title => "warning", - -text => __("You don't have permissions to change the installation in any way,\nspecifically the following directory is not writable: ") . "$Master/tlpkg\n" . __("Please run this program as administrator, or contact your local admin.\n\nMost buttons will be disabled."), + -text => __("You don't have permissions to change the installation in any way,\nspecifically, the directory %s is not writable.\nPlease run this program as administrator, or contact your local admin.\n\nMost buttons will be disabled.", "$Master/tlpkg/"), -buttons => [ __("Ok") ])->Show(); } @@ -254,7 +254,7 @@ sub init_install_media { if (!defined($tlmediasrc)) { # something went badly wrong, maybe the newroot is wrong? $mw->Dialog(-title => "warning", - -text => __("Could not load the TeX Live Database from \$newroot\nIf you want to install or update packages, please try with a different package repository!\n\nFor configuration and removal you don\'t have to do anything."), + -text => __("Could not load the TeX Live Database from %s\nIf you want to install or update packages, please try with a different package repository!\n\nFor configuration and removal you don\'t have to do anything.", $newroot), -buttons => [ __("Ok") ])->Show; $location = __("...please change me..."); @allpackages = (); @@ -533,7 +533,7 @@ sub execute_action_gui { sub give_warning_window { my ($act, @args) = @_; my $sw = $mw->DialogBox(-title => __("Warning Window"), -buttons => [ __("Ok") ]); - $sw->add("Label", -text => $act . "@args" . __(": failed.\nPlease consult the log window for details.") + $sw->add("Label", -text => __("Running %s failed.\nPlease consult the log window for details.", "$act @args") )->pack(-padx => "3m", -pady => "3m"); $sw->Show; } |