c90f71dd8c
special cases and other things in wxPython, and since I plan on making several more, I've decided to put the SWIG sources in wxPython's CVS instead of relying on maintaining patches. This effectivly becomes a fork of an obsolete version of SWIG, :-( but since SWIG 1.3 still doesn't have some things I rely on in 1.1, not to mention that my custom patches would all have to be redone, I felt that this is the easier road to take. git-svn-id: https://svn.wxwidgets.org/svn/wx/wxWidgets/trunk@15307 c3d73ce0-8a6f-49c7-b76d-6d57e0e08775
87 lines
2.0 KiB
C
87 lines
2.0 KiB
C
/*
|
|
* tclMacAppInit.c --
|
|
*
|
|
* Provides a version of the Tcl_AppInit procedure for the example shell.
|
|
*
|
|
* Copyright (c) 1993-1994 Lockheed Missle & Space Company, AI Center
|
|
* Copyright (c) 1995-1997 Sun Microsystems, Inc.
|
|
*
|
|
* See the file "license.terms" for information on usage and redistribution
|
|
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
|
|
*
|
|
* SCCS: @(#) tclMacAppInit.c 1.17 97/01/21 18:13:34
|
|
*/
|
|
|
|
#include "tcl.h"
|
|
#include "tclInt.h"
|
|
#include "tclMacInt.h"
|
|
|
|
#if defined(THINK_C)
|
|
# include <console.h>
|
|
#elif defined(__MWERKS__)
|
|
# include <SIOUX.h>
|
|
short InstallConsole _ANSI_ARGS_((short fd));
|
|
#endif
|
|
|
|
|
|
|
|
/*
|
|
*----------------------------------------------------------------------
|
|
*
|
|
* MacintoshInit --
|
|
*
|
|
* This procedure calls initalization routines to set up a simple
|
|
* console on a Macintosh. This is necessary as the Mac doesn't
|
|
* have a stdout & stderr by default.
|
|
*
|
|
* Results:
|
|
* Returns TCL_OK if everything went fine. If it didn't the
|
|
* application should probably fail.
|
|
*
|
|
* Side effects:
|
|
* Inits the appropiate console package.
|
|
*
|
|
*----------------------------------------------------------------------
|
|
*/
|
|
|
|
#ifdef __cpluscplus
|
|
extern "C"
|
|
#endif
|
|
extern int
|
|
MacintoshInit()
|
|
{
|
|
#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;
|
|
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
|
|
|
|
TclMacSetEventProc((TclMacConvertEventPtr) SIOUXHandleOneEvent);
|
|
|
|
/* No problems with initialization */
|
|
return TCL_OK;
|
|
}
|