--- a/SystemOrganizer.st Thu Feb 04 12:48:07 2010 +0100
+++ b/SystemOrganizer.st Tue Mar 09 13:09:51 2010 +0100
@@ -90,7 +90,7 @@
|cat|
aClass isMeta ifFalse:[
- (aClass isNameSpace not) ifTrue:[
+ aClass isNameSpace ifFalse:[
cat := aClass category.
cat isNil ifTrue:[
cat := '* no category *'
@@ -159,8 +159,8 @@
cats sort.
AllCategories := cats.
].
- (categoryArray notNil and:[categoryArray includes:newCategory]) not
- ifTrue:[
+ (categoryArray notNil and:[categoryArray includes:newCategory])
+ ifFalse:[
categoryArray := nil.
].
^ cls category:newCategory
@@ -188,7 +188,7 @@
|cat|
aClass isMeta ifFalse:[
- (aClass isRealNameSpace not) ifTrue:[
+ aClass isRealNameSpace ifFalse:[
(allNames or:[aClass nameSpace == nameSpace]) ifTrue:[
cat := aClass category.
cat = aCategory ifTrue:[
@@ -239,5 +239,9 @@
!SystemOrganizer class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic3/SystemOrganizer.st,v 1.12 2006-11-10 16:23:03 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/SystemOrganizer.st,v 1.13 2010-03-09 12:09:51 cg Exp $'
+!
+
+version_CVS
+ ^ '$Header: /cvs/stx/stx/libbasic3/SystemOrganizer.st,v 1.13 2010-03-09 12:09:51 cg Exp $'
! !