diff options
Diffstat (limited to 'Modules')
| -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 |