From 4f0826e0bc582ac20c5bc486e31f4f13e7995773 Mon Sep 17 00:00:00 2001 From: Siep Kroonenberg Date: Mon, 30 Jun 2008 11:38:06 +0000 Subject: Perl/Tk directory popup: add hint about `~' git-svn-id: svn://tug.org/texlive/trunk@9107 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/installer/install-menu-perltk.pl | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'Master/tlpkg') 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; -- cgit v1.2.3