diff options
| author | joye <joye> | 2013-09-04 16:31:02 (GMT) |
|---|---|---|
| committer | joye <joye> | 2013-09-04 16:31:02 (GMT) |
| commit | ca27111ed3786b10c71e28c43f20bed1d7928050 (patch) | |
| tree | c9f3bac1b501617d476cf79cda8da4468e4a284d /src/bltInt.C | |
| parent | ffc3a1b6eae2121328bcf90fe39fcfa2e1172c97 (diff) | |
| download | blt-ca27111ed3786b10c71e28c43f20bed1d7928050.zip blt-ca27111ed3786b10c71e28c43f20bed1d7928050.tar.gz blt-ca27111ed3786b10c71e28c43f20bed1d7928050.tar.bz2 | |
*** empty log message ***
Diffstat (limited to 'src/bltInt.C')
| -rw-r--r-- | src/bltInt.C | 18 |
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. */ |