--- a/AbstractFileBrowser.st Mon Feb 10 15:47:13 2003 +0100
+++ b/AbstractFileBrowser.st Mon Feb 10 15:53:29 2003 +0100
@@ -1390,6 +1390,9 @@
#submenuChannel: #newMenu
)
#(#MenuItem
+ #label: '-'
+ )
+ #(#MenuItem
#enabled: #hasSelection
#label: 'Rename'
#itemValue: #renameSelection
@@ -1397,9 +1400,6 @@
#shortcutKey: #Replace
)
#(#MenuItem
- #label: '-'
- )
- #(#MenuItem
#enabled: #hasSelection
#label: 'Properties...'
#itemValue: #doShowProperties
@@ -1420,7 +1420,6 @@
)
#(#MenuItem
#label: '-'
- #isVisible: #javaSupportLoaded
)
#(#MenuItem
#enabled: #hasSelection
@@ -5751,5 +5750,5 @@
!AbstractFileBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.89 2003-02-10 14:04:49 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.90 2003-02-10 14:53:29 cg Exp $'
! !
--- a/DirectoryContentsBrowser.st Mon Feb 10 15:47:13 2003 +0100
+++ b/DirectoryContentsBrowser.st Mon Feb 10 15:53:29 2003 +0100
@@ -471,6 +471,14 @@
#label: '-'
)
#(#MenuItem
+ #label: 'New'
+ #translateLabel: true
+ #submenuChannel: #newMenu
+ )
+ #(#MenuItem
+ #label: '-'
+ )
+ #(#MenuItem
#enabled: #hasSelection
#label: 'Rename...'
#itemValue: #renameSelection
@@ -503,11 +511,6 @@
#label: '-'
)
#(#MenuItem
- #label: 'New'
- #translateLabel: true
- #submenuChannel: #newMenu
- )
- #(#MenuItem
#label: 'More'
#translateLabel: true
#submenu:
@@ -2763,5 +2766,5 @@
!DirectoryContentsBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.74 2003-02-10 14:47:13 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.75 2003-02-10 14:53:20 cg Exp $'
! !
--- a/DirectoryTreeBrowser.st Mon Feb 10 15:47:13 2003 +0100
+++ b/DirectoryTreeBrowser.st Mon Feb 10 15:53:29 2003 +0100
@@ -218,6 +218,16 @@
#isVisible: #allowFileOperations
)
#(#MenuItem
+ #label: 'New'
+ #translateLabel: true
+ #isVisible: #newVisibilityHolder
+ #submenuChannel: #newMenu
+ )
+ #(#MenuItem
+ #label: '-'
+ #isVisible: #newVisibilityHolder
+ )
+ #(#MenuItem
#enabled: #hasSelection
#label: 'Rename'
#itemValue: #treeViewFileRename
@@ -233,47 +243,12 @@
)
#(#MenuItem
#label: '-'
- #isVisible: #allowFileOperations
- )
- #(#MenuItem
- #enabled: #selectedFilesIncludesNonRootDirectory
- #label: 'Make Selected Directory new Root'
- #itemValue: #doSetSelectionToRoot
- #translateLabel: true
- )
- #(#MenuItem
- #label: '-'
- )
- #(#MenuItem
- #label: 'New'
- #translateLabel: true
- #isVisible: #newVisibilityHolder
- #submenuChannel: #newMenu
)
#(#MenuItem
- #label: 'More'
+ #enabled: #enableDirectoryUp
+ #label: 'Directory Up'
+ #itemValue: #doGoDirectoryUp
#translateLabel: true
- #submenu:
- #(#Menu
- #(
- #(#MenuItem
- #enabled: #enableDirectoryUp
- #label: 'Directory Up'
- #itemValue: #doGoDirectoryUp
- #translateLabel: true
- )
- #(#MenuItem
- #label: 'Re-/ Expand Directory'
- #itemValue: #toggleExpandSelectedItem
- #translateLabel: true
- )
- )
- nil
- nil
- )
- )
- #(#MenuItem
- #label: '-'
)
#(#MenuItem
#label: 'View'
@@ -304,6 +279,20 @@
nil
)
)
+ #(#MenuItem
+ #label: '-'
+ )
+ #(#MenuItem
+ #enabled: #selectedFilesIncludesNonRootDirectory
+ #label: 'Make Selected Directory new Root'
+ #itemValue: #doSetSelectionToRoot
+ #translateLabel: true
+ )
+ #(#MenuItem
+ #label: 'Re-/ Expand Directory'
+ #itemValue: #toggleExpandSelectedItem
+ #translateLabel: true
+ )
)
nil
nil
@@ -1367,5 +1356,5 @@
!DirectoryTreeBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.43 2003-02-10 14:45:43 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.44 2003-02-10 14:53:22 cg Exp $'
! !