ProjectDefinition.st
changeset 10574 b77b673bc36c
parent 10570 b5059e9c227d
child 10691 8a596325c1bb
--- a/ProjectDefinition.st	Wed May 30 13:48:43 2007 +0200
+++ b/ProjectDefinition.st	Wed May 30 14:48:07 2007 +0200
@@ -954,9 +954,15 @@
 !
 
 preRequisites_code
-    |preRequisites searchedPreRequisites|
+    "generate the code of the #preRequisites method"
+
+    |preRequisites searchedPreRequisites importantReason|
+
+    "maybe, some prerequisites have been added manually - keep them
+     The drawback of this - a preRequisite will never go away, even if it is no longer used"
 
     preRequisites := self preRequisites asSet.
+
     searchedPreRequisites := self searchForPreRequisites.
     preRequisites addAll: (searchedPreRequisites keys).
 
@@ -985,7 +991,11 @@
             eachPackageID storeOn:s.
             reason := searchedPreRequisites at:eachPackageID ifAbsent:nil.
             reason notEmptyOrNil ifTrue:[
-                s nextPutAll:'    "'; nextPutAll:reason anElement; nextPutAll:' "'. 
+                "superclasses are really important"
+                importantReason := reason detect:[:eachReasonString| 
+                    eachReasonString includesString:' superclass '
+                ] ifNone:[reason anElement].
+                s nextPutAll:'    "'; nextPutAll:importantReason; nextPutAll:' "'. 
             ].
             s cr.
         ].      
@@ -995,6 +1005,7 @@
     "
      bosch_dapasx_application preRequisites_code
      demo_demoApp1 preRequisites_code
+     stx_libbasic3 preRequisites_code
      stx_libtool2 preRequisites_code
     "
 
@@ -3792,7 +3803,7 @@
 !ProjectDefinition class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.160 2007-05-30 10:46:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.161 2007-05-30 12:48:07 stefan Exp $'
 ! !
 
 ProjectDefinition initialize!