--- a/ClassOrganizer.st Wed Oct 31 11:53:52 2001 +0100
+++ b/ClassOrganizer.st Mon Nov 05 14:57:06 2001 +0100
@@ -76,7 +76,16 @@
for:aClass
"create & return a new instance of myself, to organize aClass"
- ^ self new class:aClass
+ ^ super new class:aClass
+
+ "Modified: / 31.10.2001 / 08:58:49 / cg"
+!
+
+new
+ self halt.
+ ^ super new
+
+ "Created: / 31.10.2001 / 08:58:39 / cg"
! !
!ClassOrganizer class methodsFor:'defaults'!
@@ -85,6 +94,7 @@
^ 'as yet unspecified'
! !
+
!ClassOrganizer methodsFor:'accessing'!
addCategory:aCategory
@@ -293,22 +303,24 @@
] ifFalse:[
coll := categories
].
- coll keysAndValuesDo:[:category :list |
- aStream nextPut:$(.
- aStream nextPutAll:category asString storeString.
- list do:[:selector |
- aStream space.
- selector storeOn:aStream
- ].
- aStream nextPut:$).
- aStream cr
+ coll notNil ifTrue:[
+ coll keysAndValuesDo:[:category :list |
+ aStream nextPut:$(.
+ aStream nextPutAll:category asString storeString.
+ list do:[:selector |
+ aStream space.
+ selector storeOn:aStream
+ ].
+ aStream nextPut:$).
+ aStream cr
+ ]
]
"
Number organization printString
"
- "Modified: 20.6.1997 / 18:08:15 / cg"
+ "Modified: / 30.10.2001 / 17:58:50 / cg"
! !
!ClassOrganizer methodsFor:'private access'!
@@ -329,5 +341,5 @@
!ClassOrganizer class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic3/ClassOrganizer.st,v 1.19 2000-11-21 23:37:39 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/ClassOrganizer.st,v 1.20 2001-11-05 13:57:06 cg Exp $'
! !