enumerate copies of the selection in delete & rename
authorClaus Gittinger <cg@exept.de>
Sat, 29 Mar 2003 14:08:07 +0100
changeset 4742 972a9d30ec47
parent 4741 601daee99185
child 4743 4236ffd981fc
enumerate copies of the selection in delete & rename
AbstractDirectoryBrowser.st
AbstractFileBrowser.st
--- a/AbstractDirectoryBrowser.st	Fri Mar 28 20:09:38 2003 +0100
+++ b/AbstractDirectoryBrowser.st	Sat Mar 29 14:08:07 2003 +0100
@@ -119,7 +119,7 @@
 doDelete
     "delete current selected files/directories
     "
-    self deleteFiles:(self selectedFiles).
+    self deleteFiles:(self selectedFiles copy).
 ! !
 
 !AbstractDirectoryBrowser methodsFor:'selection'!
@@ -161,5 +161,5 @@
 !AbstractDirectoryBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractDirectoryBrowser.st,v 1.1 2003-03-24 16:59:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractDirectoryBrowser.st,v 1.2 2003-03-29 13:07:38 cg Exp $'
 ! !
--- a/AbstractFileBrowser.st	Fri Mar 28 20:09:38 2003 +0100
+++ b/AbstractFileBrowser.st	Sat Mar 29 14:08:07 2003 +0100
@@ -3577,7 +3577,7 @@
 renameSelection
     "rename the selected file(s)"
 
-    self renameFiles:self currentFileNameHolder value
+    self renameFiles:(self currentFileNameHolder value copy)
 ! !
 
 !AbstractFileBrowser methodsFor:'menu accessing'!
@@ -6090,5 +6090,5 @@
 !AbstractFileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.118 2003-03-28 11:46:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.119 2003-03-29 13:08:07 cg Exp $'
 ! !