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]} {