You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
93 lines
2.4 KiB
93 lines
2.4 KiB
/* ----------------------------------------------------------------------------- |
|
* See the LICENSE file for information on copyright, usage and redistribution |
|
* of SWIG, and the README file for authors - http://www.swig.org/release.html. |
|
* |
|
* mactclinit.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 __cplusplus |
|
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; |
|
}
|
|
|