Index: TODO =================================================================== diff -u -rfc36bf33edd6f5b3f273cb2abdcb30f2ececdff4 -r4271f1017962a2fc3613d6be3f31f01ef2f63d82 --- TODO (.../TODO) (revision fc36bf33edd6f5b3f273cb2abdcb30f2ececdff4) +++ TODO (.../TODO) (revision 4271f1017962a2fc3613d6be3f31f01ef2f63d82) @@ -2325,6 +2325,8 @@ - update slot uml diagram - fixed incorrect (unwanted) call to unknown that caused creation of objects names __unknown when classes could not be resolved +- nsf::relation: fixed error message when receiving and invalid + class for relation type "class" TODO: Index: generic/nsf.c =================================================================== diff -u -rfc36bf33edd6f5b3f273cb2abdcb30f2ececdff4 -r4271f1017962a2fc3613d6be3f31f01ef2f63d82 --- generic/nsf.c (.../nsf.c) (revision fc36bf33edd6f5b3f273cb2abdcb30f2ececdff4) +++ generic/nsf.c (.../nsf.c) (revision 4271f1017962a2fc3613d6be3f31f01ef2f63d82) @@ -8514,8 +8514,9 @@ FREE_ON_STACK(Tcl_Obj*, tov); } else { /* no unknown called, this is the built-in unknown handler */ - fprintf(stderr, "--- No unknown method Name %s objv[%d] %s\n", - ObjStr(methodObj), 1, ObjStr(objv[1])); + /*fprintf(stderr, "--- default error message for unknown method '%s' " + "to be dispatched on %s, objv[%d] %s\n", + ObjStr(methodObj), ObjectName(object), 1, ObjStr(objv[1]));*/ result = NsfPrintError(interp, "%s: unable to dispatch method '%s'", ObjectName(object), MethodName(objv[1])); } @@ -15912,7 +15913,7 @@ return TCL_OK; } GetClassFromObj(interp, valueObj, &cl, object->cl); - if (!cl) return NsfObjErrType(interp, "class", object->cmdName, "a class", NULL); + if (!cl) return NsfObjErrType(interp, "class", valueObj, "a class", NULL); i = ChangeClass(interp, object, cl); if (i == TCL_OK) { Tcl_SetObjResult(interp, object->cl->object.cmdName); Index: library/xotcl/tests/slottest.xotcl =================================================================== diff -u -rfc36bf33edd6f5b3f273cb2abdcb30f2ececdff4 -r4271f1017962a2fc3613d6be3f31f01ef2f63d82 --- library/xotcl/tests/slottest.xotcl (.../slottest.xotcl) (revision fc36bf33edd6f5b3f273cb2abdcb30f2ececdff4) +++ library/xotcl/tests/slottest.xotcl (.../slottest.xotcl) (revision 4271f1017962a2fc3613d6be3f31f01ef2f63d82) @@ -113,7 +113,7 @@ o1 class Object ? {o1 class} "::xotcl::Object" ? {o1 objectparameter} "-mixin:alias -filter:alias -class:alias args" -? {o1 class add M} {class: expected a class but got "::o1"} +? {o1 class add M} {class: expected a class but got "M ::xotcl::Object"} ? {O superclass} "::xotcl::Object"