diff options
author | Norbert Preining <norbert@preining.info> | 2021-04-02 03:20:54 +0000 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2021-04-02 03:20:54 +0000 |
commit | 3f173002d4a4a84e7d1fa5a74755fdd00d08a9c2 (patch) | |
tree | 5ed380344702de1f9ab53b68b6c3bcd6b8458087 /systems/texlive/tlnet/tlpkg/installer/install-menu-text.pl | |
parent | f78ba658b3ecd56053fe0837a4404d0c6c16a707 (diff) |
CTAN sync 202104020320
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/installer/install-menu-text.pl')
-rw-r--r-- | systems/texlive/tlnet/tlpkg/installer/install-menu-text.pl | 19 |
1 files changed, 8 insertions, 11 deletions
diff --git a/systems/texlive/tlnet/tlpkg/installer/install-menu-text.pl b/systems/texlive/tlnet/tlpkg/installer/install-menu-text.pl index 64b82ee0be..a7409f146e 100644 --- a/systems/texlive/tlnet/tlpkg/installer/install-menu-text.pl +++ b/systems/texlive/tlnet/tlpkg/installer/install-menu-text.pl @@ -1,5 +1,5 @@ #!/usr/bin/env perl -# $Id: install-menu-text.pl 57772 2021-02-17 19:01:36Z karl $ +# $Id: install-menu-text.pl 57970 2021-02-27 14:17:34Z siepo $ # install-menu-txt.pl # # Copyright 2007-2021 Norbert Preining, Karl Berry @@ -33,14 +33,14 @@ my $ptoggle_alert = "\n". " !! Portable option changed;\n" . " !! Directories have been reinitialized!\n"; -# @fileassocdesc also defined in install-tl -$::fileassocdesc[0] = "None"; -$::fileassocdesc[1] = "Only new"; -$::fileassocdesc[2] = "All"; +# some strings to describe the different meanings of tlpdbopt_file_assoc +$::fileassocdesc[0] = __("None"); +$::fileassocdesc[1] = __("Only new"); +$::fileassocdesc[2] = __("All"); -$::deskintdesc[0] = "None"; -$::deskintdesc[1] = "Menu shortcuts"; -if (win32() && is_seven()) { $::deskintdesc[2] = "Launcher"; } +$::deskintdesc[0] = __("None"); +$::deskintdesc[1] = __("Menu shortcuts"); +if (win32()) { $::deskintdesc[2] = __("Launcher"); } sub clear_screen { return 0 if ($::opt_no_cls); @@ -52,9 +52,6 @@ sub string_to_list { return split(//, $string); } -# ___, defined in install-tl, replaces the GUI translating function -*::__ = \&::___; - sub button { # for main menu: 1 char my $val=shift; my $vals=shift; # array ref to descriptions of possible values |