Index: generic/nsf.c =================================================================== diff -u -rbef777ff411770b97736e35a87cb23e23c7d7f83 -r2e7f0b2256363d70c78778c9ed401f9450622a6a --- generic/nsf.c (.../nsf.c) (revision bef777ff411770b97736e35a87cb23e23c7d7f83) +++ generic/nsf.c (.../nsf.c) (revision 2e7f0b2256363d70c78778c9ed401f9450622a6a) @@ -2840,9 +2840,9 @@ * *---------------------------------------------------------------------- */ -static CONST char * +CONST char * MethodName(Tcl_Obj *methodObj) { - char *methodName;; + char *methodName; assert(methodObj); methodName = ObjStr(methodObj); Index: generic/nsfError.c =================================================================== diff -u -rffd5b8ff74134cc891b9715cf1dd949193065b61 -r2e7f0b2256363d70c78778c9ed401f9450622a6a --- generic/nsfError.c (.../nsfError.c) (revision ffd5b8ff74134cc891b9715cf1dd949193065b61) +++ generic/nsfError.c (.../nsfError.c) (revision 2e7f0b2256363d70c78778c9ed401f9450622a6a) @@ -1,17 +1,18 @@ -/* -*- Mode: c++ -*- - * - * Extended Object Tcl (XOTcl) +/* + * Next Scripting Framework * * Copyright (C) 1999-2010 Gustaf Neumann, Uwe Zdun * * * nsfError.c -- * - * error return functions for XOTcl + * error return functions for the Next Scripting Framework * */ #include "nsfInt.h" + +/* function prototypes */ Tcl_Obj *NsfParamDefsSyntax(INTERP_DECL Nsf_Param CONST *paramPtr); /* @@ -178,7 +179,7 @@ } if (methodName) { if (need_space) Tcl_AppendResult(interp, " ", (char *) NULL); - Tcl_AppendResult(interp, ObjStr(methodName), (char *) NULL); + Tcl_AppendResult(interp, MethodName(methodName), (char *) NULL); need_space = 1; } if (arglist != NULL) { Index: generic/nsfInt.h =================================================================== diff -u -r9ab7249b16aeb0ea906e3d614fee429edab1cfda -r2e7f0b2256363d70c78778c9ed401f9450622a6a --- generic/nsfInt.h (.../nsfInt.h) (revision 9ab7249b16aeb0ea906e3d614fee429edab1cfda) +++ generic/nsfInt.h (.../nsfInt.h) (revision 2e7f0b2256363d70c78778c9ed401f9450622a6a) @@ -929,6 +929,8 @@ NsfObjWrongArgs(Tcl_Interp *interp, CONST char *msg, Tcl_Obj *cmdName, Tcl_Obj *methodName, char *arglist); +CONST char *MethodName(Tcl_Obj *methodObj); + /* functions from nsfUtil.c */ char *Nsf_ltoa(char *buf, long i, int *len); char *NsfStringIncr(NsfStringIncrStruct *iss); Index: tests/parameters.test =================================================================== diff -u -rdf4493971c95da9eba468c207ac8891f9c9d14c4 -r2e7f0b2256363d70c78778c9ed401f9450622a6a --- tests/parameters.test (.../parameters.test) (revision df4493971c95da9eba468c207ac8891f9c9d14c4) +++ tests/parameters.test (.../parameters.test) (revision 2e7f0b2256363d70c78778c9ed401f9450622a6a) @@ -26,6 +26,8 @@ ? {::nsf::method::alias C foo ::set 1} \ {Invalid argument '1', maybe too many arguments; should be "::nsf::method::alias object ?-per-object? methodName ?-frame method|object|default? cmdName"} + + ? {C eval {:attribute x -class D}} {Invalid argument 'D', maybe too many arguments; should be "::C attribute ?-class value? ?-incremental? spec ?initblock?"} "Test whether the colon prefix is suppressed" } #######################################################