From aec7497f6fbd3402507bdf7ec8036aabd7966225 Mon Sep 17 00:00:00 2001
From: Guido van Rossum <guido@python.org>
Date: Wed, 19 Nov 1997 18:56:17 +0000
Subject: [PATCH] Add optional support fort Tix and BLT.

---
 Modules/tkappinit.c | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)

diff --git a/Modules/tkappinit.c b/Modules/tkappinit.c
index 1239da5ee4f..fba28c5b414 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