Overview
Comment: | Fixed issue with locating main.tcl on KitDLLs |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: | b6937cc4c5ce90707a349dcac4464754f2e24723 |
User & Date: | rkeene on 2015-05-29 17:08:48 |
Other Links: | manifest | tags |
Context
2015-08-05
| ||
03:27 | Updated URL to tcllib check-in: faeac9b5b2 user: rkeene tags: trunk | |
2015-05-29
| ||
17:08 | Fixed issue with locating main.tcl on KitDLLs check-in: b6937cc4c5 user: rkeene tags: trunk | |
17:08 | Fixed bug where dynamictk was always applied check-in: 360c2ef691 user: rkeene tags: trunk | |
Changes
Modified kitsh/buildsrc/kitsh-0.0/kitInit.c from [de7a0cddb9] to [3cb384a768].
223 223 "catch {load {} registry}\n" 224 224 #endif /* _WIN32 */ 225 225 "return 0\n" 226 226 "}\n" 227 227 "tclKitInit"; 228 228 229 229 static const char initScript[] = 230 -"if {[file isfile [file join [info nameofexe] main.tcl]]} {\n" 230 +"if {[file isfile [file join " TCLKIT_VFSSOURCE " main.tcl]]} {\n" 231 231 "if {[info commands console] != {}} { console hide }\n" 232 232 "set tcl_interactive 0\n" 233 233 "incr argc\n" 234 234 "set argv [linsert $argv 0 $argv0]\n" 235 - "set argv0 [file join [info nameofexe] main.tcl]\n" 235 + "set argv0 [file join " TCLKIT_VFSSOURCE " main.tcl]\n" 236 236 "} else continue\n"; 237 237 238 238 /* SetExecName -- 239 239 240 240 Hack to get around Tcl bug 1224888. 241 241 */ 242 242 static void SetExecName(Tcl_Interp *interp, const char *path) {