traverseda
/
cpython
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

New tkappinit supporting several popular packages.

This commit is contained in:
Guido van Rossum 1997-11-22 17:34:41 +00:00
parent 7d5b99d8bf
commit 7a206c8a05
1 changed files with 36 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

51
Modules/tkappinit.c
View File

@ -1,14 +1,22 @@
/* appinit.c -- Tcl and Tk application initialization. */
/* appinit.c -- Tcl and Tk application initialization.
The function Tcl_AppInit() below initializes various Tcl packages.
It is called for each Tcl interpreter created by _tkinter.create().
It needs to be compiled with -DWITH_<package> flags for each package
that you are statically linking with. You may have to add sections
for packages not yet listed below.
Note that those packages for which Tcl_StaticPackage() is called with
a NULL first argument are known as "static loadable" packages to
Tcl but not actually initialized. To use these, you have to load
it explicitly, e.g. tkapp.eval("load {} Blt").
*/
#include <tcl.h>
#include <tk.h>
#ifdef WITH_BLT
#include "blt.h"
#endif
int
Tcl_AppInit (interp)
Tcl_AppInit(interp)
Tcl_Interp *interp;
{
Tk_Window main;
@ -34,31 +42,44 @@ Tcl_AppInit (interp)
#ifdef WITH_PIL /* 0.2b5 and later -- not yet released as of May 14 */
{
extern void TkImaging_Init(Tcl_Interp *interp);
extern void TkImaging_Init(Tcl_Interp *);
TkImaging_Init(interp);
/* XXX TkImaging_Init() doesn't have the right return type */
/*Tcl_StaticPackage(interp, "Imaging", TkImaging_Init, NULL);*/
}
#endif
#ifdef WITH_PIL_OLD /* 0.2b4 and earlier */
{
extern void TkImaging_Init(void);
TkImaging_Init();
/* XXX TkImaging_Init() doesn't have the right prototype */
/*Tcl_StaticPackage(interp, "Imaging", TkImaging_Init, NULL);*/
}
#endif
#ifdef WITH_TIX
if (Tix_Init (interp) == TCL_ERROR) {
fprintf(stderr, "Tix_Init error: #s\n", interp->result);
return TCL_ERROR;
{
extern int Tix_Init(Tcl_Interp *);
/* XXX Is there no Tix_SafeInit? */
Tcl_StaticPackage(NULL, "Tix", Tix_Init, NULL);
}
#endif
#ifdef WITH_BLT
if (Blt_Init(interp) != TCL_OK) {
fprintf(stderr, "BLT_Init error: #s\n", interp->result);
return TCL_ERROR;
{
extern int Blt_Init(Tcl_Interp *);
extern int Blt_SafeInit(Tcl_Interp *);
Tcl_StaticPackage(NULL, "Blt", Blt_Init, Blt_SafeInit);
}
#endif
#ifdef WITH_TOGL
{
/* XXX I've heard rumors that this doesn't work */
extern int Togl_Init(Tcl_Interp *);
/* XXX Is there no Togl_SafeInit? */
Tcl_StaticPackage(NULL, "Togl", Togl_Init, NULL);
}
Tcl_StaticPackage(interp, "Blt", Blt_Init, Blt_SafeInit);
#endif
#ifdef WITH_XXX