--- a/AbstractFileBrowser.st	Wed Jul 13 17:36:28 2005 +0200
+++ b/AbstractFileBrowser.st	Wed Jul 13 17:42:44 2005 +0200
@@ -3600,7 +3600,7 @@
     |destinationDirectory|
 
     destinationDirectory := Dialog 
-                                requestDirectoryName:(resources at:'Move Selected Items To:') withCRs 
+                                requestDirectoryName:(resources stringWithCRs:'Move Selected Items To:') 
                                 default:(LastMoveDestination ? self currentDirectory)
                                 ok:'Move'
                                 abort:nil.
@@ -4727,9 +4727,9 @@
         [
             fileNames := dir recursiveDirectoryContents.
         ] on:FileStream openErrorSignal do:[:ex|
-            self warn:('Cannot access: %1\(%2)' 
-                            bindWith:ex pathName
-                            with:ex description) withCRs.
+            self warn:(resources stringWithCRs:'Cannot access: %1\(%2)' 
+                            with:ex pathName
+                            with:ex description).
             ^ self
         ].
         fileNames := fileNames 
@@ -4858,9 +4858,9 @@
                     allFiles addAll:fileNames.
                 ]
             ] on:FileStream openErrorSignal do:[:ex|
-                self warn:('Cannot access: %1\(%2)' 
-                                bindWith:ex pathName
-                                with:ex description) withCRs.
+                self warn:(resources stringWithCRs:'Cannot access: %1\(%2)' 
+                                with:ex pathName
+                                with:ex description).
                 ex proceedWith:nil.
             ].
         ].
@@ -5023,7 +5023,7 @@
     ].
 
     (Dialog 
-        confirm:(msg bindWith:numFiles with:selectedFiles first baseName allBold with:whichFilter) withCRs
+        confirm:(resources stringWithCRs:msg with:numFiles with:selectedFiles first baseName allBold with:whichFilter)
         initialAnswer:false
     ) ifFalse:[
         ^ self
@@ -5112,8 +5112,7 @@
     (numFiles := selectedFiles size) <= 1 ifTrue:[^ self].
 
     msg := 'Join each of the %1 files into single file named:\\Attention: order in which files were selected is relevant here !!'.
-    outFileName := Dialog 
-        request:(msg bindWith:numFiles with:selectedFiles first baseName) withCRs.
+    outFileName := Dialog request:(resources stringWithCRs:msg with:numFiles with:selectedFiles first baseName).
     outFileName isEmptyOrNil ifTrue:[^ self].
     outFile := selectedFiles first directory construct:outFileName.
 
@@ -5742,8 +5741,7 @@
                 ifTrue:'Split each of the %1 files into pieces of size (in kB):'
                 ifFalse:'Split %2 into pieces of size (in kB):'.
 
-    sizeString := Dialog 
-        request:(msg bindWith:numFiles with:selectedFiles first baseName) withCRs.
+    sizeString := Dialog request:(resources stringWithCRs:msg with:numFiles with:selectedFiles first baseName).
     sizeString isEmptyOrNil ifTrue:[^ self].
     kiloBytes := Integer readFrom:sizeString onError:nil.
     kiloBytes isNil ifTrue:[^ self].
@@ -5771,7 +5769,7 @@
     ].
 
     (Dialog 
-        confirm:(msg bindWith:numFiles with:selectedFiles first baseName allBold) withCRs
+        confirm:(resources stringWithCRs:msg with:numFiles with:selectedFiles first baseName allBold)
         initialAnswer:false
     ) ifFalse:[
         ^ self
@@ -6779,5 +6777,5 @@
 !AbstractFileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.299 2005-07-12 13:56:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.300 2005-07-13 15:41:54 cg Exp $'
 ! !