From 17cd25f0628f8e86c73166c9984499309c448751 Mon Sep 17 00:00:00 2001 From: Pat Thoyts 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