--- a/FileBrowser.st	Tue Oct 09 20:19:24 2001 +0200
+++ b/FileBrowser.st	Wed Oct 10 01:14:01 2001 +0200
@@ -2734,14 +2734,14 @@
     |queryBox b lastNewName lastOldName prefix initialText|
 
     queryBox := FilenameEnterBox new.
-    queryBox okText:(resources at:'rename').
+    queryBox okText:(resources at:'Rename').
     fileListView selection size > 1 ifTrue:[
         b := queryBox addAbortButtonLabelled:(resources at:'cancel All').
         b action:[^ self ].
     ].
 
     self selectedFilesDo:[:oldName |
-        queryBox title:(resources string:'rename ''%1'' to:' with:oldName).
+        queryBox title:(resources string:'Rename ''%1'' to:' with:oldName).
         initialText := oldName.
 
         (lastNewName notNil
@@ -2843,9 +2843,9 @@
     |queryBox|
 
     queryBox := FilenameEnterBox 
-		    title:(resources at:'create new directory:') withCRs
-		    okText:(resources at:'create')
-		    action:[:newName | self doCreateDirectory:newName].
+                    title:(resources at:'Create new directory:') withCRs
+                    okText:(resources at:'Create')
+                    action:[:newName | self doCreateDirectory:newName].
     queryBox showAtPointer
 
     "Modified: 23.4.1997 / 13:04:27 / cg"
@@ -2857,8 +2857,8 @@
     |sel queryBox|
 
     queryBox := FilenameEnterBox 
-                    title:(resources at:'create new file:') withCRs
-                    okText:(resources at:'create')
+                    title:(resources at:'Create new file:') withCRs
+                    okText:(resources at:'Create')
                     action:[:newName | newName isEmpty ifFalse:[
                                            self doCreateFile:newName.
                                            self selectFile:newName.
@@ -4695,12 +4695,12 @@
     osName := OperatingSystem platformName.
 
     box := FilenameEnterBox 
-		title:(resources string:'execute %1 command:' with:osName)
-	       okText:(resources string:'execute')
-	       action:aBlock.
+                title:(resources string:'Execute %1 command:' with:osName)
+               okText:(resources string:'Execute')
+               action:aBlock.
 
     fileName notNil ifTrue:[
-	self initialCommandFor:fileName into:box.
+        self initialCommandFor:fileName into:box.
     ].
     box directory:currentDirectory.
     box showAtPointer.
@@ -7332,5 +7332,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.425 2001-10-08 16:26:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.426 2001-10-09 23:14:01 cg Exp $'
 ! !