--- a/ClassOrganizer.st	Sun Nov 02 18:18:44 1997 +0100
+++ b/ClassOrganizer.st	Sun Nov 02 18:23:54 1997 +0100
@@ -123,6 +123,24 @@
     "
 !
 
+elements
+    "return a collection of my classes selectors"
+
+    |set|
+
+    set := IdentitySet new.
+    class methodDictionary keysAndValuesDo:[:sel :m |
+        set add:sel
+    ].
+    ^ set asArray
+
+    "
+     SmallInteger organization elements 
+    "
+
+    "Modified: / 1.11.1997 / 14:09:55 / cg"
+!
+
 listAtCategoryNamed:aCategorySymbol
     "return a collection of selectors whose methods are categorized
      as aCategorySymbol"
@@ -258,5 +276,5 @@
 !ClassOrganizer class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ClassOrganizer.st,v 1.11 1997-06-20 16:56:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ClassOrganizer.st,v 1.12 1997-11-02 17:23:54 cg Exp $'
 ! !