Index: library/nx/nx.tcl =================================================================== diff -u -N -r9e766c226c7ddb35a4aa20ca7a9e8d6678a7c9e2 -r5cb647f407e85768c452ee22eaf881d628511c87 --- library/nx/nx.tcl (.../nx.tcl) (revision 9e766c226c7ddb35a4aa20ca7a9e8d6678a7c9e2) +++ library/nx/nx.tcl (.../nx.tcl) (revision 5cb647f407e85768c452ee22eaf881d628511c87) @@ -721,25 +721,25 @@ :alias "info object methods" ::nsf::methods::object::info::methods :alias "info object mixin guard" ::nsf::methods::object::info::mixinguard :alias "info object mixin classes" ::nsf::methods::object::info::mixinclasses - :alias "info parent" ::nsf::methods::object::info::parent - :alias "info precedence" ::nsf::methods::object::info::precedence - :method "info slot definitions" {{-type:class ::nx::Slot} pattern:optional} { + :method "info object slot definitions" {{-type:class ::nx::Slot} pattern:optional} { set result {} foreach slot [: ::nsf::methods::object::info::slotobjects -type $type {*}[current args]] { lappend result [$slot getPropertyDefinition] } return $result } - :method "info slot names" {{-type:class ::nx::Slot} pattern:optional} { + :method "info object slot names" {{-type:class ::nx::Slot} pattern:optional} { set result {} foreach slot [: ::nsf::methods::object::info::slotobjects -type $type {*}[current args]] { lappend result [$slot name] } return $result } - :method "info slot objects" {{-type:class ::nx::Slot} pattern:optional} { + :method "info object slot objects" {{-type:class ::nx::Slot} pattern:optional} { return [: ::nsf::methods::object::info::slotobjects -type $type {*}[current args]] } + :alias "info parent" ::nsf::methods::object::info::parent + :alias "info precedence" ::nsf::methods::object::info::precedence # "info properties" is a short form of "info slot definition" #:alias "info properties" ::nx::Object::slot::__info::slot::definition :alias "info vars" ::nsf::methods::object::info::vars @@ -2452,14 +2452,14 @@ #interp alias {} ::nx::self {} ::nsf::self set value "?classes?|?add class?|?delete class?" - set ::nsf::parametersyntax(::nsf::classes::nx::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(::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 value "?filters?|?add filter?|?delete filter?" - set ::nsf::parametersyntax(::nsf::classes::nx::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(::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 ...?" unset value ::nsf::configure debug 1