222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
|
return;
}
return;
}
int TclKit_AppInit(Tcl_Interp *interp) {
#ifdef TCLKIT_CAN_SET_ENCODING
Tcl_DString encodingName;
#endif
#ifdef KIT_INCLUDES_ITCL
Tcl_StaticPackage(0, "Itcl", Itcl_Init, NULL);
#endif
#ifdef KIT_INCLUDES_MK4TCL
Tcl_StaticPackage(0, "Mk4tcl", Mk4tcl_Init, NULL);
#endif
|
>
>
>
>
>
>
>
|
|
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
|
return;
}
return;
}
int TclKit_AppInit(Tcl_Interp *interp) {
#ifdef KIT_INCLUDES_TK
# ifdef _WIN32
# ifndef _WIN32_WCE
char msgBuf[2049];
# endif /* !_WIN32_WCE */
# endif /* _WIN32 */
#endif /* KIT_INCLUDES_TK */
#ifdef TCLKIT_CAN_SET_ENCODING
Tcl_DString encodingName;
#endif /* TCLKIT_CAN_SET_ENCODING */
#ifdef KIT_INCLUDES_ITCL
Tcl_StaticPackage(0, "Itcl", Itcl_Init, NULL);
#endif
#ifdef KIT_INCLUDES_MK4TCL
Tcl_StaticPackage(0, "Mk4tcl", Mk4tcl_Init, NULL);
#endif
|
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
|
return TCL_OK;
error:
#ifdef KIT_INCLUDES_TK
# ifdef _WIN32
MessageBeep(MB_ICONEXCLAMATION);
# ifndef _WIN32_WCE
MessageBox(NULL, Tcl_GetStringResult(interp), "Error in TclKit",
MB_ICONSTOP | MB_OK | MB_TASKMODAL | MB_SETFOREGROUND);
ExitProcess(1);
# endif /* !_WIN32_WCE */
/* we won't reach this, but we need the return */
# endif /* _WIN32 */
#endif /* KIT_INCLUDES_TK */
return TCL_ERROR;
}
|
>
>
|
>
>
>
|
|
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
|
return TCL_OK;
error:
#ifdef KIT_INCLUDES_TK
# ifdef _WIN32
MessageBeep(MB_ICONEXCLAMATION);
# ifndef _WIN32_WCE
snprintf(msgBuf, sizeof(msgBuf),
"A critical error has occurred. Please report this to the Tclkit vendor.\nInterpreter Returned: %s\nError Info: %s",
Tcl_GetStringResult(interp),
Tcl_GetVar(interp, "errorInfo", TCL_GLOBAL_ONLY));
MessageBox(NULL, msgBuf, "Error in TclKit",
MB_ICONSTOP | MB_OK | MB_TASKMODAL | MB_SETFOREGROUND);
ExitProcess(1);
# endif /* !_WIN32_WCE */
/* we won't reach this, but we need the return */
# endif /* _WIN32 */
#endif /* KIT_INCLUDES_TK */
return TCL_ERROR;
}
|