--- a/SystemOrganizer.st Wed Apr 12 23:40:29 2000 +0200
+++ b/SystemOrganizer.st Wed Apr 12 23:41:37 2000 +0200
@@ -85,7 +85,7 @@
|cat|
aClass isMeta ifFalse:[
- (aClass isNamespace not) ifTrue:[
+ (aClass isNameSpace not) ifTrue:[
cat := aClass category.
cat isNil ifTrue:[
cat := '* no category *'
@@ -182,8 +182,8 @@
|cat|
aClass isMeta ifFalse:[
- (aClass isNamespace not
- or:[aClass == Namespace
+ (aClass isNameSpace not
+ or:[aClass == NameSpace
or:[aClass == Smalltalk]]) ifTrue:[
(allNames or:[aClass nameSpace == nameSpace]) ifTrue:[
cat := aClass category.
@@ -233,5 +233,5 @@
!SystemOrganizer class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic3/SystemOrganizer.st,v 1.6 2000-02-18 14:38:52 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/SystemOrganizer.st,v 1.7 2000-04-12 21:41:37 cg Exp $'
! !