391
392
393
394
395
396
397
398
399
400
401
402
403
404
|
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
|
+
+
+
+
|
Tcl_DStringFree(&encodingName);
#endif /* TCLKIT_CAN_SET_ENCODING */
/* Hack to get around Tcl bug 1224888. This must be run here and
* in LibraryPathObjCmd because this information is needed both
* before and after that command is run. */
FindAndSetExecName(interp);
#if defined(_WIN32) && defined(KIT_INCLUDES_TK)
Tk_InitConsoleChannels(interp);
#endif /* _WIN32 and KIT_INCLUDES_TK */
return;
}
#ifndef TCLKIT_DLL
int TclKit_AppInit(Tcl_Interp *interp) {
#ifdef KIT_INCLUDES_TK
|