greg/cpython
1
0
Fork 0
Code Issues Pull Requests Actions 1 Packages Projects Releases Wiki Activity

Add optional support fort Tix and BLT.

Browse Source
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
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 <tcl.h>
#include <tk.h> #include <tk.h>
#ifdef WITH_BLT
#include "blt.h"
#endif
int int
Tcl_AppInit (interp) Tcl_AppInit (interp)
Tcl_Interp *interp; Tcl_Interp *interp;
@@ -42,6 +46,21 @@ Tcl_AppInit (interp)
} }
#endif #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 #ifdef WITH_XXX
#endif #endif