#BUGFIX by cg
authorClaus Gittinger <cg@exept.de>
Tue, 21 Feb 2017 18:13:56 +0100
changeset 21509 a02e65126cb3
parent 21508 d43421c8984c
child 21510 2ef287a4be37
#BUGFIX by cg class: ProjectDefinition changed: #allPreRequisitesSorted #searchForPreRequisites:withSubProjects: autoloaded classes are not strictly requiring the other package as mandatory prereq
ProjectDefinition.st
--- a/ProjectDefinition.st	Tue Feb 21 18:12:57 2017 +0100
+++ b/ProjectDefinition.st	Tue Feb 21 18:13:56 2017 +0100
@@ -7284,12 +7284,14 @@
     [
         ^ self allPreRequisitesSorted:#effectivePreRequisites
     ] on:Error do:[:ex |
-        (self confirm:(self name,' [warning]: cycle in prerequisites:' ,, Character cr, '    ', (ex parameter printStringWithSeparator:' -> ') ,, Character cr,  'Proceed with incomplete (mandatory) prerequites?'))
+        (self confirm:(self name,' [warning]: cycle in prerequisites:' ,, Character cr, '    ', (ex parameter printStringWithSeparator:' -> ') ,, Character cr,  'Proceed with incomplete (only mandatory) prerequites?'))
         ifFalse:[
             AbortOperationRequest raise
         ].
         ^ self allPreRequisitesSorted:#mandatoryPreRequisites
     ].
+
+    "Modified: / 21-02-2017 / 17:53:35 / cg"
 !
 
 allPreRequisitesSorted:aSelector
@@ -7505,9 +7507,11 @@
      and my subProject's classes (if required) are mandatory.
      All shared pools used by my classes are required as well"
     requiredClasses do:[:cls |
-        cls allSuperclassesDo:[:eachSuperclass |
-            (mandatoryClassesForLoadingWithReasons at: eachSuperclass ifAbsentPut:[OrderedSet new])
-                add: (eachSuperclass name, ' - superclass of ', cls name).
+        (self autoloaded_classNames includes:cls name) ifFalse:[
+            cls allSuperclassesDo:[:eachSuperclass |
+                (mandatoryClassesForLoadingWithReasons at: eachSuperclass ifAbsentPut:[OrderedSet new])
+                    add: (eachSuperclass name, ' - superclass of ', cls name).
+            ].
         ].
         cls sharedPools do:[:eachSharedPool |
             (mandatoryClassesForLoadingWithReasons at: eachSharedPool ifAbsentPut:[OrderedSet new])
@@ -7592,6 +7596,7 @@
     "Created: / 17-11-2010 / 18:27:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Created: / 06-09-2011 / 08:29:37 / cg"
     "Modified: / 30-07-2014 / 20:33:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 21-02-2017 / 17:45:58 / cg"
 ! !
 
 !ProjectDefinition class methodsFor:'queries'!