Modules/tkappinit.c

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