From d23db04ef08f63c99340822301490d4ed550a49f Mon Sep 17 00:00:00 2001
From: joye <joye>
Date: Wed, 4 Sep 2013 21:02:01 +0000
Subject: *** empty log message ***

---
 src/bltInt.C | 19 ++++---------------
 1 file 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);
-- 
cgit v0.12