]> git.saurik.com Git - wxWidgets.git/blob - wxPython/wxSWIG/swig_lib/tcl/mactclinit.c
Updates for building wxSWIG on Linux
[wxWidgets.git] / wxPython / wxSWIG / swig_lib / tcl / mactclinit.c
1 /*
2 * tclMacAppInit.c --
3 *
4 * Provides a version of the Tcl_AppInit procedure for the example shell.
5 *
6 * Copyright (c) 1993-1994 Lockheed Missle & Space Company, AI Center
7 * Copyright (c) 1995-1997 Sun Microsystems, Inc.
8 *
9 * See the file "license.terms" for information on usage and redistribution
10 * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
11 *
12 * SCCS: @(#) tclMacAppInit.c 1.17 97/01/21 18:13:34
13 */
14
15 #include "tcl.h"
16 #include "tclInt.h"
17 #include "tclMacInt.h"
18
19 #if defined(THINK_C)
20 # include <console.h>
21 #elif defined(__MWERKS__)
22 # include <SIOUX.h>
23 short InstallConsole _ANSI_ARGS_((short fd));
24 #endif
25
26
27
28 /*
29 *----------------------------------------------------------------------
30 *
31 * MacintoshInit --
32 *
33 * This procedure calls initalization routines to set up a simple
34 * console on a Macintosh. This is necessary as the Mac doesn't
35 * have a stdout & stderr by default.
36 *
37 * Results:
38 * Returns TCL_OK if everything went fine. If it didn't the
39 * application should probably fail.
40 *
41 * Side effects:
42 * Inits the appropiate console package.
43 *
44 *----------------------------------------------------------------------
45 */
46
47 #ifdef __cpluscplus
48 extern "C"
49 #endif
50 extern int
51 MacintoshInit()
52 {
53 #if defined(THINK_C)
54
55 /* Set options for Think C console package */
56 /* The console package calls the Mac init calls */
57 console_options.pause_atexit = 0;
58 console_options.title = "\pTcl Interpreter";
59
60 #elif defined(__MWERKS__)
61
62 /* Set options for CodeWarrior SIOUX package */
63 SIOUXSettings.autocloseonquit = true;
64 SIOUXSettings.showstatusline = true;
65 SIOUXSettings.asktosaveonclose = false;
66 InstallConsole(0);
67 SIOUXSetTitle("\pTcl Interpreter");
68
69 #elif defined(applec)
70
71 /* Init packages used by MPW SIOW package */
72 InitGraf((Ptr)&qd.thePort);
73 InitFonts();
74 InitWindows();
75 InitMenus();
76 TEInit();
77 InitDialogs(nil);
78 InitCursor();
79
80 #endif
81
82 TclMacSetEventProc((TclMacConvertEventPtr) SIOUXHandleOneEvent);
83
84 /* No problems with initialization */
85 return TCL_OK;
86 }