diff options
| author | Guido van Rossum <guido@python.org> | 1997-11-19 18:56:17 (GMT) |
|---|---|---|
| committer | Guido van Rossum <guido@python.org> | 1997-11-19 18:56:17 (GMT) |
| commit | aec7497f6fbd3402507bdf7ec8036aabd7966225 (patch) | |
| tree | 449ffd04da194709ee6bfd939f6b85152628a2f1 | |
| parent | 2e58ff3ef56c3bf0a7080743ec77e95ca1758b97 (diff) | |
| download | cpython-aec7497f6fbd3402507bdf7ec8036aabd7966225.zip cpython-aec7497f6fbd3402507bdf7ec8036aabd7966225.tar.gz cpython-aec7497f6fbd3402507bdf7ec8036aabd7966225.tar.bz2 | |
Add optional support fort Tix and BLT.
| -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 1239da5..fba28c5 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 |