--- a/NameSpace.st	Tue Sep 22 12:50:58 2009 +0200
+++ b/NameSpace.st	Tue Sep 22 13:23:54 2009 +0200
@@ -418,6 +418,26 @@
     "Modified: / 18.3.1999 / 17:21:06 / cg"
 !
 
+allMethodsDo:aBlock
+    "enumerate all methods in this namespace's classes"
+
+    self allClassesDo:[:eachClass |
+        eachClass instAndClassSelectorsAndMethodsDo:[:sel :mthd |
+            aBlock value:mthd
+        ]
+    ].
+!
+
+allMethodsWithSelectorDo:aBlock
+    "enumerate all methods in the Smalltalk namespace's classes"
+
+    self allClassesDo:[:eachClass |
+        eachClass instAndClassSelectorsAndMethodsDo:[:sel :mthd |
+            aBlock value:mthd value:sel
+        ]
+    ].
+!
+
 keys
     "enumerate all class names in this namespace"
 
@@ -604,5 +624,5 @@
 !NameSpace class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/NameSpace.st,v 1.66 2007-05-31 16:28:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/NameSpace.st,v 1.67 2009-09-22 11:23:54 cg Exp $'
 ! !