--- a/FileBrowser.st	Tue Oct 27 19:34:07 1998 +0100
+++ b/FileBrowser.st	Thu Oct 29 12:18:48 1998 +0100
@@ -800,6 +800,11 @@
                           #translateLabel: true
                           #value: #copySelectedFileName
                       )
+                       #(#MenuItem
+                          #label: 'Copy Command History'
+                          #translateLabel: true
+                          #value: #copyCommandHistory
+                      )
                     ) nil
                     nil
                 )
@@ -992,7 +997,7 @@
           nil
       )
 
-    "Modified: / 17.10.1998 / 22:58:38 / cg"
+    "Modified: / 29.10.1998 / 12:17:47 / cg"
 ! !
 
 !FileBrowser methodsFor:'aspects'!
@@ -2950,6 +2955,14 @@
 
 !FileBrowser methodsFor:'menu actions'!
 
+copyCommandHistory
+    "copy the command history to the clipBoard"
+
+    self setTextSelection:(CommandHistory asStringCollection asString).
+
+    "Modified: / 29.10.1998 / 12:17:14 / cg"
+!
+
 copyFileList
     "copy fileList to the clipBoard"
 
@@ -5874,5 +5887,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.269 1998-10-21 15:04:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.270 1998-10-29 11:18:48 cg Exp $'
 ! !