summaryrefslogtreecommitdiff
path: root/Master
diff options
context:
space:
mode:
authorSiep Kroonenberg <siepo@cybercomm.nl>2008-06-30 11:38:06 +0000
committerSiep Kroonenberg <siepo@cybercomm.nl>2008-06-30 11:38:06 +0000
commit4f0826e0bc582ac20c5bc486e31f4f13e7995773 (patch)
tree7ca1a0344f1bfe9629ac6e5c20b334418f05f08b /Master
parent7215436757d8fab9c6f09d0bc8972dd89e8fa11c (diff)
Perl/Tk directory popup: add hint about `~'
git-svn-id: svn://tug.org/texlive/trunk@9107 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-rw-r--r--Master/tlpkg/installer/install-menu-perltk.pl3
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;