Index: TODO =================================================================== diff -u -rea714cba2d65e425ab64d6c76a11d60c8b2dc5ea -r9abeee97470aeca0efde319271794f7f76903670 --- TODO (.../TODO) (revision ea714cba2d65e425ab64d6c76a11d60c8b2dc5ea) +++ TODO (.../TODO) (revision 9abeee97470aeca0efde319271794f7f76903670) @@ -2582,6 +2582,8 @@ - Extended regression test - Improve locality +- Let "info slot" return the slot object + TODO: - how to delete attributes? Index: library/nx/nx.tcl =================================================================== diff -u -r4d9e5592fdf912b1fa9153e4c475cc239ea3c305 -r9abeee97470aeca0efde319271794f7f76903670 --- library/nx/nx.tcl (.../nx.tcl) (revision 4d9e5592fdf912b1fa9153e4c475cc239ea3c305) +++ library/nx/nx.tcl (.../nx.tcl) (revision 9abeee97470aeca0efde319271794f7f76903670) @@ -493,7 +493,7 @@ :alias "info precedence" ::nsf::methods::object::info::precedence :method "info slot" {name} { set slot [::nsf::self]::slot::$name - if {[::nsf::isobject $slot]} {return $name} + if {[::nsf::isobject $slot]} {return $slot} return "" } :method "info slots" {{-type ::nx::Slot} {pattern ""}} {