Index: TODO =================================================================== diff -u -r74bae7e8ef9109fbcd95b77be8cf422ce330b59d -r0ae1c72ceda94c7f6c99b86a1d7f14eaaef12e78 --- TODO (.../TODO) (revision 74bae7e8ef9109fbcd95b77be8cf422ce330b59d) +++ TODO (.../TODO) (revision 0ae1c72ceda94c7f6c99b86a1d7f14eaaef12e78) @@ -4443,14 +4443,16 @@ - nx-pp.tcl: fixed changed accessor handling, added cget to highlight words - updated next-migration guide to reflect changes from the configure reform +- "info method syntax" returns now "/cls/ ...." +- "info object method syntax" returns now "/obj/ ...." + ======================================================================== TODO: - The two names are not appropriate /cls/ delete property /name/ /obj/ delete object property /name/ maybe call it "delete ?object? variable" and call these "variable handlers" -- improve syntax output for current object - valuechangedcmd implemented via initcmd does not work with "configure" method - info AddSlotObjects(): handle full-qualified name for private slots Index: library/nx/nx.tcl =================================================================== diff -u -r08ac0ef9f0ac8e6499dce19a4038a1e2e5150a4b -r0ae1c72ceda94c7f6c99b86a1d7f14eaaef12e78 --- library/nx/nx.tcl (.../nx.tcl) (revision 08ac0ef9f0ac8e6499dce19a4038a1e2e5150a4b) +++ library/nx/nx.tcl (.../nx.tcl) (revision 0ae1c72ceda94c7f6c99b86a1d7f14eaaef12e78) @@ -854,7 +854,7 @@ return $defs } :method "info method syntax" {name} { - return [string trimright "/[self]/ [namespace tail $name] [: ::nsf::methods::class::info::method syntax $name]" { }] + return [string trimright "/cls/ [namespace tail $name] [: ::nsf::methods::class::info::method syntax $name]" { }] } :method "info method type" {name} {: ::nsf::methods::class::info::method type $name} :method "info method precondition" {name} {: ::nsf::methods::class::info::method precondition $name} @@ -879,7 +879,7 @@ return $defs } :method "info object method syntax" {name} { - return [string trimright "/[self]/ [namespace tail $name] [: ::nsf::methods::object::info::method syntax $name]" { }] + return [string trimright "/obj/ [namespace tail $name] [: ::nsf::methods::object::info::method syntax $name]" { }] } :method "info object method type" {name} {: ::nsf::methods::object::info::method type $name} :method "info object method precondition" {name} {: ::nsf::methods::object::info::method precondition $name} @@ -910,14 +910,6 @@ # } # } - - ::nx::Class eval { - # - # info redirector - # - :alias "info object" ::nx::Object::slot::__info - } - ###################################################################### # MetaSlot definitions # @@ -2493,14 +2485,14 @@ #interp alias {} ::nx::self {} ::nsf::self set value "?/class .../?|?add /class/?|?delete /class/?" - set "::nsf::parametersyntax(::nsf::classes::nx::Object::object mixin)" $value - set "::nsf::parametersyntax(::nsf::classes::nx::Class::mixin)" $value - set "::nsf::parametersyntax(::nsf::classes::nx::Class::superclass)" $value - set "::nsf::parametersyntax(::nsf::classes::nx::Object::class)" "?/className/?" + set "::nsf::parametersyntax(::nx::Object::slot::__object::object mixin)" $value + set "::nsf::parametersyntax(::nsf::classes::nx::Class::mixin)" $value + set "::nsf::parametersyntax(::nsf::classes::nx::Class::superclass)" $value + set "::nsf::parametersyntax(::nsf::classes::nx::Object::class)" "?/className/?" set value "?/filters/?|?add /filter/?|?delete /filter/?" - set "::nsf::parametersyntax(::nsf::classes::nx::Object::object filter)" $value - set "::nsf::parametersyntax(::nsf::classes::nx::Class::filter)" $value - set "::nsf::parametersyntax(::nsf::classes::nx::Object::eval)" "/arg/ ?/arg/ ...?" + set "::nsf::parametersyntax(::nx::Object::slot::__object::object filter)" $value + set "::nsf::parametersyntax(::nsf::classes::nx::Class::filter)" $value + set "::nsf::parametersyntax(::nsf::classes::nx::Object::eval)" "/arg/ ?/arg/ ...?" unset value ::nsf::configure debug 1 Index: tests/info-method.test =================================================================== diff -u -r98b60429d7f10bf637fa2cfa2bb88d4069e2445f -r0ae1c72ceda94c7f6c99b86a1d7f14eaaef12e78 --- tests/info-method.test (.../info-method.test) (revision 98b60429d7f10bf637fa2cfa2bb88d4069e2445f) +++ tests/info-method.test (.../info-method.test) (revision 0ae1c72ceda94c7f6c99b86a1d7f14eaaef12e78) @@ -662,7 +662,7 @@ ? {nx::Object info method parameters "info lookup methods"} \ "-callprotection -incontext:switch -methodtype -nomixins:switch -path:switch -source pattern:optional" ? {nx::Object info method syntax "info lookup methods"} \ - "/::nx::Object/ info lookup methods ?-callprotection all|public|protected|private? ?-incontext? ?-methodtype all|scripted|builtin|alias|forwarder|object|setter|nsfproc? ?-nomixins? ?-path? ?-source all|application|baseclasses? ?/pattern/?" + "/cls/ info lookup methods ?-callprotection all|public|protected|private? ?-incontext? ?-methodtype all|scripted|builtin|alias|forwarder|object|setter|nsfproc? ?-nomixins? ?-path? ?-source all|application|baseclasses? ?/pattern/?" ? {o info object method parameters "foo b"} "x:int y:upper" @@ -781,12 +781,12 @@ nx::Test case parametersyntax { # a true method ? {::nx::Class info method syntax method} \ - "/::nx::Class/ method /name/ /arguments/ ?-returns /value/? /body/ ?-precondition /value/? ?-postcondition /value/?" + "/cls/ method /name/ /arguments/ ?-returns /value/? /body/ ?-precondition /value/? ?-postcondition /value/?" # a forwarder to ::nsf::relation; definition comes via array ::nsf::parametersyntax - ? {::nx::Class info method syntax mixin} "/::nx::Class/ mixin ?/class .../?|?add /class/?|?delete /class/?" + ? {::nx::Class info method syntax mixin} "/cls/ mixin ?/class .../?|?add /class/?|?delete /class/?" - ? {::nx::Class info method syntax ::nx::next} "/::nx::Class/ next ?/arguments/?" - ? {::nx::Class info method syntax ::nsf::xotclnext} "/::nx::Class/ xotclnext ?--noArgs? ?/arg .../?" + ? {::nx::Class info method syntax ::nx::next} "/cls/ next ?/arguments/?" + ? {::nx::Class info method syntax ::nsf::xotclnext} "/cls/ xotclnext ?--noArgs? ?/arg .../?" } #