--- a/AbstractFileBrowser.st	Wed Nov 29 11:41:18 2017 +0100
+++ b/AbstractFileBrowser.st	Wed Nov 29 12:27:33 2017 +0100
@@ -3227,7 +3227,7 @@
 
     files := self currentSelectedFiles.
     files size == 1 ifFalse:[
-        Dialog information:'Select exactly one archive.'.
+        Dialog information:(resources string:'Select exactly one archive.').
         ^ self
     ].
 
@@ -3236,6 +3236,7 @@
         ifPresentDo:[:appl | appl doAddArchiverOn:files first].
 
     "Created: / 29-11-2011 / 19:01:31 / cg"
+    "Modified: / 29-11-2017 / 12:25:47 / cg"
 !
 
 doAddTerminal
@@ -5253,7 +5254,7 @@
 
     directory := self currentDirectory.
     directory isNil ifTrue:[
-        self warn:'Select a single directory to create a directory'.
+        self warn:(resources string:'Select a single directory to create a directory').
         ^ self
     ].
 
@@ -5284,6 +5285,8 @@
     newFile notNil ifTrue:[
         self updateCurrentDirectory.
     ]
+
+    "Modified: / 29-11-2017 / 12:26:41 / cg"
 !
 
 newFile
@@ -5293,7 +5296,7 @@
 
     directory := self currentDirectory.
     directory isNil ifTrue:[
-        self warn:'Select a single directory to create a file.'.
+        self warn:(resources string:'Select a single directory to create a file.').
         ^ self.
     ].
 
@@ -5306,6 +5309,8 @@
     create := FileOperation createFileIn:file.
     create result ifFalse:[ ^ self].
     self updateAndSelect:(OrderedCollection with:(create createdFile)).
+
+    "Modified: / 29-11-2017 / 12:26:51 / cg"
 !
 
 newHardLink
@@ -5321,7 +5326,7 @@
 
     sel := self currentSelectedObjects.
     (sel size ~= 1) ifTrue:[
-        self warn:'Select one directory to link'.
+        self warn:(resources string:'Select one directory to link').
         ^ self
     ].
     dir := sel first.
@@ -5337,7 +5342,7 @@
         ]
     ].
 
-    "Modified: / 04-12-2006 / 13:15:15 / cg"
+    "Modified: / 29-11-2017 / 12:26:58 / cg"
 !
 
 newSoftLink
@@ -6913,11 +6918,11 @@
 fetchFileByURL
     |url destinationFilename|
 
-    url := Dialog request:'URL to Fetch:' initialAnswer:'http://host/path'.
+    url := Dialog request:(resources string:'URL to Fetch:') initialAnswer:'http://host/path'.
     url isEmptyOrNil ifTrue:[^ self].
     url := url asURL.
 
-    destinationFilename := Dialog request:'Download As:' initialAnswer:(UnixFilename named:url path) baseName.
+    destinationFilename := Dialog request:(resources string:'Download As:') initialAnswer:(UnixFilename named:url path) baseName.
     destinationFilename isEmptyOrNil ifTrue:[^ self].
 
     destinationFilename := self currentDirectory asFilename / destinationFilename.
@@ -6935,7 +6940,7 @@
         self notify:nil.
     ]
 
-    "Modified: / 20-05-2010 / 11:15:35 / cg"
+    "Modified: / 29-11-2017 / 12:26:13 / cg"
 !
 
 fileContentsAsByteArray