diff options
| author | Siep Kroonenberg <siepo@cybercomm.nl> | 2008-06-30 11:38:06 +0000 |
|---|---|---|
| committer | Siep Kroonenberg <siepo@cybercomm.nl> | 2008-06-30 11:38:06 +0000 |
| commit | 4f0826e0bc582ac20c5bc486e31f4f13e7995773 (patch) | |
| tree | 7ca1a0344f1bfe9629ac6e5c20b334418f05f08b | |
| parent | 7215436757d8fab9c6f09d0bc8972dd89e8fa11c (diff) | |
Perl/Tk directory popup: add hint about `~'
git-svn-id: svn://tug.org/texlive/trunk@9107 c570f23f-e606-0410-a88d-b1316a301751
| -rw-r--r-- | Master/tlpkg/installer/install-menu-perltk.pl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Master/tlpkg/installer/install-menu-perltk.pl b/Master/tlpkg/installer/install-menu-perltk.pl index f876df16ddc..6bf31c50c9c 100644 --- a/Master/tlpkg/installer/install-menu-perltk.pl +++ b/Master/tlpkg/installer/install-menu-perltk.pl @@ -127,6 +127,7 @@ my %text = ( title => 'TeX Live 2008 Installation', status => 'Status output', changevar => 'Change variable value', enterpath => 'Enter path for', + hinthome => ' (use ~ for HOME/USERPROFILE)', selectscheme => 'Select a Scheme', selectstdcol => 'Select the collections to be installed', selectall => 'Select All', @@ -369,7 +370,7 @@ sub menu_edit_vars_value { my $key = shift; my $sw = $mw->Toplevel(-title => $text{'changevar'}); my $val = $vars{$key}; - $sw->Label(-text => $text{'enterpath'} . " $key:")->pack; + $sw->Label(-text => $text{'enterpath'} . " $key:" . $text{'hinthome'})->pack; my $entry = $sw->Entry(-textvariable => $val, -width => 60); $entry->pack; my $f = $sw->Frame; |