class: ProjectDefinition
comment/format in: #loadClassLibrary
changed:
#loadExtensions
#preRequisitesFor:
#loadPackage: now raises PackageLoadError on failure
--- 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