diff options
author | Manuel Pégourié-Gonnard <mpg@elzevir.fr> | 2010-07-05 16:50:36 +0000 |
---|---|---|
committer | Manuel Pégourié-Gonnard <mpg@elzevir.fr> | 2010-07-05 16:50:36 +0000 |
commit | b7efa0d4f4b4ecf5e8eb51d5aded4b7c4df58dd6 (patch) | |
tree | 7a0d2569aee4d232dcd6f404ec6bbc29c650d8f1 /Master/tlpkg/installer/install-menu-perltk.pl | |
parent | 5209134cd9d89ac7808e5651bf530c736f2d7449 (diff) |
Adjustments to path display functions.
git-svn-id: svn://tug.org/texlive/trunk@19247 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/installer/install-menu-perltk.pl')
-rw-r--r-- | Master/tlpkg/installer/install-menu-perltk.pl | 15 |
1 files changed, 1 insertions, 14 deletions
diff --git a/Master/tlpkg/installer/install-menu-perltk.pl b/Master/tlpkg/installer/install-menu-perltk.pl index 008190880fc..bc2f9d586e3 100644 --- a/Master/tlpkg/installer/install-menu-perltk.pl +++ b/Master/tlpkg/installer/install-menu-perltk.pl @@ -90,19 +90,6 @@ $::run_menu = \&run_menu_perltk; # ################################################################## -sub native_slashify { - my ($r) = @_; - $r =~ s/\//\\/g if win32(); - return $r; -} - -sub forward_slashify { - my ($r) = @_; - $r =~ s/\\/\//g if win32(); - return $r; -} - - sub setup_hooks_perltk { @::info_hook = (); push @::info_hook, @@ -481,7 +468,7 @@ sub menu_edit_vars_value { $hint_var = win32() ? '%USERPROFILE%' : '$HOME'; } $sw->Label(-text => __("Enter path for %s (use ~ for %s)", $key, $hint_var))->pack(-padx => "2m", -pady => "2m"); - my $entry = $sw->Entry(-textvariable => native_slashify($val), -width => 60); + my $entry = $sw->Entry(-text => native_slashify($val), -width => 60); $entry->pack(-padx => "2m", -pady => "2m")->focus(); my $f = $sw->Frame; my $okbutton = $f->Button(-text => __("Ok"), |