| 1 | /* appinit.c -- Tcl and Tk application initialization.
|
|---|
| 2 |
|
|---|
| 3 | The function Tcl_AppInit() below initializes various Tcl packages.
|
|---|
| 4 | It is called for each Tcl interpreter created by _tkinter.create().
|
|---|
| 5 | It needs to be compiled with -DWITH_<package> flags for each package
|
|---|
| 6 | that you are statically linking with. You may have to add sections
|
|---|
| 7 | for packages not yet listed below.
|
|---|
| 8 |
|
|---|
| 9 | Note that those packages for which Tcl_StaticPackage() is called with
|
|---|
| 10 | a NULL first argument are known as "static loadable" packages to
|
|---|
| 11 | Tcl but not actually initialized. To use these, you have to load
|
|---|
| 12 | it explicitly, e.g. tkapp.eval("load {} Blt").
|
|---|
| 13 | */
|
|---|
| 14 |
|
|---|
| 15 | #include <string.h>
|
|---|
| 16 | #include <tcl.h>
|
|---|
| 17 | #include <tk.h>
|
|---|
| 18 |
|
|---|
| 19 | int
|
|---|
| 20 | Tcl_AppInit(Tcl_Interp *interp)
|
|---|
| 21 | {
|
|---|
| 22 | Tk_Window main_window;
|
|---|
| 23 | const char * _tkinter_skip_tk_init;
|
|---|
| 24 |
|
|---|
| 25 | #ifdef TK_AQUA
|
|---|
| 26 | #ifndef MAX_PATH_LEN
|
|---|
| 27 | #define MAX_PATH_LEN 1024
|
|---|
| 28 | #endif
|
|---|
| 29 | char tclLibPath[MAX_PATH_LEN], tkLibPath[MAX_PATH_LEN];
|
|---|
| 30 | Tcl_Obj* pathPtr;
|
|---|
| 31 |
|
|---|
| 32 | /* pre- Tcl_Init code copied from tkMacOSXAppInit.c */
|
|---|
| 33 | Tk_MacOSXOpenBundleResources (interp, "com.tcltk.tcllibrary",
|
|---|
| 34 | tclLibPath, MAX_PATH_LEN, 0);
|
|---|
| 35 |
|
|---|
| 36 | if (tclLibPath[0] != '\0') {
|
|---|
| 37 | Tcl_SetVar(interp, "tcl_library", tclLibPath, TCL_GLOBAL_ONLY);
|
|---|
| 38 | Tcl_SetVar(interp, "tclDefaultLibrary", tclLibPath, TCL_GLOBAL_ONLY);
|
|---|
| 39 | Tcl_SetVar(interp, "tcl_pkgPath", tclLibPath, TCL_GLOBAL_ONLY);
|
|---|
| 40 | }
|
|---|
| 41 |
|
|---|
| 42 | if (tclLibPath[0] != '\0') {
|
|---|
| 43 | Tcl_SetVar(interp, "tcl_library", tclLibPath, TCL_GLOBAL_ONLY);
|
|---|
| 44 | Tcl_SetVar(interp, "tclDefaultLibrary", tclLibPath, TCL_GLOBAL_ONLY);
|
|---|
| 45 | Tcl_SetVar(interp, "tcl_pkgPath", tclLibPath, TCL_GLOBAL_ONLY);
|
|---|
| 46 | }
|
|---|
| 47 | #endif
|
|---|
| 48 | if (Tcl_Init (interp) == TCL_ERROR)
|
|---|
| 49 | return TCL_ERROR;
|
|---|
| 50 |
|
|---|
| 51 | #ifdef TK_AQUA
|
|---|
| 52 | /* pre- Tk_Init code copied from tkMacOSXAppInit.c */
|
|---|
| 53 | Tk_MacOSXOpenBundleResources (interp, "com.tcltk.tklibrary",
|
|---|
| 54 | tkLibPath, MAX_PATH_LEN, 1);
|
|---|
| 55 |
|
|---|
| 56 | if (tclLibPath[0] != '\0') {
|
|---|
| 57 | pathPtr = Tcl_NewStringObj(tclLibPath, -1);
|
|---|
| 58 | } else {
|
|---|
| 59 | Tcl_Obj *pathPtr = TclGetLibraryPath();
|
|---|
| 60 | }
|
|---|
| 61 |
|
|---|
| 62 | if (tkLibPath[0] != '\0') {
|
|---|
| 63 | Tcl_Obj *objPtr;
|
|---|
| 64 |
|
|---|
| 65 | Tcl_SetVar(interp, "tk_library", tkLibPath, TCL_GLOBAL_ONLY);
|
|---|
| 66 | objPtr = Tcl_NewStringObj(tkLibPath, -1);
|
|---|
| 67 | Tcl_ListObjAppendElement(NULL, pathPtr, objPtr);
|
|---|
| 68 | }
|
|---|
| 69 |
|
|---|
| 70 | TclSetLibraryPath(pathPtr);
|
|---|
| 71 | #endif
|
|---|
| 72 |
|
|---|
| 73 | #ifdef WITH_XXX
|
|---|
| 74 | // Initialize modules that don't require Tk
|
|---|
| 75 | #endif
|
|---|
| 76 |
|
|---|
| 77 | _tkinter_skip_tk_init = Tcl_GetVar(interp, "_tkinter_skip_tk_init", TCL_GLOBAL_ONLY);
|
|---|
| 78 | if (_tkinter_skip_tk_init != NULL && strcmp(_tkinter_skip_tk_init, "1") == 0) {
|
|---|
| 79 | return TCL_OK;
|
|---|
| 80 | }
|
|---|
| 81 | if (Tk_Init(interp) == TCL_ERROR)
|
|---|
| 82 | return TCL_ERROR;
|
|---|
| 83 |
|
|---|
| 84 | main_window = Tk_MainWindow(interp);
|
|---|
| 85 |
|
|---|
| 86 | #ifdef TK_AQUA
|
|---|
| 87 | TkMacOSXInitAppleEvents(interp);
|
|---|
| 88 | TkMacOSXInitMenus(interp);
|
|---|
| 89 | #endif
|
|---|
| 90 |
|
|---|
| 91 | #ifdef WITH_MOREBUTTONS
|
|---|
| 92 | {
|
|---|
| 93 | extern Tcl_CmdProc studButtonCmd;
|
|---|
| 94 | extern Tcl_CmdProc triButtonCmd;
|
|---|
| 95 |
|
|---|
| 96 | Tcl_CreateCommand(interp, "studbutton", studButtonCmd,
|
|---|
| 97 | (ClientData) main_window, NULL);
|
|---|
| 98 | Tcl_CreateCommand(interp, "tributton", triButtonCmd,
|
|---|
| 99 | (ClientData) main_window, NULL);
|
|---|
| 100 | }
|
|---|
| 101 | #endif
|
|---|
| 102 |
|
|---|
| 103 | #ifdef WITH_PIL /* 0.2b5 and later -- not yet released as of May 14 */
|
|---|
| 104 | {
|
|---|
| 105 | extern void TkImaging_Init(Tcl_Interp *);
|
|---|
| 106 | TkImaging_Init(interp);
|
|---|
| 107 | /* XXX TkImaging_Init() doesn't have the right return type */
|
|---|
| 108 | /*Tcl_StaticPackage(interp, "Imaging", TkImaging_Init, NULL);*/
|
|---|
| 109 | }
|
|---|
| 110 | #endif
|
|---|
| 111 |
|
|---|
| 112 | #ifdef WITH_PIL_OLD /* 0.2b4 and earlier */
|
|---|
| 113 | {
|
|---|
| 114 | extern void TkImaging_Init(void);
|
|---|
| 115 | /* XXX TkImaging_Init() doesn't have the right prototype */
|
|---|
| 116 | /*Tcl_StaticPackage(interp, "Imaging", TkImaging_Init, NULL);*/
|
|---|
| 117 | }
|
|---|
| 118 | #endif
|
|---|
| 119 |
|
|---|
| 120 | #ifdef WITH_TIX
|
|---|
| 121 | {
|
|---|
| 122 | extern int Tix_Init(Tcl_Interp *interp);
|
|---|
| 123 | extern int Tix_SafeInit(Tcl_Interp *interp);
|
|---|
| 124 | Tcl_StaticPackage(NULL, "Tix", Tix_Init, Tix_SafeInit);
|
|---|
| 125 | }
|
|---|
| 126 | #endif
|
|---|
| 127 |
|
|---|
| 128 | #ifdef WITH_BLT
|
|---|
| 129 | {
|
|---|
| 130 | extern int Blt_Init(Tcl_Interp *);
|
|---|
| 131 | extern int Blt_SafeInit(Tcl_Interp *);
|
|---|
| 132 | Tcl_StaticPackage(NULL, "Blt", Blt_Init, Blt_SafeInit);
|
|---|
| 133 | }
|
|---|
| 134 | #endif
|
|---|
| 135 |
|
|---|
| 136 | #ifdef WITH_TOGL
|
|---|
| 137 | {
|
|---|
| 138 | /* XXX I've heard rumors that this doesn't work */
|
|---|
| 139 | extern int Togl_Init(Tcl_Interp *);
|
|---|
| 140 | /* XXX Is there no Togl_SafeInit? */
|
|---|
| 141 | Tcl_StaticPackage(NULL, "Togl", Togl_Init, NULL);
|
|---|
| 142 | }
|
|---|
| 143 | #endif
|
|---|
| 144 |
|
|---|
| 145 | #ifdef WITH_XXX
|
|---|
| 146 |
|
|---|
| 147 | #endif
|
|---|
| 148 | return TCL_OK;
|
|---|
| 149 | }
|
|---|
