diff options
| -rwxr-xr-x | configure | 1 | ||||
| -rwxr-xr-x | configure.in | 1 | ||||
| -rw-r--r-- | src/bltGraph.C | 17 | ||||
| -rw-r--r-- | src/bltInt.C | 21 | ||||
| -rw-r--r-- | src/bltVector.C | 2 |
5 files changed, 10 insertions, 32 deletions
@@ -5545,7 +5545,6 @@ done bltHash.c bltImage.c bltInt.c - bltInit.c bltList.c bltNsUtil.c bltParse.c diff --git a/configure.in b/configure.in index d3968ee..5836143 100755 --- a/configure.in +++ b/configure.in @@ -90,7 +90,6 @@ TEA_ADD_SOURCES([ bltHash.c bltImage.c bltInt.c - bltInit.c bltList.c bltNsUtil.c bltParse.c diff --git a/src/bltGraph.C b/src/bltGraph.C index cb0b614..d0ed323 100644 --- a/src/bltGraph.C +++ b/src/bltGraph.C @@ -1716,14 +1716,17 @@ DisplayGraph(ClientData clientData) } /*LINTLIBRARY*/ -int -Blt_GraphCmdInitProc(Tcl_Interp *interp) +int Blt_GraphCmdInitProc(Tcl_Interp *interp) { - static Blt_InitCmdSpec cmdSpecs[] = { - {"graph", GraphCmd,}, - {"barchart", BarchartCmd,}, - }; - return Blt_InitCmds(interp, "::blt", cmdSpecs, 2); + static Blt_InitCmdSpec graphSpec = {"graph", GraphCmd, }; + static Blt_InitCmdSpec barchartSpec = {"barchart", BarchartCmd, }; + + if (Blt_InitCmd(interp, "::blt", &graphSpec) != TCL_OK) + return TCL_ERROR; + if (Blt_InitCmd(interp, "::blt", &barchartSpec) != TCL_OK) + return TCL_ERROR; + + return TCL_OK; } Graph * diff --git a/src/bltInt.C b/src/bltInt.C index f7335d0..01edf57 100644 --- a/src/bltInt.C +++ b/src/bltInt.C @@ -86,27 +86,6 @@ int Tkblt_SafeInit(Tcl_Interp *interp) return Tkblt_Init(interp); } -/* - *--------------------------------------------------------------------------- - * - * Blt_InitCmd -- - * - * Given the name of a command, return a pointer to the clientData field - * of the command. - * - * Results: - * A standard TCL result. If the command is found, TCL_OK is returned - * and clientDataPtr points to the clientData field of the command (if - * the clientDataPtr in not NULL). - * - * Side effects: - * If the command is found, clientDataPtr is set to the address of the - * clientData of the command. If not found, an error message is left - * in interp->result. - * - *--------------------------------------------------------------------------- - */ -/*ARGSUSED*/ int Blt_InitCmd(Tcl_Interp *interp, const char *nsName, Blt_InitCmdSpec *specPtr) { diff --git a/src/bltVector.C b/src/bltVector.C index 65bdd8b..8ceb184 100644 --- a/src/bltVector.C +++ b/src/bltVector.C @@ -1838,8 +1838,6 @@ Blt_VectorCmdInitProc(Tcl_Interp *interp) return Blt_InitCmd(interp, "::blt", &cmdSpec); } - - /* C Application interface to vectors */ /* |