diff options
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"), |