--- a/FileApplicationNoteBook.st	Tue Jan 10 14:32:27 2006 +0100
+++ b/FileApplicationNoteBook.st	Wed Jan 11 00:23:03 2006 +0100
@@ -4316,7 +4316,10 @@
     presentation == #asText ifTrue:[
         file fileSize > (4 * 1024 * 1024) ifTrue:[
             answer := Dialog 
-                            confirmWithCancel:(file asString allBold, ' is very large.\\Show all or only the first 4 Mb ?' withCRs)
+                            confirmWithCancel:(resources
+                                                stringWithCRs:'%1 is very large (%2).\\Show all or only the first 4 Mb ?' 
+                                                with:file asString allBold 
+                                                with:(UnitConverter fileSizeStringFor:file fileSize))
                             labels:#('Cancel' 'Show All' 'Show First Part' ).
             answer isNil ifTrue:[^ nil].
             answer ifTrue:[
@@ -5551,5 +5554,5 @@
 !FileApplicationNoteBook class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.192 2005-12-15 16:06:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.193 2006-01-10 23:23:03 cg Exp $'
 ! !