diff -r 078a3769d4df -r cfc0d41d6bec ProjectProblem.st --- 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 " ! +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 " - "Modified: / 20-09-2013 / 11:06:58 / Jan Vrany " + ^ { + { '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 $' ! !