capa/capa51/GUITools/manager.init.c - diff

Return to manager.init.c CVS log

Up to [LON-CAPA] / capa / capa51 / GUITools

version 1.1, 1999/09/28 21:25:37	version 1.3, 2000/02/22 18:10:27
Line 27 int Manager_Init(Tcl_Interp *interp)	Line 27 int Manager_Init(Tcl_Interp *interp)

/*Tcl_CreateCommand( interp, "name", cname,	/*Tcl_CreateCommand( interp, "name", cname,
(ClientData)NULL, (Tcl_CmdDeleteProc )NULL); /	(ClientData)NULL, (Tcl_CmdDeleteProc )NULL); /
	Tcl_CreateCommand(interp, "CTcreateSummary", capaCTcreateSummary,
	(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);