--- a/MultiViewToolApplication.st Mon Jan 17 15:28:05 2022 +0000
+++ b/MultiViewToolApplication.st Wed Feb 23 11:56:13 2022 +0000
@@ -1,5 +1,6 @@
"
COPYRIGHT (c) 2004 by eXept Software AG
+ COPYRIGHT (c) 2022 LabWare
All Rights Reserved
This software is furnished under a license and may be used
@@ -26,6 +27,7 @@
copyright
"
COPYRIGHT (c) 2004 by eXept Software AG
+ COPYRIGHT (c) 2022 LabWare
All Rights Reserved
This software is furnished under a license and may be used
@@ -239,6 +241,7 @@
"Do not manually edit this!! If it is corrupted,
the MenuEditor may not be able to read the specification."
+
"
MenuEditor new openOnClass:MultiViewToolApplication andSelector:#mainMenu
(Menu new fromLiteralArrayEncoding:(MultiViewToolApplication mainMenu)) startUp
@@ -247,159 +250,158 @@
<resource: #menu>
^
- #(Menu
- (
+ #(Menu (
(MenuItem
label: 'File'
- translateLabel: true
+ isVisible: true
submenu:
- (Menu
- (
+ (Menu (
(MenuItem
label: 'New Editor'
itemValue: newWorkspace
- translateLabel: true
- )
+ isVisible: true
+ )
(MenuItem
label: '-'
- )
+ isVisible: true
+ )
(MenuItem
label: 'Load File...'
itemValue: menuLoad
- translateLabel: true
- )
+ isVisible: true
+ )
(MenuItem
label: '-'
- )
+ isVisible: true
+ )
(MenuItem
label: 'Save As...'
itemValue: menuSaveAs
- translateLabel: true
- )
+ isVisible: true
+ )
(MenuItem
enabled: hasMultipleBuffersHolder
label: 'Save all As...'
itemValue: menuSaveAllAs
- translateLabel: true
- )
+ isVisible: true
+ )
(MenuItem
label: '-'
- )
+ isVisible: true
+ )
(MenuItem
label: 'Print...'
itemValue: menuPrint
- translateLabel: true
- )
+ isVisible: true
+ )
(MenuItem
label: '-'
- )
+ isVisible: true
+ )
(MenuItem
label: 'Exit'
itemValue: closeRequest
- translateLabel: true
- )
+ isVisible: true
)
+ ) nil
nil
- nil
- )
- )
+ )
+ )
(MenuItem
label: 'Buffers'
nameKey: Buffer
- translateLabel: true
+ isVisible: true
submenu:
- (Menu
- (
+ (Menu (
(MenuItem
label: 'Add Buffer'
itemValue: addWorkspace
- translateLabel: true
- )
+ isVisible: true
+ shortcutKey: AddTab
+ )
(MenuItem
label: '-'
- )
+ isVisible: true
+ )
(MenuItem
label: 'Rename...'
itemValue: renameWorkspace
- translateLabel: true
- )
+ isVisible: true
+ )
(MenuItem
label: '-'
- )
+ isVisible: true
+ )
(MenuItem
enabled: canRemoveWorkspace
label: 'Remove Buffer'
itemValue: removeWorkspace
- translateLabel: true
- )
+ isVisible: true
+ shortcutKey: CloseTab
)
+ ) nil
nil
- nil
- )
- )
+ )
+ )
(MenuItem
label: 'Edit'
- translateLabel: true
+ isVisible: true
submenu:
- (Menu
- (
+ (Menu (
(MenuItem
enabled: hasSelectionInActiveWorkspace
label: 'Cut'
itemValue: cutSelection
- translateLabel: true
- )
+ isVisible: true
+ )
(MenuItem
enabled: hasSelectionInActiveWorkspace
label: 'Copy'
itemValue: copySelection
- translateLabel: true
- )
+ isVisible: true
+ )
(MenuItem
label: 'Paste'
itemValue: paste
- translateLabel: true
- )
+ isVisible: true
+ )
(MenuItem
label: '-'
- )
+ isVisible: true
+ )
(MenuItem
label: 'Select All'
itemValue: selectAll
- translateLabel: true
- )
+ isVisible: true
)
+ ) nil
nil
- nil
- )
- )
+ )
+ )
(MenuItem
label: 'View'
- translateLabel: true
+ isVisible: true
submenuChannel: viewMenu
keepLinkedMenu: true
- )
+ )
(MenuItem
label: 'MENU_Help'
- translateLabel: true
startGroup: conditionalRight
+ isVisible: true
submenu:
- (Menu
- (
+ (Menu (
(MenuItem
label: 'About this Application...'
itemValue: openAboutThisApplication
- translateLabel: true
- )
+ isVisible: true
)
- nil
+ ) nil
nil
- )
- )
+ )
)
- nil
+ ) nil
nil
- )
+ )
!
tabMenu