add shortCut keys
authorpenk
Mon, 04 Nov 2002 16:18:35 +0100
changeset 4162 80f0ed33fabd
parent 4161 a318d1adcf08
child 4163 4dfb592ae380
add shortCut keys
DirectoryTreeBrowser.st
--- a/DirectoryTreeBrowser.st	Mon Nov 04 16:18:08 2002 +0100
+++ b/DirectoryTreeBrowser.st	Mon Nov 04 16:18:35 2002 +0100
@@ -188,12 +188,14 @@
             #itemValue: #doCopy
             #translateLabel: true
             #isVisible: #allowFileOperations
+            #shortcutKey: #Copy
           )
          #(#MenuItem
             #label: 'Cut'
             #itemValue: #doCut
             #translateLabel: true
             #isVisible: #allowFileOperations
+            #shortcutKey: #Cut
           )
          #(#MenuItem
             #enabled: #canPaste
@@ -201,6 +203,7 @@
             #itemValue: #pasteFiles
             #translateLabel: true
             #isVisible: #allowFileOperations
+            #shortcutKey: #Paste
           )
          #(#MenuItem
             #label: 'Delete'
@@ -208,12 +211,14 @@
             #nameKey: #delete
             #translateLabel: true
             #isVisible: #allowFileOperations
+            #shortcutKey: #Delete
           )
          #(#MenuItem
             #label: 'Rename'
             #itemValue: #treeViewFileRename
             #translateLabel: true
             #isVisible: #allowFileOperations
+            #shortcutKey: #Rename
           )
          #(#MenuItem
             #label: '-'
@@ -1319,5 +1324,5 @@
 !DirectoryTreeBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.33 2002-11-04 13:38:55 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.34 2002-11-04 15:18:35 penk Exp $'
 ! !