From: Guido van Rossum <guido@python.org>
Date: Wed, 19 Nov 1997 18:56:17 +0000 (+0000)
Subject: Add optional support fort Tix and BLT.
X-Git-Tag: v1.5b1~78
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=aec7497f6fbd3402507bdf7ec8036aabd7966225;p=python

Add optional support fort Tix and BLT.
---

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