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  #include "tkinter.h"
      20  
      21  int
      22  Tcl_AppInit(Tcl_Interp *interp)
      23  {
      24      const char *_tkinter_skip_tk_init;
      25  
      26      if (Tcl_Init (interp) == TCL_ERROR)
      27          return TCL_ERROR;
      28  
      29  #ifdef WITH_XXX
      30          /* Initialize modules that don't require Tk */
      31  #endif
      32  
      33      _tkinter_skip_tk_init =     Tcl_GetVar(interp,
      34                      "_tkinter_skip_tk_init", TCL_GLOBAL_ONLY);
      35      if (_tkinter_skip_tk_init != NULL &&
      36                      strcmp(_tkinter_skip_tk_init, "1") == 0) {
      37          return TCL_OK;
      38      }
      39  
      40      if (Tk_Init(interp) == TCL_ERROR) {
      41          return TCL_ERROR;
      42      }
      43  
      44      Tk_MainWindow(interp);
      45  
      46  #ifdef WITH_PIL /* 0.2b5 and later -- not yet released as of May 14 */
      47      {
      48          extern void TkImaging_Init(Tcl_Interp *);
      49          TkImaging_Init(interp);
      50          /* XXX TkImaging_Init() doesn't have the right return type */
      51          /*Tcl_StaticPackage(interp, "Imaging", TkImaging_Init, NULL);*/
      52      }
      53  #endif
      54  
      55  #ifdef WITH_PIL_OLD /* 0.2b4 and earlier */
      56      {
      57          extern void TkImaging_Init(void);
      58          /* XXX TkImaging_Init() doesn't have the right prototype */
      59          /*Tcl_StaticPackage(interp, "Imaging", TkImaging_Init, NULL);*/
      60      }
      61  #endif
      62  
      63  #ifdef WITH_TIX
      64      {
      65          extern int Tix_Init(Tcl_Interp *interp);
      66          extern int Tix_SafeInit(Tcl_Interp *interp);
      67          Tcl_StaticPackage(NULL, "Tix", Tix_Init, Tix_SafeInit);
      68      }
      69  #endif
      70  
      71  #ifdef WITH_BLT
      72      {
      73          extern int Blt_Init(Tcl_Interp *);
      74          extern int Blt_SafeInit(Tcl_Interp *);
      75          Tcl_StaticPackage(NULL, "Blt", Blt_Init, Blt_SafeInit);
      76      }
      77  #endif
      78  
      79  #ifdef WITH_TOGL
      80      {
      81          /* XXX I've heard rumors that this doesn't work */
      82          extern int Togl_Init(Tcl_Interp *);
      83          /* XXX Is there no Togl_SafeInit? */
      84          Tcl_StaticPackage(NULL, "Togl", Togl_Init, NULL);
      85      }
      86  #endif
      87  
      88  #ifdef WITH_XXX
      89  
      90  #endif
      91      return TCL_OK;
      92  }