summaryrefslogtreecommitdiffstats
path: root/library
diff options
context:
space:
mode:
authorhobbs <hobbs>2000-08-06 00:11:17 (GMT)
committerhobbs <hobbs>2000-08-06 00:11:17 (GMT)
commit123abb82c44a1c5eaaa8c21cf24b24f251077a48 (patch)
treee7f03669d34d623099fa4beae174d1ae7263882f /library
parented4ea20537ac567b6a8448a6e76fbf1e8c7d84e3 (diff)
downloadtk-123abb82c44a1c5eaaa8c21cf24b24f251077a48.zip
tk-123abb82c44a1c5eaaa8c21cf24b24f251077a48.tar.gz
tk-123abb82c44a1c5eaaa8c21cf24b24f251077a48.tar.bz2
* library/safetk.tcl: rationalized the setting of tk_library when
initialized Tk in a safe interpreter.
Diffstat (limited to 'library')
-rw-r--r--library/safetk.tcl7
1 files changed, 6 insertions, 1 deletions
diff --git a/library/safetk.tcl b/library/safetk.tcl
index b2e0c02..3b01a78 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.6 2000/04/08 06:59:28 hobbs Exp $
+# RCS: @(#) $Id: safetk.tcl,v 1.7 2000/08/06 00:11:18 hobbs Exp $
#
# Copyright (c) 1997 Sun Microsystems, Inc.
#
@@ -37,6 +37,11 @@ namespace eval ::safe {
proc ::safe::tkInterpInit {slave argv} {
global env tk_library
+ # 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]]
+
# Clear Tk's access for that interp (path).
allowTk $slave $argv