Index: generic/tclAPI.h =================================================================== diff -u -rffd2368a61d1328d71f07ef8b922820bf8263c25 -rbedcf64642123d38ace4f5117e2b4b99fe9a0e06 --- generic/tclAPI.h (.../tclAPI.h) (revision ffd2368a61d1328d71f07ef8b922820bf8263c25) +++ generic/tclAPI.h (.../tclAPI.h) (revision bedcf64642123d38ace4f5117e2b4b99fe9a0e06) @@ -53,7 +53,7 @@ static int XOTclCInstParametercmdMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv []); static int XOTclCInstProcMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv []); static int XOTclCInstProcMethodCStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv []); -static int XOTclCInvalidateInterfaceDefinitionMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv []); +static int XOTclCInvalidateObjectParameterMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv []); static int XOTclCInvariantsMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv []); static int XOTclCNewMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv []); static int XOTclCRecreateMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv []); @@ -156,7 +156,7 @@ static int XOTclCInstParametercmdMethod(Tcl_Interp *interp, XOTclClass *cl, char *name); static int XOTclCInstProcMethod(Tcl_Interp *interp, XOTclClass *cl, Tcl_Obj *name, Tcl_Obj *args, Tcl_Obj *body, Tcl_Obj *precondition, Tcl_Obj *postcondition); static int XOTclCInstProcMethodC(Tcl_Interp *interp, XOTclClass *cl, Tcl_Obj *name, Tcl_Obj *args, Tcl_Obj *body, Tcl_Obj *precondition, Tcl_Obj *postcondition); -static int XOTclCInvalidateInterfaceDefinitionMethod(Tcl_Interp *interp, XOTclClass *cl); +static int XOTclCInvalidateObjectParameterMethod(Tcl_Interp *interp, XOTclClass *cl); static int XOTclCInvariantsMethod(Tcl_Interp *interp, XOTclClass *cl, Tcl_Obj *invariantlist); static int XOTclCNewMethod(Tcl_Interp *interp, XOTclClass *cl, XOTclObject *withChildof, int nobjc, Tcl_Obj *CONST nobjv[]); static int XOTclCRecreateMethod(Tcl_Interp *interp, XOTclClass *cl, Tcl_Obj *name, int objc, Tcl_Obj *CONST objv[]); @@ -260,7 +260,7 @@ XOTclCInstParametercmdMethodIdx, XOTclCInstProcMethodIdx, XOTclCInstProcMethodCIdx, - XOTclCInvalidateInterfaceDefinitionMethodIdx, + XOTclCInvalidateObjectParameterMethodIdx, XOTclCInvariantsMethodIdx, XOTclCNewMethodIdx, XOTclCRecreateMethodIdx, @@ -581,20 +581,20 @@ } static int -XOTclCInvalidateInterfaceDefinitionMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { +XOTclCInvalidateObjectParameterMethodStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { parseContext pc; XOTclClass *cl = XOTclObjectToClass(clientData); if (!cl) return XOTclObjErrType(interp, objv[0], "Class"); if (parseObjv(interp, objc, objv, objv[0], - method_definitions[XOTclCInvalidateInterfaceDefinitionMethodIdx].ifd, - method_definitions[XOTclCInvalidateInterfaceDefinitionMethodIdx].ifdSize, + method_definitions[XOTclCInvalidateObjectParameterMethodIdx].ifd, + method_definitions[XOTclCInvalidateObjectParameterMethodIdx].ifdSize, &pc) != TCL_OK) { return TCL_ERROR; } else { parseContextRelease(&pc); - return XOTclCInvalidateInterfaceDefinitionMethod(interp, cl); + return XOTclCInvalidateObjectParameterMethod(interp, cl); } } @@ -2423,7 +2423,7 @@ {"precondition", 0, 0, convertToTclobj}, {"postcondition", 0, 0, convertToTclobj}} }, -{"::xotcl::cmd::Class::invalidateinterfacedefinition", XOTclCInvalidateInterfaceDefinitionMethodStub, 0, { +{"::xotcl::cmd::Class::invalidateobjectparameter", XOTclCInvalidateObjectParameterMethodStub, 0, { } }, {"::xotcl::cmd::Class::instinvar", XOTclCInvariantsMethodStub, 1, {