Guido van Rossum | 7a206c8 | 1997-11-22 17:34:41 +0000 | [diff] [blame] | 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 | */ |
Guido van Rossum | f713247 | 1994-06-27 08:00:16 +0000 | [diff] [blame] | 14 | |
| 15 | #include <tcl.h> |
| 16 | #include <tk.h> |
| 17 | |
| 18 | int |
Peter Schneider-Kamp | faaad37 | 2000-07-10 09:26:41 +0000 | [diff] [blame] | 19 | Tcl_AppInit(Tcl_Interp *interp) |
Guido van Rossum | f713247 | 1994-06-27 08:00:16 +0000 | [diff] [blame] | 20 | { |
Moshe Zadka | 6a078ed | 2000-08-04 15:53:06 +0000 | [diff] [blame] | 21 | Tk_Window main_window; |
David Ascher | e2b4b32 | 2004-02-18 05:59:53 +0000 | [diff] [blame] | 22 | const char * _tkinter_skip_tk_init; |
Guido van Rossum | f713247 | 1994-06-27 08:00:16 +0000 | [diff] [blame] | 23 | |
Jack Jansen | cb85244 | 2001-12-09 23:15:56 +0000 | [diff] [blame] | 24 | #ifdef TK_AQUA |
| 25 | #ifndef MAX_PATH_LEN |
| 26 | #define MAX_PATH_LEN 1024 |
| 27 | #endif |
| 28 | char tclLibPath[MAX_PATH_LEN], tkLibPath[MAX_PATH_LEN]; |
| 29 | Tcl_Obj* pathPtr; |
| 30 | |
| 31 | /* pre- Tcl_Init code copied from tkMacOSXAppInit.c */ |
| 32 | Tk_MacOSXOpenBundleResources (interp, "com.tcltk.tcllibrary", |
| 33 | tclLibPath, MAX_PATH_LEN, 0); |
| 34 | |
| 35 | if (tclLibPath[0] != '\0') { |
| 36 | Tcl_SetVar(interp, "tcl_library", tclLibPath, TCL_GLOBAL_ONLY); |
| 37 | Tcl_SetVar(interp, "tclDefaultLibrary", tclLibPath, TCL_GLOBAL_ONLY); |
| 38 | Tcl_SetVar(interp, "tcl_pkgPath", tclLibPath, TCL_GLOBAL_ONLY); |
| 39 | } |
| 40 | |
| 41 | if (tclLibPath[0] != '\0') { |
| 42 | Tcl_SetVar(interp, "tcl_library", tclLibPath, TCL_GLOBAL_ONLY); |
| 43 | Tcl_SetVar(interp, "tclDefaultLibrary", tclLibPath, TCL_GLOBAL_ONLY); |
| 44 | Tcl_SetVar(interp, "tcl_pkgPath", tclLibPath, TCL_GLOBAL_ONLY); |
| 45 | } |
| 46 | #endif |
Barry Warsaw | 845a4c6 | 1997-01-14 17:36:36 +0000 | [diff] [blame] | 47 | if (Tcl_Init (interp) == TCL_ERROR) |
| 48 | return TCL_ERROR; |
Jack Jansen | cb85244 | 2001-12-09 23:15:56 +0000 | [diff] [blame] | 49 | |
| 50 | #ifdef TK_AQUA |
| 51 | /* pre- Tk_Init code copied from tkMacOSXAppInit.c */ |
| 52 | Tk_MacOSXOpenBundleResources (interp, "com.tcltk.tklibrary", |
| 53 | tkLibPath, MAX_PATH_LEN, 1); |
| 54 | |
| 55 | if (tclLibPath[0] != '\0') { |
| 56 | pathPtr = Tcl_NewStringObj(tclLibPath, -1); |
| 57 | } else { |
| 58 | Tcl_Obj *pathPtr = TclGetLibraryPath(); |
| 59 | } |
| 60 | |
| 61 | if (tkLibPath[0] != '\0') { |
| 62 | Tcl_Obj *objPtr; |
| 63 | |
| 64 | Tcl_SetVar(interp, "tk_library", tkLibPath, TCL_GLOBAL_ONLY); |
| 65 | objPtr = Tcl_NewStringObj(tkLibPath, -1); |
| 66 | Tcl_ListObjAppendElement(NULL, pathPtr, objPtr); |
| 67 | } |
| 68 | |
| 69 | TclSetLibraryPath(pathPtr); |
| 70 | #endif |
| 71 | |
David Ascher | e2b4b32 | 2004-02-18 05:59:53 +0000 | [diff] [blame] | 72 | #ifdef WITH_XXX |
| 73 | // Initialize modules that don't require Tk |
| 74 | #endif |
| 75 | |
| 76 | _tkinter_skip_tk_init = Tcl_GetVar(interp, "_tkinter_skip_tk_init", TCL_GLOBAL_ONLY); |
| 77 | if (_tkinter_skip_tk_init != NULL && strcmp(_tkinter_skip_tk_init, "1") == 0) { |
| 78 | return TCL_OK; |
| 79 | } |
| 80 | if (Tk_Init(interp) == TCL_ERROR) |
Barry Warsaw | 845a4c6 | 1997-01-14 17:36:36 +0000 | [diff] [blame] | 81 | return TCL_ERROR; |
Guido van Rossum | f713247 | 1994-06-27 08:00:16 +0000 | [diff] [blame] | 82 | |
Moshe Zadka | 6a078ed | 2000-08-04 15:53:06 +0000 | [diff] [blame] | 83 | main_window = Tk_MainWindow(interp); |
Guido van Rossum | e168c65 | 1999-11-05 18:11:23 +0000 | [diff] [blame] | 84 | |
Jack Jansen | cb85244 | 2001-12-09 23:15:56 +0000 | [diff] [blame] | 85 | #ifdef TK_AQUA |
| 86 | TkMacOSXInitAppleEvents(interp); |
| 87 | TkMacOSXInitMenus(interp); |
| 88 | #endif |
| 89 | |
Guido van Rossum | f713247 | 1994-06-27 08:00:16 +0000 | [diff] [blame] | 90 | #ifdef WITH_MOREBUTTONS |
Barry Warsaw | 845a4c6 | 1997-01-14 17:36:36 +0000 | [diff] [blame] | 91 | { |
| 92 | extern Tcl_CmdProc studButtonCmd; |
| 93 | extern Tcl_CmdProc triButtonCmd; |
Guido van Rossum | f713247 | 1994-06-27 08:00:16 +0000 | [diff] [blame] | 94 | |
Barry Warsaw | 845a4c6 | 1997-01-14 17:36:36 +0000 | [diff] [blame] | 95 | Tcl_CreateCommand(interp, "studbutton", studButtonCmd, |
Moshe Zadka | 6a078ed | 2000-08-04 15:53:06 +0000 | [diff] [blame] | 96 | (ClientData) main_window, NULL); |
Barry Warsaw | 845a4c6 | 1997-01-14 17:36:36 +0000 | [diff] [blame] | 97 | Tcl_CreateCommand(interp, "tributton", triButtonCmd, |
Moshe Zadka | 6a078ed | 2000-08-04 15:53:06 +0000 | [diff] [blame] | 98 | (ClientData) main_window, NULL); |
Barry Warsaw | 845a4c6 | 1997-01-14 17:36:36 +0000 | [diff] [blame] | 99 | } |
Guido van Rossum | f713247 | 1994-06-27 08:00:16 +0000 | [diff] [blame] | 100 | #endif |
Guido van Rossum | 1cbdfb9 | 1997-05-14 19:22:11 +0000 | [diff] [blame] | 101 | |
| 102 | #ifdef WITH_PIL /* 0.2b5 and later -- not yet released as of May 14 */ |
| 103 | { |
Guido van Rossum | 7a206c8 | 1997-11-22 17:34:41 +0000 | [diff] [blame] | 104 | extern void TkImaging_Init(Tcl_Interp *); |
Guido van Rossum | 1cbdfb9 | 1997-05-14 19:22:11 +0000 | [diff] [blame] | 105 | TkImaging_Init(interp); |
Guido van Rossum | 7a206c8 | 1997-11-22 17:34:41 +0000 | [diff] [blame] | 106 | /* XXX TkImaging_Init() doesn't have the right return type */ |
| 107 | /*Tcl_StaticPackage(interp, "Imaging", TkImaging_Init, NULL);*/ |
Guido van Rossum | 1cbdfb9 | 1997-05-14 19:22:11 +0000 | [diff] [blame] | 108 | } |
| 109 | #endif |
| 110 | |
| 111 | #ifdef WITH_PIL_OLD /* 0.2b4 and earlier */ |
| 112 | { |
| 113 | extern void TkImaging_Init(void); |
Guido van Rossum | 7a206c8 | 1997-11-22 17:34:41 +0000 | [diff] [blame] | 114 | /* XXX TkImaging_Init() doesn't have the right prototype */ |
| 115 | /*Tcl_StaticPackage(interp, "Imaging", TkImaging_Init, NULL);*/ |
Guido van Rossum | 1cbdfb9 | 1997-05-14 19:22:11 +0000 | [diff] [blame] | 116 | } |
| 117 | #endif |
| 118 | |
Guido van Rossum | aec7497 | 1997-11-19 18:56:17 +0000 | [diff] [blame] | 119 | #ifdef WITH_TIX |
Guido van Rossum | f259a8e | 1997-12-02 20:38:38 +0000 | [diff] [blame] | 120 | { |
| 121 | extern int Tix_Init(Tcl_Interp *interp); |
| 122 | extern int Tix_SafeInit(Tcl_Interp *interp); |
| 123 | Tcl_StaticPackage(NULL, "Tix", Tix_Init, Tix_SafeInit); |
| 124 | } |
Guido van Rossum | aec7497 | 1997-11-19 18:56:17 +0000 | [diff] [blame] | 125 | #endif |
| 126 | |
| 127 | #ifdef WITH_BLT |
Guido van Rossum | 7a206c8 | 1997-11-22 17:34:41 +0000 | [diff] [blame] | 128 | { |
| 129 | extern int Blt_Init(Tcl_Interp *); |
| 130 | extern int Blt_SafeInit(Tcl_Interp *); |
| 131 | Tcl_StaticPackage(NULL, "Blt", Blt_Init, Blt_SafeInit); |
Guido van Rossum | aec7497 | 1997-11-19 18:56:17 +0000 | [diff] [blame] | 132 | } |
Guido van Rossum | 7a206c8 | 1997-11-22 17:34:41 +0000 | [diff] [blame] | 133 | #endif |
| 134 | |
| 135 | #ifdef WITH_TOGL |
| 136 | { |
| 137 | /* XXX I've heard rumors that this doesn't work */ |
| 138 | extern int Togl_Init(Tcl_Interp *); |
| 139 | /* XXX Is there no Togl_SafeInit? */ |
| 140 | Tcl_StaticPackage(NULL, "Togl", Togl_Init, NULL); |
| 141 | } |
Guido van Rossum | aec7497 | 1997-11-19 18:56:17 +0000 | [diff] [blame] | 142 | #endif |
| 143 | |
Guido van Rossum | f713247 | 1994-06-27 08:00:16 +0000 | [diff] [blame] | 144 | #ifdef WITH_XXX |
| 145 | |
| 146 | #endif |
Barry Warsaw | 845a4c6 | 1997-01-14 17:36:36 +0000 | [diff] [blame] | 147 | return TCL_OK; |
Guido van Rossum | f713247 | 1994-06-27 08:00:16 +0000 | [diff] [blame] | 148 | } |