Index: TODO
===================================================================
diff -u -r740f3962715e4ba7f9c23086bd41a043c1c77427 -rf61518b9556af306683db0d000ad4ca637136b37
--- TODO	(.../TODO)	(revision 740f3962715e4ba7f9c23086bd41a043c1c77427)
+++ TODO	(.../TODO)	(revision f61518b9556af306683db0d000ad4ca637136b37)
@@ -2569,6 +2569,7 @@
 * made all useful converters external symbols
 * added flag ?-type ...? to "info slots"
 * delete accessor when slot is destroyed
+* added pattern to "info slots"
 
 TODO:
 - maybe the destructor of a slot should remove the setter/forwarder
Index: library/nx/nx.tcl
===================================================================
diff -u -r740f3962715e4ba7f9c23086bd41a043c1c77427 -rf61518b9556af306683db0d000ad4ca637136b37
--- library/nx/nx.tcl	(.../nx.tcl)	(revision 740f3962715e4ba7f9c23086bd41a043c1c77427)
+++ library/nx/nx.tcl	(.../nx.tcl)	(revision f61518b9556af306683db0d000ad4ca637136b37)
@@ -491,10 +491,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" {{-type ::nx::Slot}} {
+    :method "info slots" {{-type ::nx::Slot} {pattern ""}} {
       set slotContainer [::nsf::self]::slot
       if {[::nsf::isobject $slotContainer]} {
-	::nsf::dispatch $slotContainer ::nsf::methods::object::info::children -type $type
+	::nsf::dispatch $slotContainer ::nsf::methods::object::info::children -type $type {*}$pattern
       }
     }
     :alias "info vars"           ::nsf::methods::object::info::vars