Index: TODO =================================================================== diff -u -r99ee1ab0e5d0d04de1dc14cf190b27a0ce9edfcf -rf1358bf60e01f773bf04170671c5066a2874ac69 --- TODO (.../TODO) (revision 99ee1ab0e5d0d04de1dc14cf190b27a0ce9edfcf) +++ TODO (.../TODO) (revision f1358bf60e01f773bf04170671c5066a2874ac69) @@ -1306,6 +1306,9 @@ (to report e.g. per-object attributes) - extended regression test +- [::nx::Object info method parameter info] returns now empty instead of error. +- extended regression test + TODO: - check equivalence of the following two commands @@ -1523,6 +1526,7 @@ # pass parameter definition - implement built-in-converter for "baseclass" and "metaclass"? +- make ::nsf::dispatch faster for fully qualified names - the two flags "-objscope" and "-nonleaf" are for adding frames, and they are mutual exclusive. Make them a single flag? Index: generic/nsf.c =================================================================== diff -u -r99ee1ab0e5d0d04de1dc14cf190b27a0ce9edfcf -rf1358bf60e01f773bf04170671c5066a2874ac69 --- generic/nsf.c (.../nsf.c) (revision 99ee1ab0e5d0d04de1dc14cf190b27a0ce9edfcf) +++ generic/nsf.c (.../nsf.c) (revision f1358bf60e01f773bf04170671c5066a2874ac69) @@ -10314,9 +10314,12 @@ } else if (((Command *)cmd)->objProc == NsfForwardMethod) { return NsfVarErrMsg(interp, "info params: could not obtain parameter definition for forwarder '", methodName, "'", (char *) NULL); - } else { + } else if (((Command *)cmd)->objProc != NsfObjDispatch) { return NsfVarErrMsg(interp, "info params: could not obtain parameter definition for method '", methodName, "'", (char *) NULL); + } else { + /* procPtr == NsfObjDispatch, be quiet */ + return TCL_OK; } } return NsfErrBadVal(interp, "info params", "a method name", methodName); Index: tests/info-method.tcl =================================================================== diff -u -r99ee1ab0e5d0d04de1dc14cf190b27a0ce9edfcf -rf1358bf60e01f773bf04170671c5066a2874ac69 --- tests/info-method.tcl (.../info-method.tcl) (revision 99ee1ab0e5d0d04de1dc14cf190b27a0ce9edfcf) +++ tests/info-method.tcl (.../info-method.tcl) (revision f1358bf60e01f773bf04170671c5066a2874ac69) @@ -193,4 +193,5 @@ D create d1 ? {D info slotobjects} "::nx::Class::slot::object-mixin ::nx::Class::slot::mixin ::nx::Class::slot::superclass ::nx::Class::slot::object-filter ::nx::Class::slot::filter ::nx::Object::slot::class" ? {D info slots} "::D::slot::b ::D::slot::a2 ::D::slot::c" + ? {::nx::Object info method parameter info} "" } \ No newline at end of file