--- 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 $'
! !