better error dialog message
authorClaus Gittinger <cg@exept.de>
Fri, 19 Oct 2007 16:24:33 +0200
changeset 10745 4ac84a1c1516
parent 10744 afd1835c12d2
child 10746 6a8bf3c28a7d
better error dialog message
ProjectDefinition.st
--- 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!