Mirror
/
cpython
mirror of https://github.com/python/cpython
4
1
Fork 0
Code Issues Releases Wiki Activity

Add optional support fort Tix and BLT.

This commit is contained in:
Guido van Rossum 1997-11-19 18:56:17 +00:00
parent 2e58ff3ef5
commit aec7497f6f
1 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
Modules/tkappinit.c
View File

@ -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