222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
...
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
|
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
................................................................................
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;
}
|
>
>
>
>
>
>
>
<
>
>
>
|
>
>
>
|
|
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
...
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
|
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
................................................................................
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;
}
|