diff options
Diffstat (limited to 'Master/tlpkg/installer/install-menu-perltk.pl')
-rw-r--r-- | Master/tlpkg/installer/install-menu-perltk.pl | 16 |
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++; } |