static int
MacintoshInit()
{
THz theZone = GetZone();
SysEnvRec sys;
/*
* There is a bug in systems earlier that 7.5.5, where a second BOA will
* get a corrupted heap. This is the fix from TechNote 1070
*/
SysEnvirons(1, &sys);
if (sys.systemVersion < 0x0755)
{
if ( LMGetHeapEnd() != theZone->bkLim) {
LMSetHeapEnd(theZone->bkLim);
}
}
#if GENERATING68K && !GENERATINGCFM
SetApplLimit(GetApplLimit() - (TCL_MAC_68K_STACK_GROWTH));
#endif
MaxApplZone();
InitGraf((Ptr)&qd.thePort);
/* No problems with initialization */
Tcl_MacSetEventProc(HandleHighLevelEvents);
return TCL_OK;
}
static int
MacintoshInit()
{
MaxApplZone();
MoreMasters();
MoreMasters();
MoreMasters();
MoreMasters();
tcl_macQdPtr = &qd;
if (TkMacHaveAppearance()) {
RegisterAppearanceClient();
}
InitGraf(&tcl_macQdPtr->thePort);
InitFonts();
if (TkMacHaveAppearance() >= 0x110) {
InitFloatingWindows();
} else {
InitWindows();
}
InitMenus();
InitDialogs((long) NULL);
InitCursor();
FlushEvents(everyEvent, 0);
SetEventMask(everyEvent);
Tcl_MacSetEventProc(TkMacConvertEvent);
return TCL_OK;
}
static void
_macinit()
{
if (!call_macinit) {
tcl_macQdPtr = &qd; /* setup QuickDraw globals */
Tcl_MacSetEventProc(TkMacConvertEvent); /* setup event handler */
call_macinit = 1;
}
}
static int
MacintoshInit()
{
#if GENERATING68K && !GENERATINGCFM
SetApplLimit(GetApplLimit() - (TCL_MAC_68K_STACK_GROWTH));
#endif
MaxApplZone();
#if defined(THINK_C)
/* Set options for Think C console package */
/* The console package calls the Mac init calls */
console_options.pause_atexit = 0;
console_options.title = "\pTcl Interpreter";
#elif defined(__MWERKS__)
/* Set options for CodeWarrior SIOUX package */
SIOUXSettings.autocloseonquit = true;
SIOUXSettings.showstatusline = true;
SIOUXSettings.asktosaveonclose = false;
SIOUXSettings.wasteusetempmemory = true;
InstallConsole(0);
SIOUXSetTitle("\pTcl Interpreter");
#elif defined(applec)
/* Init packages used by MPW SIOW package */
InitGraf((Ptr)&qd.thePort);
InitFonts();
InitWindows();
InitMenus();
TEInit();
InitDialogs(nil);
InitCursor();
#endif
Tcl_MacSetEventProc((Tcl_MacConvertEventPtr) SIOUXHandleOneEvent);
/* No problems with initialization */
return TCL_OK;
}
static int
MacintoshInit()
{
int i;
long result, mask = 0x0700; /* mask = system 7.x */
#if GENERATING68K && !GENERATINGCFM
SetApplLimit(GetApplLimit() - (TK_MAC_68K_STACK_GROWTH));
#endif
MaxApplZone();
for (i = 0; i < 4; i++) {
(void) MoreMasters();
}
/*
* Tk needs us to set the qd pointer it uses. This is needed
* so Tk doesn't have to assume the availablity of the qd global
* variable. Which in turn allows Tk to be used in code resources.
*/
tcl_macQdPtr = &qd;
/*
* If appearance is present, then register Tk as an Appearance client
* This means that the mapping from non-Appearance to Appearance cdefs
* will be done for Tk regardless of the setting in the Appearance
* control panel.
*/
if (TkMacHaveAppearance()) {
RegisterAppearanceClient();
}
InitGraf(&tcl_macQdPtr->thePort);
InitFonts();
if (TkMacHaveAppearance() >= 0x110) {
InitFloatingWindows();
} else {
InitWindows();
}
InitMenus();
InitDialogs((long) NULL);
InitCursor();
/*
* Make sure we are running on system 7 or higher
*/
if ((NGetTrapAddress(_Gestalt, ToolTrap) ==
NGetTrapAddress(_Unimplemented, ToolTrap))
|| (((Gestalt(gestaltSystemVersion, &result) != noErr)
|| (result < mask)))) {
panic("Tcl/Tk requires System 7 or higher.");
}
/*
* Make sure we have color quick draw
* (this means we can't run on 68000 macs)
*/
if (((Gestalt(gestaltQuickdrawVersion, &result) != noErr)
|| (result < gestalt32BitQD13))) {
panic("Tk requires Color QuickDraw.");
}
FlushEvents(everyEvent, 0);
SetEventMask(everyEvent);
Tcl_MacSetEventProc(TkMacConvertEvent);
return TCL_OK;
}
