class: AbstractFileBrowser
authorClaus Gittinger <cg@exept.de>
Fri, 04 Jul 2014 15:19:12 +0200
changeset 14588 194e14b18769
parent 14587 012250a2a789
child 14589 47def2145d9d
class: AbstractFileBrowser changed: #copySelectionToRepairingCorruptedFiles: #moveSelectionTo
AbstractFileBrowser.st
--- a/AbstractFileBrowser.st	Fri Jul 04 12:29:48 2014 +0200
+++ b/AbstractFileBrowser.st	Fri Jul 04 15:19:12 2014 +0200
@@ -4821,11 +4821,11 @@
     selectedFiles isEmptyOrNil ifTrue:[^ self].
 
     msg := (selectedFiles size > 1) 
-                ifTrue:[ 'Copy Selected Items To Directory:' ]
-                ifFalse:[ 'Copy "%1" To Directory:' ].
+                ifTrue:[ 'Copy Selected Items to Directory:' ]
+                ifFalse:[ 'Copy "%1" to Directory:' ].
 
     destination := Dialog 
-                    requestDirectoryName:(resources stringWithCRs:msg with:selectedFiles first pathName) 
+                    requestDirectoryName:(resources stringWithCRs:msg with:selectedFiles first baseName) 
                     default:(LastMoveDestination ? self currentDirectory)
                     ok:(resources string:'Copy')
                     abort:nil.
@@ -4973,7 +4973,7 @@
     |destinationDirectory|
 
     destinationDirectory := Dialog 
-                                requestDirectoryName:(resources stringWithCRs:'Move Selected Items To:') 
+                                requestDirectoryName:(resources stringWithCRs:'Move Selected Items to Directory:') 
                                 default:(LastMoveDestination ? self currentDirectory)
                                 ok:(resources string:'Move')
                                 abort:nil.
@@ -9560,10 +9560,10 @@
 !AbstractFileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.563 2014-07-04 10:22:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.564 2014-07-04 13:19:12 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.563 2014-07-04 10:22:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.564 2014-07-04 13:19:12 cg Exp $'
 ! !