class: SystemOrganizer
authorClaus Gittinger <cg@exept.de>
Wed, 05 Feb 2014 11:01:30 +0100
changeset 3437 7a231b62ca7d
parent 3436 35ed9c4f4591
child 3438 2979da5dd5a3
class: SystemOrganizer changed: #classify:under: ot is bad to return the value from a setter (instead of the receiver); makes cascades error prone
SystemOrganizer.st
--- 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 $'
 ! !
+