version 1.2, 1999/11/02 19:10:44
|
version 1.3, 2000/02/22 18:10:27
|
Line 31 int Manager_Init(Tcl_Interp *interp)
|
Line 31 int Manager_Init(Tcl_Interp *interp)
|
(ClientData)NULL, (Tcl_CmdDeleteProc *)NULL); |
(ClientData)NULL, (Tcl_CmdDeleteProc *)NULL); |
Tcl_CreateCommand(interp, "getExistingSections", capaGetExistingSections, |
Tcl_CreateCommand(interp, "getExistingSections", capaGetExistingSections, |
(ClientData)NULL, (Tcl_CmdDeleteProc *)NULL); |
(ClientData)NULL, (Tcl_CmdDeleteProc *)NULL); |
|
Tcl_CreateCommand( interp, "getSpecificCapaId", capaGetSpecifiCapaId, |
|
(ClientData)NULL, (Tcl_CmdDeleteProc *)NULL); |
|
Tcl_CreateCommand( interp, "isSetOpen", capaIsSetOpen, |
|
(ClientData)NULL, (Tcl_CmdDeleteProc *)NULL); |
sprintf(buf,"%s.%s",MAJORVER,MANAGERMINORVER); |
sprintf(buf,"%s.%s",MAJORVER,MANAGERMINORVER); |
Tcl_SetVar(interp,"gVer",buf,TCL_GLOBAL_ONLY); |
Tcl_SetVar(interp,"gVer",buf,TCL_GLOBAL_ONLY); |
sprintf(buf,"Compiled on %s",COMPILE_DATE); |
sprintf(buf,"Compiled on %s",COMPILE_DATE); |