summaryrefslogtreecommitdiffstats
path: root/src/bltInt.C
diff options
context:
space:
mode:
authorjoye <joye>2013-09-04 16:31:02 (GMT)
committerjoye <joye>2013-09-04 16:31:02 (GMT)
commitca27111ed3786b10c71e28c43f20bed1d7928050 (patch)
treec9f3bac1b501617d476cf79cda8da4468e4a284d /src/bltInt.C
parentffc3a1b6eae2121328bcf90fe39fcfa2e1172c97 (diff)
downloadblt-ca27111ed3786b10c71e28c43f20bed1d7928050.zip
blt-ca27111ed3786b10c71e28c43f20bed1d7928050.tar.gz
blt-ca27111ed3786b10c71e28c43f20bed1d7928050.tar.bz2
*** empty log message ***
Diffstat (limited to 'src/bltInt.C')
-rw-r--r--src/bltInt.C18
1 files changed, 7 insertions, 11 deletions
diff --git a/src/bltInt.C b/src/bltInt.C
index 234e72f..4f0b5ac 100644
--- a/src/bltInt.C
+++ b/src/bltInt.C
@@ -268,19 +268,15 @@ Blt_core_Init(Tcl_Interp *interp) /* Interpreter to add extra commands */
const char *result;
const int isExact = 1;
+ if(
#ifdef USE_TCL_STUBS
- if (Tcl_InitStubs(interp, TCL_VERSION_LOADED, isExact) == NULL) {
- return TCL_ERROR;
- };
+ Tcl_InitStubs(interp, TCL_VERSION_LOADED, isExact)
+#else
+ Tcl_PkgRequire(interp, "Tcl", TCL_VERSION_LOADED, isExact)
#endif
-
- /*
- * Check that the versions of TCL that have been loaded are the same ones
- * that BLT was compiled against.
- */
- if (Tcl_PkgRequire(interp, "Tcl", TCL_VERSION_LOADED, isExact) == NULL) {
- return TCL_ERROR;
- }
+ == NULL) {
+ return TCL_ERROR;
+ }
/* Set the "blt_version", "blt_patchLevel", and "blt_libPath" Tcl
* variables. We'll use them in the following script. */