diff options
Diffstat (limited to 'Modules/tkappinit.c')
| -rw-r--r-- | Modules/tkappinit.c | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/Modules/tkappinit.c b/Modules/tkappinit.c index 96c545d..42b6bb8 100644 --- a/Modules/tkappinit.c +++ b/Modules/tkappinit.c @@ -19,6 +19,7 @@ int Tcl_AppInit(Tcl_Interp *interp) { Tk_Window main_window; + const char * _tkinter_skip_tk_init; #ifdef TK_AQUA #ifndef MAX_PATH_LEN @@ -68,7 +69,15 @@ Tcl_AppInit(Tcl_Interp *interp) TclSetLibraryPath(pathPtr); #endif - if (Tk_Init (interp) == TCL_ERROR) +#ifdef WITH_XXX + // Initialize modules that don't require Tk +#endif + + _tkinter_skip_tk_init = Tcl_GetVar(interp, "_tkinter_skip_tk_init", TCL_GLOBAL_ONLY); + if (_tkinter_skip_tk_init != NULL && strcmp(_tkinter_skip_tk_init, "1") == 0) { + return TCL_OK; + } + if (Tk_Init(interp) == TCL_ERROR) return TCL_ERROR; main_window = Tk_MainWindow(interp); |