KitCreator
Check-in [b6937cc4c5]
Login
HomeDownloadsSource CodeTicketsWiki
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
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified kitsh/buildsrc/kitsh-0.0/kitInit.c from [de7a0cddb9] to [3cb384a768].

︙
223
224
225
226
227
228
229
230

231
232
233
234
235

236
237
238
239
240
241
242

223
224
225
226
227
228
229

230
231
232
233
234

235
236
237
238
239
240
241
242








-
+




-
+








	"catch {load {} registry}\n"
#endif /* _WIN32 */
	"return 0\n"
"}\n"
"tclKitInit";

static const char initScript[] =
"if {[file isfile [file join [info nameofexe] main.tcl]]} {\n"
"if {[file isfile [file join " TCLKIT_VFSSOURCE " main.tcl]]} {\n"
	"if {[info commands console] != {}} { console hide }\n"
	"set tcl_interactive 0\n"
	"incr argc\n"
	"set argv [linsert $argv 0 $argv0]\n"
	"set argv0 [file join [info nameofexe] main.tcl]\n"
	"set argv0 [file join " TCLKIT_VFSSOURCE " main.tcl]\n"
"} else continue\n";

/* SetExecName --

   Hack to get around Tcl bug 1224888.
*/
static void SetExecName(Tcl_Interp *interp, const char *path) {
︙

Powered by Fossil · RSS