summaryrefslogtreecommitdiffstats
path: root/library/safetk.tcl
diff options
context:
space:
mode:
authorhobbs <hobbs>2000-10-31 01:11:51 (GMT)
committerhobbs <hobbs>2000-10-31 01:11:51 (GMT)
commit678fe1edf87b52d01df6a6e0653f5aef06798cea (patch)
tree0d4a1bf41fbb10db1d9207629be25cbea99306e5 /library/safetk.tcl
parentec4d821835dd620c01f7c252f6c7b737d22a00f0 (diff)
downloadtk-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.tcl4
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