From: Pat Thoyts <patthoyts@users.sourceforge.net>
Date: Fri, 30 Mar 2007 21:43:07 +0000 (+0000)
Subject: In 8.5 we need to set tcl_library correctly for slave interpreters.
X-Git-Url: http://privyetmir.co.uk/gitweb?a=commitdiff_plain;h=17cd25f0628f8e86c73166c9984499309c448751;p=kitgen

In 8.5 we need to set tcl_library correctly for slave interpreters.


git-svn-id: svn://svn.equi4.com/kitgen/trunk@1339 9e558909-932a-0410-a563-af77432da1eb
---

diff --git a/kitInit.c b/kitInit.c
index 931bce7..3dd1a8f 100644
--- a/kitInit.c
+++ b/kitInit.c
@@ -109,6 +109,12 @@ static char appInitCmd[] =
 static char preInitCmd[] =
 "proc tclKitPreInit {} {\n"
     "rename tclKitPreInit {}\n"
+    /* In 8.5 we need to set these paths for child interps */
+    "global tcl_library tcl_libPath tcl_version\n"
+    "set noe [info nameofexecutable]\n"
+    "set tcl_library [file join $noe lib tcl$tcl_version]\n"
+    "set tcl_libPath [list $tcl_library [file join $noe lib]]\n"
+    "set tcl_pkgPath [list $tcl_library [file join $noe lib]]\n"
 /*
  * XXX: We should consider adding mk4tcl, pwb, rechan, zlib, vfs, Thread
  * XXX: and Tk as pre-defined packages here as well.