summaryrefslogtreecommitdiff
path: root/Master/tlpkg/installer/install-menu-perltk.pl
diff options
context:
space:
mode:
authorManuel Pégourié-Gonnard <mpg@elzevir.fr>2010-07-16 14:43:39 +0000
committerManuel Pégourié-Gonnard <mpg@elzevir.fr>2010-07-16 14:43:39 +0000
commit60ac6377e8e1c294355476e59006328f211fd810 (patch)
treeb593658b3a7775ba849e70c63ac1a9082c72b331 /Master/tlpkg/installer/install-menu-perltk.pl
parent7cbfc915e83083abb33fe940efda460956eaf9f6 (diff)
Translate shortdesc of schemes and collections in the perltk installer.
git-svn-id: svn://tug.org/texlive/trunk@19479 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/installer/install-menu-perltk.pl')
-rw-r--r--Master/tlpkg/installer/install-menu-perltk.pl16
1 files changed, 8 insertions, 8 deletions
diff --git a/Master/tlpkg/installer/install-menu-perltk.pl b/Master/tlpkg/installer/install-menu-perltk.pl
index 7321c91bdc9..7f75d0e2907 100644
--- a/Master/tlpkg/installer/install-menu-perltk.pl
+++ b/Master/tlpkg/installer/install-menu-perltk.pl
@@ -557,10 +557,10 @@ sub menu_select_scheme {
my $b;
if ($i < $nrfh) {
$b = $f2l->Radiobutton(-variable => \$selected, -value => $scheme,
- -text => $tlpobj->shortdesc)->pack(-anchor => 'w');
+ -text => __($tlpobj->shortdesc))->pack(-anchor => 'w');
} else {
$b = $f2r->Radiobutton(-variable => \$selected, -value => $scheme,
- -text => $tlpobj->shortdesc)->pack(-anchor => 'w');
+ -text => __($tlpobj->shortdesc))->pack(-anchor => 'w');
}
if ($selected eq $scheme) {
$b->focus();
@@ -596,9 +596,9 @@ sub menu_select_standard_collections {
foreach my $coll (sort @collections_std) {
my $tlpobj = $tlpdb->get_package("$coll");
if ($i < $halfcol) {
- $f1->Checkbutton(-variable => \$lvars{$coll}, -text => $tlpobj->shortdesc)->pack(-anchor => 'w');
+ $f1->Checkbutton(-variable => \$lvars{$coll}, -text => __($tlpobj->shortdesc))->pack(-anchor => 'w');
} else {
- $f2->Checkbutton(-variable => \$lvars{$coll}, -text => $tlpobj->shortdesc)->pack(-anchor => 'w');
+ $f2->Checkbutton(-variable => \$lvars{$coll}, -text => __($tlpobj->shortdesc))->pack(-anchor => 'w');
}
$i++;
}
@@ -639,9 +639,9 @@ sub menu_select_lang_collections {
foreach my $coll (sort @collections_lang) {
my $tlpobj = $tlpdb->get_package("$coll");
if ($i < $langh) {
- $f1langLa->Checkbutton(-variable => \$lvars{$coll}, -text => $tlpobj->shortdesc)->pack(-anchor => 'w');
+ $f1langLa->Checkbutton(-variable => \$lvars{$coll}, -text => __($tlpobj->shortdesc))->pack(-anchor => 'w');
} else {
- $f1langLb->Checkbutton(-variable => \$lvars{$coll}, -text => $tlpobj->shortdesc)->pack(-anchor => 'w');
+ $f1langLb->Checkbutton(-variable => \$lvars{$coll}, -text => __($tlpobj->shortdesc))->pack(-anchor => 'w');
}
$i++;
}
@@ -661,9 +661,9 @@ sub menu_select_lang_collections {
foreach my $coll (sort @collections_lang_doc) {
my $tlpobj = $tlpdb->get_package("$coll");
if ($i < $doch) {
- $f1docLa->Checkbutton(-variable => \$lvars{$coll}, -text => $tlpobj->shortdesc)->pack(-anchor => 'w');
+ $f1docLa->Checkbutton(-variable => \$lvars{$coll}, -text => __($tlpobj->shortdesc))->pack(-anchor => 'w');
} else {
- $f1docLb->Checkbutton(-variable => \$lvars{$coll}, -text => $tlpobj->shortdesc)->pack(-anchor => 'w');
+ $f1docLb->Checkbutton(-variable => \$lvars{$coll}, -text => __($tlpobj->shortdesc))->pack(-anchor => 'w');
}
$i++;
}