DirectoryTreeBrowser.st
changeset 4080 c32f68f51f47
parent 4071 f923c8257818
child 4085 9e58ddfa6969
--- a/DirectoryTreeBrowser.st	Mon Oct 28 13:35:23 2002 +0100
+++ b/DirectoryTreeBrowser.st	Mon Oct 28 13:37:51 2002 +0100
@@ -184,61 +184,56 @@
         #(
          #(#MenuItem
             #label: 'Copy'
+            #itemValue: #doCopy
             #translateLabel: true
             #isVisible: #allowFileOperations
-            #value: #doCopy
-            #shortcutKeyCharacter: #Copy
           )
          #(#MenuItem
             #label: 'Cut'
+            #itemValue: #doCut
             #translateLabel: true
             #isVisible: #allowFileOperations
-            #value: #doCut
-            #shortcutKeyCharacter: #Cut
           )
          #(#MenuItem
+            #enabled: #canPaste
             #label: 'Paste'
+            #itemValue: #pasteFiles
             #translateLabel: true
             #isVisible: #allowFileOperations
-            #value: #pasteFiles
-            #enabled: #canPaste
-            #shortcutKeyCharacter: #Paste
           )
          #(#MenuItem
             #label: 'Delete'
+            #itemValue: #doDelete
+            #nameKey: #delete
             #translateLabel: true
-            #nameKey: #delete
             #isVisible: #allowFileOperations
-            #value: #doDelete
-            #shortcutKeyCharacter: #Delete
           )
          #(#MenuItem
             #label: 'Rename'
+            #itemValue: #treeViewFileRename
             #translateLabel: true
             #isVisible: #allowFileOperations
-            #value: #treeViewFileRename
-            #shortcutKeyCharacter: #Replace
           )
          #(#MenuItem
             #label: '-'
             #isVisible: #allowFileOperations
           )
          #(#MenuItem
-            #label: 'View Files in Directory Tree'
+            #label: 'View Files'
             #translateLabel: true
             #indication: #viewFilesInDirectoryTree
           )
          #(#MenuItem
             #label: 'Sort'
+            #nameKey: #Sort
             #translateLabel: true
-            #nameKey: #Sort
             #submenuChannel: #sortMenu
           )
          #(#MenuItem
+            #enabled: #selectedFilesIncludesNonRootDirectory
             #label: 'Set Selection to Root'
+            #itemValue: #doSetSelectionToRoot
             #translateLabel: true
-            #value: #doSetSelectionToRoot
-            #enabled: #selectedFilesIncludesNonRootDirectory
           )
          #(#MenuItem
             #label: '-'
@@ -251,32 +246,31 @@
           )
          #(#MenuItem
             #label: 'Update'
+            #itemValue: #doUpdate
             #translateLabel: true
-            #value: #doUpdate
           )
          #(#MenuItem
+            #enabled: #hasSelection
             #label: 'Properties...'
+            #itemValue: #doShowProperties
             #translateLabel: true
-            #value: #doShowProperties
-            #enabled: #hasSelection
           )
          #(#MenuItem
-            #label: 'Others'
+            #label: 'More'
+            #translateLabel: true
             #submenu: 
            #(#Menu
               #(
                #(#MenuItem
+                  #enabled: #enableDirectoryUp
                   #label: 'Directory Up'
+                  #itemValue: #doGoDirectoryUp
                   #translateLabel: true
-                  #value: #doGoDirectoryUp
-                  #enabled: #enableDirectoryUp
-                  #shortcutKeyCharacter: #CursorLeft
                 )
                #(#MenuItem
                   #label: 'Re-/ Expand Directory'
+                  #itemValue: #toggleExpandSelectedItem
                   #translateLabel: true
-                  #value: #toggleExpandSelectedItem
-                  #shortcutKeyCharacter: #CursorRight
                 )
                )
               nil
@@ -1177,5 +1171,5 @@
 !DirectoryTreeBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.30 2002-10-28 07:58:23 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.31 2002-10-28 12:37:06 penk Exp $'
 ! !