changed: #preRequisitesFor:
authorClaus Gittinger <cg@exept.de>
Sat, 19 Nov 2011 11:25:49 +0100
changeset 13820 f46f7306eea2
parent 13819 095f081028fc
child 13821 b8f74fc87584
changed: #preRequisitesFor:
ProjectDefinition.st
--- a/ProjectDefinition.st	Sat Nov 19 11:23:29 2011 +0100
+++ b/ProjectDefinition.st	Sat Nov 19 11:25:49 2011 +0100
@@ -12,11 +12,11 @@
 "{ Package: 'stx:libbasic' }"
 
 Object subclass:#ProjectDefinition
-        instanceVariableNames:''
-        classVariableNames:'LibraryType GUIApplicationType NonGUIApplicationType
-                PackagesBeingLoaded Verbose AbbrevDictionary AccessLock'
-        poolDictionaries:''
-        category:'System-Support-Projects'
+	instanceVariableNames:''
+	classVariableNames:'LibraryType GUIApplicationType NonGUIApplicationType
+		PackagesBeingLoaded Verbose AbbrevDictionary AccessLock'
+	poolDictionaries:''
+	category:'System-Support-Projects'
 !
 
 ProjectDefinition class instanceVariableNames:'safeForOverwrittenMethods extensionOverwriteInfo projectIsLoaded'
@@ -27,10 +27,10 @@
 !
 
 Object subclass:#AbbrevEntry
-        instanceVariableNames:'className fileName category numClassInstVars'
-        classVariableNames:''
-        poolDictionaries:''
-        privateIn:ProjectDefinition
+	instanceVariableNames:'className fileName category numClassInstVars'
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:ProjectDefinition
 !
 
 !ProjectDefinition class methodsFor:'documentation'!
@@ -1884,22 +1884,24 @@
 !
 
 preRequisitesFor: packageId
-
     | def |
 
     def := self definitionClassForPackage:packageId.
-    def ifNil:
-        ["Maybe the package is not loaded? Try to load it..."
+    def isNil ifTrue:[
+        "Maybe the package is not loaded? Try to load it..."
         (Smalltalk loadPackage: packageId) ifTrue:
-            [def := self definitionClassForPackage:packageId]].
-    ^def
-        ifNil:
+            [def := self definitionClassForPackage:packageId]
+    ].
+    ^ def isNil 
+        ifTrue:
             ["Still no project definition - maybe does not exists?"
             (ProjectDefinition searchForPreRequisites: packageId) keys]
-        ifNotNil:
+        ifFalse:
             [def effectivePreRequisites]
 
     "Created: / 24-02-2011 / 22:47:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 18-11-2011 / 14:52:43 / cg"
+    "Modified (format): / 19-11-2011 / 11:25:36 / cg"
 !
 
 preRequisitesForBuilding
@@ -6580,11 +6582,11 @@
 !ProjectDefinition class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.370 2011-10-31 10:18:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.371 2011-11-19 10:25:49 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.370 2011-10-31 10:18:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.371 2011-11-19 10:25:49 cg Exp $'
 !
 
 version_SVN