Add optional support fort Tix and BLT.

diff --git a/Modules/tkappinit.c b/Modules/tkappinit.c
index 1239da5ee4ff99b0fa1a19b573935e583b25734a..fba28c5b414e60415a8ca3a670e8c2c46007eea5 100644 (file)
--- 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