class: ProjectDefinition
authorStefan Vogel <sv@exept.de>
Tue, 25 Feb 2014 14:30:35 +0100
changeset 16146 1637eb12dc30
parent 16145 8687a6524d21
child 16147 00010c63a9ef
class: ProjectDefinition comment/format in: #loadClassLibrary changed: #loadExtensions #preRequisitesFor: #loadPackage: now raises PackageLoadError on failure
ProjectDefinition.st
--- a/ProjectDefinition.st	Tue Feb 25 14:29:42 2014 +0100
+++ b/ProjectDefinition.st	Tue Feb 25 14:30:35 2014 +0100
@@ -870,9 +870,6 @@
     "Modified (comment): / 28-06-2013 / 11:25:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
-
-
-
 !ProjectDefinition class methodsFor:'accessing - packaging'!
 
 classNames:aCollectionOfClassNames
@@ -2088,9 +2085,10 @@
     def := self definitionClassForPackage:packageId.
     def isNil ifTrue:[
         "Maybe the package is not loaded? Try to load it..."
-        (Smalltalk loadPackage:packageId) ifTrue:[
+        [
+            Smalltalk loadPackage:packageId.
             def := self definitionClassForPackage:packageId
-        ]
+        ] on:PackageLoadError do:[:ex| def := nil].
     ].
     ^ def isNil 
         ifTrue:[
@@ -2163,7 +2161,6 @@
     "Modified: / 17-08-2006 / 19:59:26 / cg"
 ! !
 
-
 !ProjectDefinition class methodsFor:'description - classes'!
 
 additionalClassNamesAndAttributes
@@ -2587,6 +2584,7 @@
     "Created: / 18-08-2006 / 12:51:38 / cg"
 ! !
 
+
 !ProjectDefinition class methodsFor:'description - project information'!
 
 applicationAdditionalIconFileNames
@@ -6189,7 +6187,7 @@
 
 loadClassLibrary
     "try to load a binary class library
-     Return true if ok, false if not."
+     Return true if ok, raise an exception if not."
 
     |libraryName|
 
@@ -6215,8 +6213,7 @@
         Verbose ifTrue:[
             Transcript showCR:('  %1: filing in extensions...' bindWith:self name).
         ].
-        Smalltalk loadExtensionsForPackage:self package.
-        ^ true.
+        ^ Smalltalk loadExtensionsForPackage:self package.
     ].
     ^ false.
 
@@ -7585,11 +7582,11 @@
 !ProjectDefinition class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.491 2014-02-13 12:27:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.492 2014-02-25 13:30:35 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.491 2014-02-13 12:27:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.492 2014-02-25 13:30:35 stefan Exp $'
 !
 
 version_SVN