Add optional support fort Tix and BLT.
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 @@
}
#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