Index: TODO =================================================================== diff -u -rf61518b9556af306683db0d000ad4ca637136b37 -r4d9e5592fdf912b1fa9153e4c475cc239ea3c305 --- TODO (.../TODO) (revision f61518b9556af306683db0d000ad4ca637136b37) +++ TODO (.../TODO) (revision 4d9e5592fdf912b1fa9153e4c475cc239ea3c305) @@ -2570,6 +2570,7 @@ * added flag ?-type ...? to "info slots" * delete accessor when slot is destroyed * added pattern to "info slots" +* added to "info slot /attName/" TODO: - maybe the destructor of a slot should remove the setter/forwarder Index: library/nx/nx.tcl =================================================================== diff -u -rf61518b9556af306683db0d000ad4ca637136b37 -r4d9e5592fdf912b1fa9153e4c475cc239ea3c305 --- library/nx/nx.tcl (.../nx.tcl) (revision f61518b9556af306683db0d000ad4ca637136b37) +++ library/nx/nx.tcl (.../nx.tcl) (revision 4d9e5592fdf912b1fa9153e4c475cc239ea3c305) @@ -491,6 +491,11 @@ :alias "info 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" {name} { + set slot [::nsf::self]::slot::$name + if {[::nsf::isobject $slot]} {return $name} + return "" + } :method "info slots" {{-type ::nx::Slot} {pattern ""}} { set slotContainer [::nsf::self]::slot if {[::nsf::isobject $slotContainer]} { Index: tests/submethods.test =================================================================== diff -u -r9fa2b6fcc1348e36c652d68e06077c43fd14d92b -r4d9e5592fdf912b1fa9153e4c475cc239ea3c305 --- tests/submethods.test (.../submethods.test) (revision 9fa2b6fcc1348e36c652d68e06077c43fd14d92b) +++ tests/submethods.test (.../submethods.test) (revision 4d9e5592fdf912b1fa9153e4c475cc239ea3c305) @@ -226,7 +226,7 @@ # defaultcmd has to return also subcmds of other shadowed ensembles ? {lsort [o1 info has]} "Valid submethods of ::o1 info has: mixin namespace something type" - ? {lsort [o1 info]} "Valid submethods of ::o1 info: children class filter has info is lookup method methods mixin parent precedence slots vars" + ? {lsort [o1 info]} "Valid submethods of ::o1 info: children class filter has info is lookup method methods mixin parent precedence slot slots vars" # returning methodpath in ensemble ? {o1 info has something path} "info has something path"