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-wizard.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-wizard.pl')
| -rw-r--r-- | Master/tlpkg/installer/install-menu-wizard.pl | 14 |
1 files changed, 1 insertions, 13 deletions
diff --git a/Master/tlpkg/installer/install-menu-wizard.pl b/Master/tlpkg/installer/install-menu-wizard.pl index 3626047b38f..38eb81a7dbc 100644 --- a/Master/tlpkg/installer/install-menu-wizard.pl +++ b/Master/tlpkg/installer/install-menu-wizard.pl @@ -92,18 +92,6 @@ $::run_menu = \&run_menu_wizard; # From here on only function definitions # #################################################################### -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_wizard { @::info_hook = (); push @::info_hook, @@ -287,7 +275,7 @@ sub change_path { $sw->transient($mw); $sw->grab(); $sw->Label(-text => __('Enter path for') . " TEXDIR: ")->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'), -width => 10, |