--- a/NameSpace.st Thu Mar 16 15:50:35 2006 +0100
+++ b/NameSpace.st Thu Mar 16 16:57:40 2006 +0100
@@ -388,6 +388,20 @@
"Modified: / 18.3.1999 / 17:21:06 / cg"
!
+keys
+ "enumerate all class names in this namespace"
+
+ |setOfKeys|
+
+ setOfKeys := OrderedCollection new.
+ self keysDo:[:eachKey |setOfKeys add:eachKey].
+ ^ setOfKeys
+
+ "
+ Benchmarks keys
+ "
+!
+
keysDo:aBlock
"enumerate all class names in this namespace"
@@ -549,5 +563,5 @@
!NameSpace class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/NameSpace.st,v 1.56 2006-03-13 15:53:58 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/NameSpace.st,v 1.57 2006-03-16 15:57:40 cg Exp $'
! !