--- a/FileBrowser.st	Fri Jan 14 15:09:49 2000 +0100
+++ b/FileBrowser.st	Fri Jan 14 15:12:46 2000 +0100
@@ -522,7 +522,7 @@
             #translateLabel: true
             #value: #fileFileIn
             #enabled: #hasSelection
-            #shortcutKeyCharacter: #'Alt-a'
+            #shortcutKeyCharacter: #'Accept'
           )
          #(#MenuItem
             #label: '-'
@@ -637,12 +637,14 @@
             #translateLabel: true
             #value: #fileRemove
             #enabled: #hasSelection
+            #shortcutKeyCharacter: #Cut
           )
          #(#MenuItem
             #label: 'Rename...'
             #translateLabel: true
             #value: #fileRename
             #enabled: #hasSelection
+            #shortcutKeyCharacter: #'Replace'
           )
          #(#MenuItem
             #label: '-'
@@ -1514,16 +1516,19 @@
     <resource: #keyboard (#GotoLine #InspectIt #CmdI #Cmdu #DoIt #Delete #BackSpace #Accept #CmdF #CmdD)>
 
     view == fileListView ifTrue:[
-	(key == #Delete 
-	or:[key == #BackSpace
-	or:[key == #Accept
-	or:[key == #CmdI
-	or:[key == #CmdF
-	or:[key == #CmdD
-	or:[key == #Cmdu
-	or:[key == #InspectIt
-	or:[key == #GotoLine
-	or:[key == #DoIt]]]]]]]]]) ifTrue:[^ true].
+        (key == #Delete 
+        or:[key == #BackSpace
+        or:[key == #Accept
+        or:[key == #CmdI
+        or:[key == #CmdF
+        or:[key == #CmdD
+        or:[key == #Cmdu
+        or:[key == #Cut
+        or:[key == #Cmdr
+        or:[key == #Replace
+        or:[key == #InspectIt
+        or:[key == #GotoLine
+        or:[key == #DoIt]]]]]]]]]]]]) ifTrue:[^ true].
     ].
     ^ false
 
@@ -1535,43 +1540,51 @@
 keyPress:key x:x y:y view:view
     "this method is reached via delegation from the fileListView"
 
-    <resource: #keyboard (#GotoLine #InspectIt #CmdI #Cmdu #DoIt #Delete #BackSpace #Accept)>
-
-    (key == #Delete or:[key == #BackSpace]) ifTrue:[
-	self fileRemove.
-	^ self
+    <resource: #keyboard (#GotoLine #InspectIt  
+                          #CmdI #Cmdu #DoIt #Delete #BackSpace #Accept
+                          #Cmdr #Cut)>
+
+    (key == #Delete 
+    or:[key == #Cut
+    or:[key == #BackSpace]]) ifTrue:[
+        self fileRemove.
+        ^ self
     ].
     (key == #Accept) ifTrue:[
-	self fileFileIn.
-	^ self
+        self fileFileIn.
+        ^ self
     ].
     (key == #GotoLine) ifTrue:[
-	self fileGet.
-	^ self
+        self fileGet.
+        ^ self
     ].
     (key == #DoIt) ifTrue:[
-	self fileExecute.
-	^ self
+        self fileExecute.
+        ^ self
     ].
     (key == #InspectIt) ifTrue:[
-	self fileGetInfo.
-	^ self
+        self fileGetInfo.
+        ^ self
     ].
     (key == #CmdI) ifTrue:[
-	self fileGetLongInfo.
-	^ self
+        self fileGetLongInfo.
+        ^ self
     ].
     (key == #Cmdu) ifTrue:[
-	self updateCurrentDirectory.
-	^ self
+        self updateCurrentDirectory.
+        ^ self
     ].
     (key == #CmdF) ifTrue:[
-	self newFile.
-	^ self
+        self newFile.
+        ^ self
     ].
     (key == #CmdD) ifTrue:[
-	self newDirectory.
-	^ self
+        self newDirectory.
+        ^ self
+    ].
+    ((key == #Cmdr) or:[key == #Replace]) ifTrue:[
+        self fileRename.
+        ^ self
     ].
     fileListView keyPress:key x:x y:y
 
@@ -6928,5 +6941,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.359 1999-12-29 15:53:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.360 2000-01-14 14:12:46 cg Exp $'
 ! !