FileBrowser.st
changeset 3697 e2f7d8dec6e2
parent 3691 f5d9ed09899b
child 3705 b4c309a36141
--- a/FileBrowser.st	Mon Jul 08 10:38:07 2002 +0200
+++ b/FileBrowser.st	Mon Jul 08 15:06:40 2002 +0200
@@ -3043,7 +3043,7 @@
     queryBox := FilenameEnterBox new.
     queryBox okText:(resources at:'Rename').
     fileListView selection size > 1 ifTrue:[
-        b := queryBox addAbortButtonLabelled:(resources at:'cancel All').
+        b := queryBox addAbortButtonLabelled:(resources at:'Cancel All').
         b action:[^ self ].
     ].
 
@@ -6513,7 +6513,7 @@
                                 ] ifFalse:[
                                     answer := Dialog
                                                 confirmWithCancel:(resources string:'Directory ''%1'' is not empty\remove anyway ?' with:fileName allBold) withCRs
-                                                labels:(resources array:#('Cancel' 'Remove all' 'Remove'))
+                                                labels:(resources array:#('Cancel' 'Remove All' 'Remove'))
                                                 values:#(false #removeAll true) 
                                                 default:3.
                                 ].
@@ -6958,7 +6958,7 @@
     "/
     s := path readStream.
     s isNil ifTrue:[
-        self showAlert:(resources string:'cannot read file ''%1'' !!' with:fileNameString)
+        self showAlert:(resources string:'Cannot read file ''%1'' !!' with:fileNameString)
                   with:(FileStream lastErrorString).
         ^ nil
     ].
@@ -7001,7 +7001,7 @@
                 action := #show
             ] ifFalse:[
                 action := Dialog choose:(resources string:'''%1'' seems to require a %2 font.' with:fileNameString with:pref)
-                               labels:(resources array:#('cancel' 'show' 'dont ask again' 'change font'))
+                               labels:(resources array:#('Cancel' 'Show' 'Dont Ask Again' 'Change Font'))
                                values:#(nil #show #showAlways #encoding)
                                default:#encoding.
             ].
@@ -7837,5 +7837,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.470 2002-07-05 13:28:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.471 2002-07-08 13:06:40 cg Exp $'
 ! !