From 17cd25f0628f8e86c73166c9984499309c448751 Mon Sep 17 00:00:00 2001
From: Pat Thoyts <patthoyts@users.sourceforge.net>
Date: Fri, 30 Mar 2007 21:43:07 +0000
Subject: [PATCH] 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
---
 kitInit.c | 6 ++++++
 1 file changed, 6 insertions(+)

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.
-- 
2.23.0