From 3f173002d4a4a84e7d1fa5a74755fdd00d08a9c2 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Fri, 2 Apr 2021 03:20:54 +0000 Subject: CTAN sync 202104020320 --- .../tlnet/tlpkg/installer/install-menu-text.pl | 19 ++++++++----------- 1 file changed, 8 insertions(+), 11 deletions(-) (limited to 'systems/texlive/tlnet/tlpkg/installer/install-menu-text.pl') 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 -- cgit v1.2.3