class: SystemOrganizer
changed: #classify:under:
ot is bad to return the value from a setter
(instead of the receiver); makes cascades error prone
--- a/SystemOrganizer.st Wed Feb 05 11:01:15 2014 +0100
+++ b/SystemOrganizer.st Wed Feb 05 11:01:30 2014 +0100
@@ -62,7 +62,6 @@
"Modified: / 21.8.2001 / 15:22:20 / cg"
! !
-
!SystemOrganizer methodsFor:'accessing'!
addCategory:aCategory before:someOtherCategory
@@ -164,7 +163,8 @@
ifFalse:[
categoryArray := nil.
].
- ^ cls category:newCategory
+ cls category:newCategory.
+ ^ self
].
self error:'no such class'.
@@ -245,9 +245,10 @@
!SystemOrganizer class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic3/SystemOrganizer.st,v 1.14 2011-08-20 16:30:14 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/SystemOrganizer.st,v 1.15 2014-02-05 10:01:30 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic3/SystemOrganizer.st,v 1.14 2011-08-20 16:30:14 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/SystemOrganizer.st,v 1.15 2014-02-05 10:01:30 cg Exp $'
! !
+