--- a/AbstractFileBrowser.st	Mon Jan 20 11:14:43 2003 +0100
+++ b/AbstractFileBrowser.st	Mon Jan 20 11:32:42 2003 +0100
@@ -1195,13 +1195,13 @@
          #(#MenuItem
             #label: 'Copy'
             #translateLabel: true
-            #value: #copyInDirContentsBrowser
+            #value: #copyFiles
             #enabled: #hasSelection
           )
          #(#MenuItem
             #label: 'Cut'
             #translateLabel: true
-            #value: #cutInDirContentsBrowser
+            #value: #cutFiles
             #enabled: #hasSelection
           )
          #(#MenuItem
@@ -1213,7 +1213,7 @@
          #(#MenuItem
             #label: 'Delete'
             #translateLabel: true
-            #value: #deleteInDirContentsBrowser
+            #value: #deleteFiles
             #enabled: #hasSelection
           )
          #(#MenuItem
@@ -3536,19 +3536,49 @@
 
 !AbstractFileBrowser methodsFor:'menu actions edit'!
 
-copyInDirContentsBrowser
-
-    ^ self application:#DirectoryContentsBrowser do:#doCopy.
-!
-
-cutInDirContentsBrowser
-
-    ^ self application:#DirectoryContentsBrowser do:#doCut.
-!
-
-deleteInDirContentsBrowser
-
-    ^ self application:#DirectoryContentsBrowser do:#doDelete.
+copyFiles
+
+    | files  dirs|
+
+    files := self currentSelectedFiles.
+    files notEmpty ifTrue:[
+        self copyFilesToClipBoard:(files).        
+    ] ifFalse:[
+        dirs := self currentSelectedDirectories.
+        dirs notEmpty ifTrue:[
+            self copyFilesToClipBoard:(dirs).        
+        ].
+    ].
+!
+
+cutFiles
+
+    | files  dirs|
+
+    files := self currentSelectedFiles.
+    files notEmpty ifTrue:[
+        self cutFilesToClipBoard:(files).        
+    ] ifFalse:[
+        dirs := self currentSelectedDirectories.
+        dirs notEmpty ifTrue:[
+            self cutFilesToClipBoard:(dirs).        
+        ].
+    ].
+!
+
+deleteFiles
+
+    | files  dirs|
+
+    files := self currentSelectedFiles.
+    files notEmpty ifTrue:[
+        self deleteFiles:(files).        
+    ] ifFalse:[
+        dirs := self currentSelectedDirectories.
+        dirs notEmpty ifTrue:[
+            self deleteFiles:(dirs).        
+        ].
+    ].
 ! !
 
 !AbstractFileBrowser methodsFor:'menu actions tools'!
@@ -5517,5 +5547,5 @@
 !AbstractFileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.80 2003-01-10 13:31:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.81 2003-01-20 10:32:42 penk Exp $'
 ! !