--- a/FileBrowserV3.st Mon Apr 02 13:11:56 2012 +0100
+++ b/FileBrowserV3.st Tue Apr 03 13:32:03 2012 +0100
@@ -34,8 +34,244 @@
"
! !
+!FileBrowserV3 class methodsFor:'menu specs'!
+
+toolBarMainMenu
+ "This resource specification was automatically generated
+ by the MenuEditor of ST/X."
+
+ "Do not manually edit this!! If it is corrupted,
+ the MenuEditor may not be able to read the specification."
+
+
+ "
+ MenuEditor new openOnClass:FileBrowserV2 andSelector:#toolBarMainMenu
+ (Menu new fromLiteralArrayEncoding:(FileBrowserV2 toolBarMainMenu)) startUp
+ "
+
+ <resource: #menu>
+
+ ^
+ #(Menu
+ (
+ (MenuItem
+ activeHelpKey: directoryBack
+ enabled: enableBack
+ label: 'Back'
+ itemValue: doBack
+ translateLabel: true
+ isButton: true
+ submenuChannel: menuDirHistoryBack
+ labelImage: (ResourceRetriever ToolbarIconLibrary historyBackIcon)
+ )
+ (MenuItem
+ label: ''
+ )
+ (MenuItem
+ activeHelpKey: directoryForward
+ enabled: enableForward
+ label: 'Forward'
+ itemValue: doForward
+ translateLabel: true
+ isButton: true
+ submenuChannel: menuDirHistoryForward
+ labelImage: (ResourceRetriever ToolbarIconLibrary historyForwardIcon)
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ activeHelpKey: directoryUp
+ enabled: enableDirectoryUp
+ label: 'DirectoryUp'
+ itemValue: doGoDirectoryUp
+ translateLabel: true
+ isButton: true
+ labelImage: (ResourceRetriever ToolbarIconLibrary directoryUpIcon)
+ )
+ (MenuItem
+ activeHelpKey: fileHome
+ enabled: enableHome
+ label: 'Home'
+ itemValue: doGotoHomeDirectory
+ translateLabel: true
+ isButton: true
+ labelImage: (ResourceRetriever ToolbarIconLibrary homeIcon)
+ )
+ (MenuItem
+ activeHelpKey: fileGotoDefaultDirectory
+ enabled: enableGotoDefaultDirectory
+ label: 'Current'
+ itemValue: doGotoDefaultDirectory
+ translateLabel: true
+ isButton: true
+ isVisible: false
+ labelImage: (ResourceRetriever ToolbarIconLibrary currentDirectoryIcon)
+ )
+ (MenuItem
+ activeHelpKey: fileGotoSmalltalkDirectory
+ enabled: enableGotoSmalltalkDirectory
+ label: 'ST/X Default'
+ itemValue: doGotoSmalltalkDirectory
+ translateLabel: true
+ isButton: true
+ labelImage: (ResourceRetriever ToolbarIconLibrary stxHomeIcon)
+ )
+ (MenuItem
+ activeHelpKey: fileGotoBookmark
+ label: 'Bookmarks'
+ translateLabel: true
+ isButton: true
+ submenuChannel: gotoBookmarksMenu
+ labelImage: (ResourceRetriever ToolbarIconLibrary directoryBookmarksIcon)
+ )
+ (MenuItem
+ activeHelpKey: fileHistory
+ enabled: enableFileHistory
+ label: 'File History'
+ translateLabel: true
+ isButton: true
+ submenuChannel: menuFileHistory
+ labelImage: (ResourceRetriever ToolbarIconLibrary historyIcon)
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ activeHelpKey: searchFile
+ label: 'Search File'
+ itemValue: doOpenSearchFile
+ translateLabel: true
+ isButton: true
+ labelImage: (ResourceRetriever ToolbarIconLibrary searchFileIcon)
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ activeHelpKey: cutFile
+ enabled: hasSelection
+ label: 'Cut'
+ itemValue: cutFiles
+ translateLabel: true
+ isButton: true
+ labelImage: (ResourceRetriever ToolbarIconLibrary cutFileIcon)
+ )
+ (MenuItem
+ activeHelpKey: copyFile
+ enabled: hasSelection
+ label: 'Copy'
+ itemValue: copyFiles
+ translateLabel: true
+ isButton: true
+ labelImage: (ResourceRetriever ToolbarIconLibrary copyFileIcon)
+ )
+ (MenuItem
+ activeHelpKey: pasteFile
+ enabled: canPaste
+ label: 'Paste'
+ itemValue: pasteFiles
+ translateLabel: true
+ isButton: true
+ labelImage: (ResourceRetriever ToolbarIconLibrary pasteFileIcon)
+ )
+ (MenuItem
+ activeHelpKey: deleteFile
+ enabled: hasSelection
+ label: 'Delete'
+ itemValue: deleteFiles
+ translateLabel: true
+ isButton: true
+ labelImage: (ResourceRetriever ToolbarIconLibrary deleteFileIcon)
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ activeHelpKey: editFile
+ label: 'Edit File'
+ itemValue: doShowFileContents
+ translateLabel: true
+ isButton: true
+ labelImage: (ResourceRetriever ToolbarIconLibrary editFileIcon)
+ )
+ (MenuItem
+ activeHelpKey: fileIn
+ label: 'File In'
+ itemValue: fileFileIn
+ translateLabel: true
+ isButton: true
+ labelImage: (ResourceRetriever ToolbarIconLibrary fileInIcon)
+ )
+ (MenuItem
+ activeHelpKey: openChangeBrowser
+ enabled: hasFileSelection
+ label: 'Changes Browser'
+ itemValue: openChangesBrowser
+ translateLabel: true
+ isButton: true
+ labelImage: (ResourceRetriever ToolbarIconLibrary startChangesBrowserIcon)
+ )
+ (MenuItem
+ label: '-'
+ isVisible: false
+ )
+ (MenuItem
+ activeHelpKey: addTerminal
+ label: 'VT100'
+ itemValue: doAddTerminal
+ translateLabel: true
+ isButton: true
+ labelImage: (ResourceRetriever ToolbarIconLibrary shellTerminalIcon)
+ )
+ (MenuItem
+ activeHelpKey: make
+ enabled: canMake
+ label: 'Make'
+ itemValue: doMake
+ translateLabel: true
+ isButton: true
+ labelImage: (ResourceRetriever ToolbarIconLibrary makeIcon)
+ )
+ (MenuItem
+ activeHelpKey: viewDetails
+ label: 'viewDetails'
+ translateLabel: true
+ isButton: true
+ startGroup: right
+ hideMenuOnActivated: false
+ indication: viewDetails
+ labelImage: (ResourceRetriever ToolbarIconLibrary viewDetailsIcon)
+ )
+ (MenuItem
+ activeHelpKey: viewDetails
+ label: 'viewDetails'
+ translateLabel: true
+ isButton: true
+ startGroup: right
+ isVisible: false
+ indication: viewDetails
+ submenuChannel: viewDetailsMenuSpec
+ labelImage: (ResourceRetriever ToolbarIconLibrary viewDetailsIcon)
+ )
+ (MenuItem
+ activeHelpKey: selectDetails
+ label: ''
+ isButton: true
+ startGroup: right
+ submenuChannel: viewDetailsMenuSpec
+ labelImage: (ResourceRetriever ToolbarIconLibrary empty1x20Icon)
+ )
+ )
+ nil
+ nil
+ )
+
+ "Created: / 03-04-2012 / 10:48:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
!FileBrowserV3 class methodsFor:'documentation'!
version_SVN
- ^ '$Id: FileBrowserV3.st 7944 2012-03-19 15:32:45Z vranyj1 $'
+ ^ '$Id: FileBrowserV3.st 7963 2012-04-03 12:32:03Z vranyj1 $'
! !