ProjectProblem.st
changeset 3777 cfc0d41d6bec
parent 3776 078a3769d4df
child 3778 f715f1c5deae
--- a/ProjectProblem.st	Tue Feb 10 16:00:19 2015 +0100
+++ b/ProjectProblem.st	Tue Feb 10 16:07:53 2015 +0100
@@ -1034,13 +1034,32 @@
     "Created: / 26-07-2012 / 10:41:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
+doMakeSuperclassCompiled
+    "Include subject's super class in project definition as compiled class. 
+     Return false if fix fails, true otherwise"
+
+    | def cls superclass |
+
+    def := self packageDefinitionClass.
+    def isNil ifTrue:[ ^ false ].
+    cls := self klass.
+    cls isNil ifTrue:[ ^ false ].
+    superclass := (Smalltalk at: className) superclass.
+    def includeClasses:(Array with: superclass) usingCompiler: nil.
+
+    UserNotification notify: ('Superclass added/changed. Do not forget to check in build support files!!' bindWith: className).
+    ^true
+!
+
 fixes
 
-    ^Array
-        with: (Array with: 'Add class ', className , ' to project as autoloaded' with: [ self doIncludeInProjectAsAutoloaded ])
-
-    "Created: / 26-07-2012 / 10:41:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 20-09-2013 / 11:06:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    ^ {
+        { 'Add class ',className,' to project as autoloaded' . 
+                        [ self doIncludeInProjectAsAutoloaded ]} .
+        { 'Make superclass ',((Smalltalk at: className) superclass name),' compiled' . 
+                        [ self doMakeSuperclassCompiled ]} .
+
+    }
 ! !
 
 !ProjectProblem::ClassShouldNotBeInPackage methodsFor:'accessing-description'!
@@ -2118,14 +2137,14 @@
 !ProjectProblem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ProjectProblem.st,v 1.38 2015-02-10 15:00:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ProjectProblem.st,v 1.39 2015-02-10 15:07:53 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/ProjectProblem.st,v 1.38 2015-02-10 15:00:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ProjectProblem.st,v 1.39 2015-02-10 15:07:53 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: ProjectProblem.st,v 1.38 2015-02-10 15:00:19 cg Exp $'
+    ^ '$Id: ProjectProblem.st,v 1.39 2015-02-10 15:07:53 cg Exp $'
 ! !