diff options
Diffstat (limited to 'Master/tlpkg')
-rwxr-xr-x | Master/tlpkg/bin/tl-update-messages | 2 | ||||
-rw-r--r-- | Master/tlpkg/installer/install-menu-text.pl | 5 | ||||
-rw-r--r-- | Master/tlpkg/installer/tracked-install.pl | 4 |
3 files changed, 9 insertions, 2 deletions
diff --git a/Master/tlpkg/bin/tl-update-messages b/Master/tlpkg/bin/tl-update-messages index cd15cf7c8df..b243dd4c74c 100755 --- a/Master/tlpkg/bin/tl-update-messages +++ b/Master/tlpkg/bin/tl-update-messages @@ -21,6 +21,8 @@ xgettext -o tlpkg/translations/messages.pot \ --package-version=2010 \ --package-name="TeX Live" \ -k__ -k\$__ -k%__ -k__x -k__n:1,2 -k__nx:1,2 -k__xn:1,2 -kN__ -k \ + install-tl \ + tlpkg/installer/tracked-install.pl \ tlpkg/installer/install-menu-wizard.pl \ tlpkg/installer/install-menu-perltk.pl \ texmf-dist/scripts/texlive/tlmgrgui.pl \ diff --git a/Master/tlpkg/installer/install-menu-text.pl b/Master/tlpkg/installer/install-menu-text.pl index 6fe12d42cd5..07268bb782b 100644 --- a/Master/tlpkg/installer/install-menu-text.pl +++ b/Master/tlpkg/installer/install-menu-text.pl @@ -52,6 +52,11 @@ sub string_to_list { return split(//, $string); } +sub __ { + my $s = shift; + return sprintf($s, @_); +} + sub button { # for main menu: 1 char my $val=shift; my $vals=shift; # array ref to descriptions of possible values diff --git a/Master/tlpkg/installer/tracked-install.pl b/Master/tlpkg/installer/tracked-install.pl index bdc12e3f041..54ec22599d5 100644 --- a/Master/tlpkg/installer/tracked-install.pl +++ b/Master/tlpkg/installer/tracked-install.pl @@ -65,8 +65,8 @@ sub installer_tracker { $::progressw->tagConfigure('centered', -justify => 'center'); # basic welcome message foreach my $t (@::welcome_arr) { - my $s = shift @$t; - $::progressw->insert("end", __($s, @$t)."\n", 'centered'); + #my $s = shift @$t; + $::progressw->insert("end", "$t\n", 'centered'); } $::progressw->insert("end", "\n"); # additional info |