oops stc problem
authorClaus Gittinger <cg@exept.de>
Tue, 10 Feb 2015 16:12:53 +0100
changeset 3778 f715f1c5deae
parent 3777 cfc0d41d6bec
child 3779 a642b81f46d4
oops stc problem
ProjectProblem.st
--- a/ProjectProblem.st	Tue Feb 10 16:07:53 2015 +0100
+++ b/ProjectProblem.st	Tue Feb 10 16:12:53 2015 +0100
@@ -1052,14 +1052,18 @@
 !
 
 fixes
-
-    ^ {
+    |fixes|
+
+    fixes := OrderedCollection new.
+
+    fixes add:
         { 'Add class ',className,' to project as autoloaded' . 
                         [ self doIncludeInProjectAsAutoloaded ]} .
-        { 'Make superclass ',((Smalltalk at: className) superclass name),' compiled' . 
+    fixes add:    
+	{ 'Make superclass ',((Smalltalk at: className) superclass name),' compiled' . 
                         [ self doMakeSuperclassCompiled ]} .
 
-    }
+    ^ fixes
 ! !
 
 !ProjectProblem::ClassShouldNotBeInPackage methodsFor:'accessing-description'!
@@ -2137,14 +2141,14 @@
 !ProjectProblem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ProjectProblem.st,v 1.39 2015-02-10 15:07:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ProjectProblem.st,v 1.40 2015-02-10 15:12:53 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/ProjectProblem.st,v 1.39 2015-02-10 15:07:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ProjectProblem.st,v 1.40 2015-02-10 15:12:53 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: ProjectProblem.st,v 1.39 2015-02-10 15:07:53 cg Exp $'
+    ^ '$Id: ProjectProblem.st,v 1.40 2015-02-10 15:12:53 cg Exp $'
 ! !