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