--- a/AbstractFileBrowser.st Fri Nov 17 13:48:16 2017 +0100
+++ b/AbstractFileBrowser.st Fri Nov 17 13:48:32 2017 +0100
@@ -4922,7 +4922,13 @@
file := aCollectionOfFiles first.
msg := resources
stringWithCRs:'Copy or move\\%1:\ %2\to:\ %3 ?'
- with:(file type == #regular ifTrue:'file' ifFalse:[file isDirectory ifTrue:'directory' ifFalse:'object'])
+ with:(resources string:
+ (file type == #regular
+ ifTrue:'file'
+ ifFalse:[
+ file isDirectory
+ ifTrue:'directory'
+ ifFalse:'object']))
with:(file baseName allBold)
with:(aDestinationDirectory asFilename pathName allBold).
] ifFalse:[
@@ -4941,6 +4947,8 @@
default:#copy.
answer isNil ifTrue:[answer := #cancel].
^ answer.
+
+ "Modified: / 17-11-2017 / 13:16:42 / cg"
!
copyOrMoveFiles:aColOfSourceFiles to:aDestinationDirectory