--- 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 $'
! !