--- a/ProjectDefinition.st Wed Aug 23 22:21:00 2006 +0200
+++ b/ProjectDefinition.st Wed Aug 23 22:21:14 2006 +0200
@@ -945,7 +945,7 @@
addEntry :=
[:eachClassName |
- |cls fn wasLoaded numClassInstvars|
+ |cls fn wasLoaded failedToLoad numClassInstvars|
s nextPutAll:eachClassName.
s nextPutAll:' '.
@@ -963,7 +963,13 @@
s nextPutAll:' '; nextPutAll:'0'.
] ifFalse:[
wasLoaded := cls isLoaded.
- cls autoload.
+ failedToLoad := false.
+
+ Error handle:[:ex |
+ failedToLoad := true.
+ ] do:[
+ cls autoload.
+ ].
fn := cls classFilename asFilename withoutSuffix.
fn suffix notEmptyOrNil ifTrue:[
@@ -977,9 +983,12 @@
].
s nextPutAll:' '; nextPutAll:(cls package); nextPutAll:' '.
s nextPutAll: (cls category asString storeString).
- numClassInstvars := cls theMetaclass instSize - Class instSize.
- s nextPutAll:' '; nextPutAll:numClassInstvars printString.
-
+ failedToLoad ifTrue:[
+ s nextPutAll:' 0'.
+ ] ifFalse:[
+ numClassInstvars := cls theMetaclass instSize - Class instSize.
+ s nextPutAll:' '; nextPutAll:numClassInstvars printString.
+ ].
wasLoaded ifFalse:[
cls unload
]
@@ -1828,5 +1837,5 @@
!ProjectDefinition class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.36 2006-08-23 20:06:08 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.37 2006-08-23 20:21:14 cg Exp $'
! !