Index: TODO =================================================================== diff -u -r65abda7763aa24fe8a33728195cc3043d06ee660 -rf044ef96d08570d2c4f5c82ce19f839c5ee2ca3b --- TODO (.../TODO) (revision 65abda7763aa24fe8a33728195cc3043d06ee660) +++ TODO (.../TODO) (revision f044ef96d08570d2c4f5c82ce19f839c5ee2ca3b) @@ -2567,6 +2567,7 @@ * added flag ?-type ...? to "info lookup slots" * made all useful converters external symbols +* added flag ?-type ...? to "info slots" TODO: - maybe the destructor of a slot should remove the setter/forwarder Index: library/nx/nx.tcl =================================================================== diff -u -r65abda7763aa24fe8a33728195cc3043d06ee660 -rf044ef96d08570d2c4f5c82ce19f839c5ee2ca3b --- library/nx/nx.tcl (.../nx.tcl) (revision 65abda7763aa24fe8a33728195cc3043d06ee660) +++ library/nx/nx.tcl (.../nx.tcl) (revision f044ef96d08570d2c4f5c82ce19f839c5ee2ca3b) @@ -492,10 +492,10 @@ :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 slots" {} { + :method "info slots" {{-type ::nx::Slot}} { set slotContainer [::nsf::self]::slot if {[::nsf::isobject $slotContainer]} { - ::nsf::dispatch $slotContainer ::nsf::methods::object::info::children -type ::nx::Slot + ::nsf::dispatch $slotContainer ::nsf::methods::object::info::children -type $type } } :alias "info vars" ::nsf::methods::object::info::vars