diff options
Diffstat (limited to 'tk/library/safetk.tcl')
| -rw-r--r-- | tk/library/safetk.tcl | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/tk/library/safetk.tcl b/tk/library/safetk.tcl index e8ca616eed4..8c0a12bea10 100644 --- a/tk/library/safetk.tcl +++ b/tk/library/safetk.tcl @@ -40,7 +40,7 @@ namespace eval ::safe { # We have to make sure that the tk_library variable uses a file # pathname that works better in Tk (of the style returned by # [file join], ie C:/path/to/tk/lib, not C:\path\to\tk\lib - set tk_library [eval [list file join] [file split $tk_library]] + set tk_library [file join $tk_library] # Clear Tk's access for that interp (path). allowTk $slave $argv @@ -275,5 +275,3 @@ proc ::safe::tkTopLevel {slave display} { } } - - |