FileSelectionBox.st
changeset 6544 9dd47814e74d
parent 6504 155840fe7166
child 6550 1e9514dc2580
--- a/FileSelectionBox.st	Thu Feb 21 17:49:35 2019 +0100
+++ b/FileSelectionBox.st	Thu Feb 21 17:49:43 2019 +0100
@@ -602,17 +602,19 @@
     selectedFilename := self pathName asFilename.
     baseName := selectedFilename baseName.
 
-    (Dialog confirm:(resources string:'Really remove ''%1'' ?' with:baseName allBold)) ifFalse:[
+    (Dialog confirm:(resources string:'Really remove "%1" ?' with:baseName allBold)) ifFalse:[
         ^ self.
     ].
 
     selectedFilename isDirectory ifTrue:[
-        self warn:(resources string:'%1 is a directory..' with:baseName).
+        self warn:(resources string:'"%1" is a directory.' with:baseName).
         ^ self.
     ].
 
     selectedFilename remove.
     self updateListWithoutScrolling.
+
+    "Modified: / 21-02-2019 / 17:47:04 / Claus Gittinger"
 ! !
 
 !FileSelectionBox methodsFor:'private'!