Mercurial Mercurial > hg > stx-libtool / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
FileBrowserV2.st
changeset 14304 041a80d26e48
parent 14134 4064e66e421f
child 14309 712dfac8c8d8 
--- a/FileBrowserV2.st	Fri May 02 19:07:14 2014 +0200
+++ b/FileBrowserV2.st	Tue May 06 16:42:46 2014 +0200
@@ -365,6 +365,13 @@
     ^ ToolbarIconLibrary startNewFileBrowserIcon
 !
 
+desktopIcon
+    OperatingSystem isOSXlike ifTrue:[
+        ^ ToolbarIconLibrary desktopOSX24x24Icon
+    ].
+    ^ ToolbarIconLibrary desktopIcon
+!
+
 encodingLockIcon
     <resource: #programImage>
 
@@ -1023,11 +1030,232 @@
 !
 
 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>
 
-    ^ self toolBarMainMenu_new
-
-    "Modified: / 05-02-2014 / 11:43:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    ^ 
+     #(Menu
+        (
+         (MenuItem
+            activeHelpKey: directoryBack
+            enabled: enableBack
+            label: 'Back'
+            itemValue: doBack
+            isButton: true
+            submenuChannel: menuDirHistoryBack
+            labelImage: (ResourceRetriever ToolbarIconLibrary historyBackIcon)
+          )
+         (MenuItem
+            label: ''
+          )
+         (MenuItem
+            activeHelpKey: directoryForward
+            enabled: enableForward
+            label: 'Forward'
+            itemValue: doForward
+            isButton: true
+            submenuChannel: menuDirHistoryForward
+            labelImage: (ResourceRetriever ToolbarIconLibrary historyForwardIcon)
+          )
+         (MenuItem
+            label: '-'
+          )
+         (MenuItem
+            activeHelpKey: directoryUp
+            enabled: enableDirectoryUp
+            label: 'DirectoryUp'
+            itemValue: doGoDirectoryUp
+            isButton: true
+            labelImage: (ResourceRetriever ToolbarIconLibrary directoryUpIcon)
+          )
+         (MenuItem
+            activeHelpKey: fileDesktop
+            enabled: enableHome
+            label: 'Desktop'
+            itemValue: doGotoDesktopDirectory
+            isButton: true
+            labelImage: (ResourceRetriever nil desktopIcon)
+          )
+         (MenuItem
+            activeHelpKey: fileHome
+            enabled: enableHome
+            label: 'Home'
+            itemValue: doGotoHomeDirectory
+            isButton: true
+            labelImage: (ResourceRetriever ToolbarIconLibrary homeIcon)
+          )
+         (MenuItem
+            activeHelpKey: fileGotoDefaultDirectory
+            enabled: enableGotoDefaultDirectory
+            label: 'Current'
+            itemValue: doGotoDefaultDirectory
+            isButton: true
+            isVisible: false
+            labelImage: (ResourceRetriever ToolbarIconLibrary currentDirectoryIcon)
+          )
+         (MenuItem
+            activeHelpKey: fileGotoSmalltalkDirectory
+            enabled: enableGotoSmalltalkDirectory
+            label: 'ST/X Default'
+            itemValue: doGotoSmalltalkDirectory
+            isButton: true
+            labelImage: (ResourceRetriever ToolbarIconLibrary stxHomeIcon)
+          )
+         (MenuItem
+            activeHelpKey: fileGotoBookmark
+            label: 'Bookmarks'
+            isButton: true
+            isVisible: false
+            submenuChannel: gotoBookmarksMenu
+            labelImage: (ResourceRetriever ToolbarIconLibrary directoryBookmarksIcon)
+          )
+         (MenuItem
+            activeHelpKey: fileHistory
+            enabled: enableFileHistory
+            label: 'File History'
+            isButton: true
+            isVisible: false
+            submenuChannel: menuFileHistory
+            labelImage: (ResourceRetriever ToolbarIconLibrary historyIcon)
+          )
+         (MenuItem
+            label: '-'
+          )
+         (MenuItem
+            activeHelpKey: searchFile
+            label: 'Search File'
+            itemValue: doOpenSearchFile
+            isButton: true
+            labelImage: (ResourceRetriever ToolbarIconLibrary searchFileIcon)
+          )
+         (MenuItem
+            label: '-'
+          )
+         (MenuItem
+            activeHelpKey: cutFile
+            enabled: hasSelection
+            label: 'Cut'
+            itemValue: cutFiles
+            isButton: true
+            isVisible: false
+            labelImage: (ResourceRetriever ToolbarIconLibrary cutFileIcon)
+          )
+         (MenuItem
+            activeHelpKey: copyFile
+            enabled: hasSelection
+            label: 'Copy'
+            itemValue: copyFiles
+            isButton: true
+            isVisible: false
+            labelImage: (ResourceRetriever ToolbarIconLibrary copyFileIcon)
+          )
+         (MenuItem
+            activeHelpKey: pasteFile
+            enabled: canPaste
+            label: 'Paste'
+            itemValue: pasteFiles
+            isButton: true
+            isVisible: false
+            labelImage: (ResourceRetriever ToolbarIconLibrary pasteFileIcon)
+          )
+         (MenuItem
+            activeHelpKey: deleteFile
+            enabled: hasSelection
+            label: 'Delete'
+            itemValue: deleteFiles
+            isButton: true
+            isVisible: false
+            labelImage: (ResourceRetriever ToolbarIconLibrary deleteFileIcon)
+          )
+         (MenuItem
+            label: '-'
+            isVisible: false
+          )
+         (MenuItem
+            activeHelpKey: editFile
+            label: 'Edit File'
+            itemValue: doShowFileContents
+            isButton: true
+            isVisible: false
+            labelImage: (ResourceRetriever ToolbarIconLibrary editFileIcon)
+          )
+         (MenuItem
+            activeHelpKey: fileIn
+            label: 'File In'
+            itemValue: fileFileIn
+            isButton: true
+            isVisible: false
+            labelImage: (ResourceRetriever ToolbarIconLibrary fileInIcon)
+          )
+         (MenuItem
+            activeHelpKey: openChangeBrowser
+            enabled: hasFileSelection
+            label: 'Changes Browser'
+            itemValue: openChangesBrowser
+            isButton: true
+            labelImage: (ResourceRetriever ToolbarIconLibrary startChangesBrowserIcon)
+          )
+         (MenuItem
+            label: '-'
+            isVisible: false
+          )
+         (MenuItem
+            activeHelpKey: addTerminal
+            label: 'VT100'
+            itemValue: doAddTerminal
+            isButton: true
+            labelImage: (ResourceRetriever ToolbarIconLibrary shellTerminalIcon)
+          )
+         (MenuItem
+            activeHelpKey: make
+            enabled: canMake
+            label: 'Make'
+            itemValue: doMake
+            isButton: true
+            labelImage: (ResourceRetriever ToolbarIconLibrary make24x24Icon3)
+          )
+         (MenuItem
+            activeHelpKey: viewDetails
+            label: 'viewDetails'
+            isButton: true
+            startGroup: right
+            hideMenuOnActivated: false
+            indication: viewDetails
+            labelImage: (ResourceRetriever ToolbarIconLibrary viewDetailsIcon)
+          )
+         (MenuItem
+            activeHelpKey: viewDetails
+            label: 'viewDetails'
+            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
+      )
 !
 
 toolBarMainMenu_new
@@ -2394,11 +2622,11 @@
 !FileBrowserV2 class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.220 2014-03-13 09:48:42 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.221 2014-05-06 14:42:46 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.220 2014-03-13 09:48:42 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.221 2014-05-06 14:42:46 cg Exp $'
 ! !
hg/stx-libtool