diff options
| author | hobbs <hobbs> | 2000-10-31 01:11:51 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2000-10-31 01:11:51 (GMT) |
| commit | 678fe1edf87b52d01df6a6e0653f5aef06798cea (patch) | |
| tree | 0d4a1bf41fbb10db1d9207629be25cbea99306e5 /library/safetk.tcl | |
| parent | ec4d821835dd620c01f7c252f6c7b737d22a00f0 (diff) | |
| download | tk-678fe1edf87b52d01df6a6e0653f5aef06798cea.zip tk-678fe1edf87b52d01df6a6e0653f5aef06798cea.tar.gz tk-678fe1edf87b52d01df6a6e0653f5aef06798cea.tar.bz2 | |
simplified tk_library path normalization call
Diffstat (limited to 'library/safetk.tcl')
| -rw-r--r-- | library/safetk.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/library/safetk.tcl b/library/safetk.tcl index 3b01a78..1993ade 100644 --- a/library/safetk.tcl +++ b/library/safetk.tcl @@ -2,7 +2,7 @@ # # Support procs to use Tk in safe interpreters. # -# RCS: @(#) $Id: safetk.tcl,v 1.7 2000/08/06 00:11:18 hobbs Exp $ +# RCS: @(#) $Id: safetk.tcl,v 1.8 2000/10/31 01:11:51 hobbs Exp $ # # Copyright (c) 1997 Sun Microsystems, Inc. # @@ -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 |