--- a/SystemOrganizer.st Thu Aug 31 16:49:14 2000 +0200
+++ b/SystemOrganizer.st Sun Sep 03 16:44:05 2000 +0200
@@ -12,6 +12,8 @@
+"{ Package: 'stx:libbasic3' }"
+
Object subclass:#SystemOrganizer
instanceVariableNames:'categoryArray nameSpace'
classVariableNames:'AllCategories'
@@ -99,7 +101,7 @@
AllCategories isNil ifTrue:[
categorySet := Set new.
- Smalltalk allBehaviorsDo:addClassAction.
+ Smalltalk allClassesDo:addClassAction.
AllCategories := categorySet.
].
@@ -111,7 +113,7 @@
categorySet := AllCategories.
] ifFalse:[
categorySet := Set new.
- searchedNamespace allBehaviorsDo:addClassAction.
+ searchedNamespace allClassesDo:addClassAction.
].
categoryArray := categorySet asArray sort.
^ categoryArray
@@ -178,7 +180,7 @@
searchedNamespace := Smalltalk.
].
- searchedNamespace allBehaviorsDo:[:aClass |
+ searchedNamespace allClassesDo:[:aClass |
|cat|
aClass isMeta ifFalse:[
@@ -233,5 +235,5 @@
!SystemOrganizer class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic3/SystemOrganizer.st,v 1.7 2000-04-12 21:41:37 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/SystemOrganizer.st,v 1.8 2000-09-03 14:44:05 cg Exp $'
! !