diff -r 33126db45f81 -r 5698c277f043 FileBrowserV3.st --- 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 + " + + + + ^ + #(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 " +! ! + !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 $' ! !