diff options
| author | hobbs <hobbs@noemail.net> | 2000-08-05 23:52:06 (GMT) |
|---|---|---|
| committer | hobbs <hobbs@noemail.net> | 2000-08-05 23:52:06 (GMT) |
| commit | df77f1ea3a03fdcd8ae9b0ffcf0560a4259274ea (patch) | |
| tree | 90eafec0b1a30c32aa2cad8b9181c6e807e71574 | |
| parent | b79be3071ae124541976927d7370c8c26a2f36a9 (diff) | |
| download | tk-df77f1ea3a03fdcd8ae9b0ffcf0560a4259274ea.zip tk-df77f1ea3a03fdcd8ae9b0ffcf0560a4259274ea.tar.gz tk-df77f1ea3a03fdcd8ae9b0ffcf0560a4259274ea.tar.bz2 | |
* library/safetk.tcl: rationalized the setting of tk_library when
initialized Tk in a safe interpreter.
FossilOrigin-Name: c30c1bb462472d8c40553443821f592374000aef
| -rw-r--r-- | library/safetk.tcl | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/library/safetk.tcl b/library/safetk.tcl index b2e0c02..5287d5e 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.6.2.1 2000/08/05 23:52:07 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 |