summaryrefslogtreecommitdiff
path: root/Master/tlpkg/installer/install-menu-perltk.pl
diff options
context:
space:
mode:
authorManuel Pégourié-Gonnard <mpg@elzevir.fr>2010-07-05 16:50:36 +0000
committerManuel Pégourié-Gonnard <mpg@elzevir.fr>2010-07-05 16:50:36 +0000
commitb7efa0d4f4b4ecf5e8eb51d5aded4b7c4df58dd6 (patch)
tree7a0d2569aee4d232dcd6f404ec6bbc29c650d8f1 /Master/tlpkg/installer/install-menu-perltk.pl
parent5209134cd9d89ac7808e5651bf530c736f2d7449 (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.pl15
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"),