--- a/AbstractFileBrowser.st Wed Aug 22 21:50:36 2012 +0200
+++ b/AbstractFileBrowser.st Wed Aug 22 21:59:48 2012 +0200
@@ -1453,6 +1453,7 @@
"Do not manually edit this!! If it is corrupted,
the MenuEditor may not be able to read the specification."
+
"
MenuEditor new openOnClass:AbstractFileBrowser andSelector:#directoryMenu
(Menu new fromLiteralArrayEncoding:(AbstractFileBrowser directoryMenu)) startUp
@@ -1466,7 +1467,6 @@
(MenuItem
label: 'Up'
itemValue: doGoDirectoryUp
- translateLabel: true
)
(MenuItem
label: '-'
@@ -1476,14 +1476,12 @@
enabled: enableBack
label: 'Back'
itemValue: doBack
- translateLabel: true
)
(MenuItem
activeHelpKey: directoryBack
enabled: enableForward
label: 'Forward'
itemValue: doForward
- translateLabel: true
)
(MenuItem
label: '-'
@@ -1492,33 +1490,26 @@
enabled: enableHome
label: 'Home Directory'
itemValue: doGotoHomeDirectory
- translateLabel: true
)
(MenuItem
enabled: enableGotoDesktopDirectory
label: 'Desktop'
itemValue: doGotoDesktopDirectory
- translateLabel: true
- isVisible: gotoDesktopDirectoryIsVisible
)
(MenuItem
enabled: enableGotoDefaultDirectory
label: 'Default (Current) Directory'
itemValue: doGotoDefaultDirectory
- translateLabel: true
- isVisible: gotoDefaultDirectoryIsVisible
)
(MenuItem
enabled: enableGotoSmalltalkDirectory
label: 'Smalltalk (Application) Directory'
itemValue: doGotoSmalltalkDirectory
- translateLabel: true
)
(MenuItem
enabled: enableGotoTempDirectory
label: 'Temp Directory'
itemValue: doGotoTempDirectory
- translateLabel: true
)
(MenuItem
label: '-'
@@ -1527,27 +1518,22 @@
enabled: enableMakeCurrentDirectory
label: 'Make this the Default (Current) Directory'
itemValue: doMakeCurrentDirectory
- translateLabel: true
)
(MenuItem
label: '-'
)
(MenuItem
label: 'Bookmarks'
- translateLabel: true
submenuChannel: bookmarksMenu
)
(MenuItem
label: 'Visited Directories'
- translateLabel: true
submenuChannel: visitedDirectoriesMenu
)
)
nil
nil
)
-
- "Modified: / 29-12-2010 / 11:00:58 / cg"
!
editMenu
@@ -9102,9 +9088,9 @@
!AbstractFileBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.499 2012-08-13 14:19:33 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.500 2012-08-22 19:59:48 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.499 2012-08-13 14:19:33 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.500 2012-08-22 19:59:48 cg Exp $'
! !