diff options
author | Guido van Rossum <guido@python.org> | 1997-11-19 18:56:17 +0000 |
---|---|---|
committer | Guido van Rossum <guido@python.org> | 1997-11-19 18:56:17 +0000 |
commit | 671428ff6532de8a107911abbe5471f164f63dba (patch) | |
tree | a6204f83e98b36165bc2725a513bb96ac5327832 /Modules/tkappinit.c | |
parent | f5651ca6934912688e9176d187f0c22315c7c7cf (diff) | |
download | cpython-671428ff6532de8a107911abbe5471f164f63dba.tar.gz |
Add optional support fort Tix and BLT.
Diffstat (limited to 'Modules/tkappinit.c')
-rw-r--r-- | Modules/tkappinit.c | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/Modules/tkappinit.c b/Modules/tkappinit.c index 1239da5ee4..fba28c5b41 100644 --- a/Modules/tkappinit.c +++ b/Modules/tkappinit.c @@ -3,6 +3,10 @@ #include <tcl.h> #include <tk.h> +#ifdef WITH_BLT +#include "blt.h" +#endif + int Tcl_AppInit (interp) Tcl_Interp *interp; @@ -42,6 +46,21 @@ Tcl_AppInit (interp) } #endif +#ifdef WITH_TIX + if (Tix_Init (interp) == TCL_ERROR) { + fprintf(stderr, "Tix_Init error: #s\n", interp->result); + return TCL_ERROR; + } +#endif + +#ifdef WITH_BLT + if (Blt_Init(interp) != TCL_OK) { + fprintf(stderr, "BLT_Init error: #s\n", interp->result); + return TCL_ERROR; + } + Tcl_StaticPackage(interp, "Blt", Blt_Init, Blt_SafeInit); +#endif + #ifdef WITH_XXX #endif |