*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Wed, 23 Aug 2006 12:34:29 +0200
changeset 6952 f9bef0205d36
parent 6951 a089896c6970
child 6953 651025031ea2
*** empty log message ***
AbstractFileBrowser.st
--- a/AbstractFileBrowser.st	Wed Aug 23 11:50:00 2006 +0200
+++ b/AbstractFileBrowser.st	Wed Aug 23 12:34:29 2006 +0200
@@ -3612,7 +3612,7 @@
     destination := Dialog 
                                 requestDirectoryName:(resources stringWithCRs:msg with:selectedFiles first pathName) 
                                 default:(LastMoveDestination ? self currentDirectory)
-                                ok:'Copy'
+                                ok:(resources string:'Copy')
                                 abort:nil.
     destination isEmptyOrNil ifTrue:[^ self].
     destination := destination asFilename.
@@ -3630,6 +3630,8 @@
 
     LastMoveDestination := destination.
     self copyFiles:selectedFiles to:destination
+
+    "Modified: / 23-08-2006 / 12:34:13 / cg"
 !
 
 deleteFile:aFile
@@ -3732,12 +3734,14 @@
     destinationDirectory := Dialog 
                                 requestDirectoryName:(resources stringWithCRs:'Move Selected Items To:') 
                                 default:(LastMoveDestination ? self currentDirectory)
-                                ok:'Move'
+                                ok:(resources string:'Move')
                                 abort:nil.
     destinationDirectory isEmptyOrNil ifTrue:[^ self].
 
     LastMoveDestination := destinationDirectory.
     self moveFiles:(self currentFileNameHolder value copy) to:destinationDirectory asFilename
+
+    "Modified: / 23-08-2006 / 12:34:22 / cg"
 !
 
 newDirectory
@@ -7039,5 +7043,5 @@
 !AbstractFileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.334 2006-08-20 18:34:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.335 2006-08-23 10:34:29 cg Exp $'
 ! !