void
main(
int argc, /* Number of arguments. */
char **argv) /* Array of argument strings. */
{
char *newArgv[2];
if (MacintoshInit() != TCL_OK) {
Tcl_Exit(1);
}
argc = 1;
newArgv[0] = "Wish";
newArgv[1] = NULL;
/* Tk_Main is actually #defined to
* Tk_MainEx(argc, argv, Tcl_AppInit, Tcl_CreateInterp())
* Unfortunately, you also HAVE to call Tcl_FindExecutable
* BEFORE creating the first interp, or the tcl_library will not
* get set properly. So we call it by hand here...
*/
Tcl_FindExecutable(newArgv[0]);
Tk_Main(argc, newArgv, Tcl_AppInit);
}
void
main(
int argc, /* Number of arguments. */
char **argv) /* Array of argument strings. */
{
char *newArgv[2];
if (MacintoshInit() != TCL_OK) {
Tcl_Exit(1);
}
argc = 1;
newArgv[0] = "tclsh";
newArgv[1] = NULL;
Tcl_Main(argc, newArgv, Tcl_AppInit);
}
void
main( int argc, char **argv)
{
char *newArgv[2];
if (MacintoshInit() != TCL_OK) {
Tcl_Exit(1);
}
argc = 1;
newArgv[0] = "TclKit";
newArgv[1] = NULL;
Tcl_FindExecutable(newArgv[0]);
Tk_Main(argc, newArgv, TclKit_AppInit);
}
int
main(int argc, char *argv[])
{
if (MacintoshInit() != TCL_OK) {
Tcl_Exit(1);
}
init_ae();
ui_init();
init_lisp();
/* Has to be done here since interp is defined only after
initial_ui_init. */
TkMacInitAppleEvents(interp);
imfapp_main();
/* Humor the compiler. */
return 0;
}
