--- 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 $'
! !