--- a/ProjectDefinition.st Thu Oct 18 10:33:46 2007 +0200
+++ b/ProjectDefinition.st Fri Oct 19 16:24:33 2007 +0200
@@ -1915,16 +1915,16 @@
!
generate_abbrev_dot_stc
- |anyNil check|
-
- anyNil := false.
+ |someNilClassesName check|
+
check :=
[:eachClassName |
|cls fn wasLoaded failedToLoad numClassInstvars|
cls := Smalltalk classNamed:eachClassName.
cls isNil ifTrue:[
- anyNil := true.
+ Transcript showCR:eachClassName.
+ someNilClassesName := eachClassName.
].
].
@@ -1934,8 +1934,10 @@
check value:nm
].
].
- anyNil ifTrue:[
- (Dialog confirm:'Some classes are missing. Cannot generate a correct "abbrev.stc" file.\\Continue anyway?' withCRs)
+ someNilClassesName notNil ifTrue:[
+ (Dialog confirm:(Dialog classResources
+ stringWithCRs:'"%1" and possibly more classes are missing.\Cannot generate a correct "abbrev.stc" file.\\Continue anyway?'
+ with:someNilClassesName allBold))
ifFalse:[
AbortSignal raise.
].
@@ -3859,7 +3861,7 @@
!ProjectDefinition class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.164 2007-09-11 11:55:59 fm Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.165 2007-10-19 14:24:33 cg Exp $'
! !
ProjectDefinition initialize!