--- a/FileBrowser.st	Fri Oct 09 16:16:45 1998 +0200
+++ b/FileBrowser.st	Fri Oct 09 16:18:26 1998 +0200
@@ -683,6 +683,11 @@
                           #translateLabel: true
                           #value: #copyFileList
                       )
+                       #(#MenuItem
+                          #label: 'Copy Selected Filename'
+                          #translateLabel: true
+                          #value: #copySelectedFileName
+                      )
                     ) nil
                     nil
                 )
@@ -2673,6 +2678,18 @@
     "Modified: / 17.8.1998 / 10:13:10 / cg"
 !
 
+copySelectedFileName
+    "copy the selected filename to the clipBoard (for easy paste)"
+
+    |sel fileName|
+
+    sel := fileListView selection.
+    sel size == 1 ifTrue:[
+        fileName := fileList at:sel first.
+        self setTextSelection:fileName
+    ].
+!
+
 menuExit
     self closeRequest
 
@@ -5483,5 +5500,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.264 1998-10-03 18:00:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.265 1998-10-09 14:18:26 cg Exp $'
 ! !