Index: generic/nsfError.c =================================================================== diff -u -rbf592f968ae84740d9ef7c40cddbcbf9f5a68283 -rd40717ac3710f2123cb9359e3d0442ad4ff3da73 --- generic/nsfError.c (.../nsfError.c) (revision bf592f968ae84740d9ef7c40cddbcbf9f5a68283) +++ generic/nsfError.c (.../nsfError.c) (revision d40717ac3710f2123cb9359e3d0442ad4ff3da73) @@ -176,7 +176,6 @@ * *---------------------------------------------------------------------- */ - int NsfArgumentError(Tcl_Interp *interp, CONST char *errorMsg, Nsf_Param CONST *paramPtr, Tcl_Obj *cmdNameObj, Tcl_Obj *methodObj) { @@ -188,6 +187,27 @@ return TCL_ERROR; } +/* + *---------------------------------------------------------------------- + * + * NsfNoDispatchObjectError -- + * + * Produce a error message when method was not dispatched on an object + * + * Results: + * TCL_ERROR + * + * Side effects: + * Sets the result message. + * + *---------------------------------------------------------------------- + */ +int +NsfNoDispatchObjectError(Tcl_Interp *interp, char *methodName) { + return NsfPrintError(interp, "Method %s not dispatched on object; " + "don't call aliased methods via namespace paths!", + methodName); +} extern int NsfObjErrType(Tcl_Interp *interp,