Check-in [b6937cc4c5]
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) {