summaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorjoye <joye>2013-09-04 21:02:01 (GMT)
committerjoye <joye>2013-09-04 21:02:01 (GMT)
commitd23db04ef08f63c99340822301490d4ed550a49f (patch)
tree24155d75c192bae1e9b1435679ee8ac91b32c655 /src
parentaf269cb12600825b84ed061d9d7ef45dd367e155 (diff)
downloadblt-d23db04ef08f63c99340822301490d4ed550a49f.zip
blt-d23db04ef08f63c99340822301490d4ed550a49f.tar.gz
blt-d23db04ef08f63c99340822301490d4ed550a49f.tar.bz2
*** empty log message ***
Diffstat (limited to 'src')
-rw-r--r--src/bltInt.C19
1 files changed, 4 insertions, 15 deletions
diff --git a/src/bltInt.C b/src/bltInt.C
index 4f0b5ac..1df93f4 100644
--- a/src/bltInt.C
+++ b/src/bltInt.C
@@ -125,13 +125,6 @@ unset var path\n\
\n"
};
-
-static Tcl_AppInitProc *cmdProcs[] =
-{
- Blt_VectorCmdInitProc,
- (Tcl_AppInitProc *) NULL
-};
-
double
Blt_NaN(void)
{
@@ -297,7 +290,6 @@ Blt_core_Init(Tcl_Interp *interp) /* Interpreter to add extra commands */
return TCL_ERROR;
}
-
nsPtr = Tcl_FindNamespace(interp, "::blt", (Tcl_Namespace *)NULL, 0);
if (nsPtr == NULL) {
nsPtr = Tcl_CreateNamespace(interp, "::blt", NULL, NULL);
@@ -305,13 +297,10 @@ Blt_core_Init(Tcl_Interp *interp) /* Interpreter to add extra commands */
return TCL_ERROR;
}
}
- /* Initialize the BLT commands that only require Tcl. */
- for (p = cmdProcs; *p != NULL; p++) {
- if ((**p) (interp) != TCL_OK) {
- Tcl_DeleteNamespace(nsPtr);
- return TCL_ERROR;
- }
- }
+
+ if (Blt_VectorCmdInitProc(interp) != TCL_OK)
+ return TCL_ERROR;
+
args[0] = args[1] = TCL_EITHER;
Tcl_CreateMathFunc(interp, "min", 2, args, MinMathProc, (ClientData)0);
Tcl_CreateMathFunc(interp, "max", 2, args, MaxMathProc, (ClientData)0);