--- a/ChangesBrowser.st Mon Nov 21 12:49:46 2016 +0100
+++ b/ChangesBrowser.st Mon Nov 21 23:13:43 2016 +0100
@@ -211,451 +211,558 @@
(
(MenuItem
label: 'File'
- submenu:
- (Menu
- (
- (MenuItem
- label: 'Compress'
- itemValue: doCompress
- isVisible: notEditingClassSource
- )
- (MenuItem
- enabled: hasSingleSelection
- label: 'Compress for Class'
- itemValue: doCompressClass
- isVisible: notEditingClassSource
- )
- (MenuItem
- enabled: hasSingleSelection
- label: 'Compress for Class && Selector'
- itemValue: doCompressSelector
- isVisible: notEditingClassSource
- )
- (MenuItem
- label: 'Compare and Compress'
- itemValue: doCompareAndCompress
- isVisible: notEditingClassSource
- )
- (MenuItem
- label: '-'
- isVisible: notEditingClassSource
- )
- (MenuItem
- enabled: hasSingleSelection
- label: 'Fileout && Delete all Changes for Class'
- itemValue: doFileoutAndDeleteClassAll
- isVisible: notEditingClassSource
- )
- (MenuItem
- enabled: hasSelection
- label: 'CheckIn && Delete all Changes for Class'
- itemValue: doCheckinAndDeleteClassAll
- isVisible: notEditingClassSource
- )
- (MenuItem
- label: '-'
- isVisible: notEditingClassSource
- )
- (MenuItem
- enabled: hasSelection
- label: 'Save In...'
- itemValue: doSave
- )
- (MenuItem
- enabled: hasSingleSelection
- label: 'Save to End In...'
- itemValue: doSaveRest
- )
- (MenuItem
- enabled: hasSingleSelection
- label: 'Save for Class to End In...'
- itemValue: doSaveClassRest
- )
- (MenuItem
- enabled: hasSingleSelection
- label: 'Save all for Class In...'
- itemValue: doSaveClassAll
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- label: 'Writeback ClassFile'
- itemValue: doWriteBack
- isVisible: editingClassSource
- )
- (MenuItem
- label: 'Writeback ChangeFile'
- itemValue: doWriteBack
- isVisible: notEditingClassSource
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- label: 'Update'
- itemValue: doUpdate
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- label: 'Exit'
- itemValue: menuExit
- )
- )
- nil
- nil
- )
+ submenuChannel: menuSpecFile
)
(MenuItem
- label: 'CHANGE'
- submenu:
- (Menu
- (
- (MenuItem
- enabled: hasSelection
- label: 'Apply'
- itemValue: doApply
- )
- (MenuItem
- enabled: hasSingleSelection
- label: 'Apply to End'
- itemValue: doApplyRest
- )
- (MenuItem
- enabled: hasSingleSelection
- label: 'Apply from Begin'
- itemValue: doApplyFromBeginning
- )
- (MenuItem
- enabled: hasSingleSelection
- label: 'Apply for Class to End'
- itemValue: doApplyClassRest
- )
- (MenuItem
- enabled: hasSingleSelection
- label: 'Apply for Class from Begin'
- itemValue: doApplyClassFromBeginning
- )
- (MenuItem
- enabled: hasNoSelection
- label: 'Apply All'
- itemValue: doApplyAll
- )
- (MenuItem
- enabled: hasSingleSelection
- label: 'Apply to Conflict or End'
- itemValue: doApplyToConflictOrEnd
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- enabled: hasSelection
- label: 'Delete'
- itemValue: doDelete
- )
- (MenuItem
- enabled: hasSingleSelection
- label: 'Delete to End'
- itemValue: doDeleteRest
- )
- (MenuItem
- enabled: hasSingleSelection
- label: 'Delete from Begin'
- itemValue: doDeleteFromBeginning
- )
- (MenuItem
- enabled: hasSingleSelection
- label: 'Delete for Class to End'
- itemValue: doDeleteClassRest
- )
- (MenuItem
- enabled: hasSingleSelection
- label: 'Delete for Class from Begin'
- itemValue: doDeleteClassFromBeginning
- )
- (MenuItem
- enabled: hasSelection
- label: 'Delete all for Class'
- itemValue: doDeleteClassAll
- isVisible: hasNoMultiSelection
- )
- (MenuItem
- enabled: hasSelection
- label: 'Delete all for Class && its Private Classes'
- itemValue: doDeleteClassAndPrivateClassesAll
- isVisible: hasNoMultiSelection
- )
- (MenuItem
- enabled: hasSelection
- label: 'Delete all for Namespace'
- itemValue: doDeleteAllForNamespace
- )
- (MenuItem
- enabled: hasSelection
- label: 'Delete all for Classes'
- itemValue: doDeleteClassAll
- isVisible: hasMultiSelection
- )
- (MenuItem
- enabled: hasSelection
- label: 'Delete all for Classes && their Private Classes'
- itemValue: doDeleteClassAndPrivateClassesAll
- isVisible: hasMultiSelection
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- enabled: hasSelection
- label: 'Delete older Versions of Selected Method'
- itemValue: doDeleteClassSelectorOlder
- isVisible: hasNoMultiSelectionHolder
- )
- (MenuItem
- enabled: hasSelection
- label: 'Delete older Versions of all Selected Methods'
- itemValue: doDeleteClassSelectorOlder
- isVisible: hasMultiSelectionHolder
- )
- (MenuItem
- enabled: hasSelection
- label: 'Delete all Versions of Selected Method'
- itemValue: doDeleteClassSelectorAll
- isVisible: hasNoMultiSelectionHolder
- )
- (MenuItem
- enabled: hasSelection
- label: 'Delete all Versions of all Selected Methods'
- itemValue: doDeleteClassSelectorAll
- isVisible: hasMultiSelectionHolder
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- enabled: hasSingleSelection
- label: 'Compare with Current'
- itemValue: doCompare
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- enabled: hasSelection
- label: 'Make Change a Patch'
- itemValue: doMakePatch
- )
- )
- nil
- nil
- )
+ label: 'Change'
+ submenuChannel: menuSpecChange
)
(MenuItem
label: 'Search'
- submenu:
- (Menu
- (
- (MenuItem
- label: 'Class...'
- itemValue: findClass
- )
- (MenuItem
- enabled: hasSelection
- label: 'First for Class'
- itemValue: findFirstForClass
- )
- (MenuItem
- enabled: hasSelection
- label: 'Previous for Class'
- itemValue: findPreviousForClass
- )
- (MenuItem
- enabled: hasSelection
- label: 'Next for Class'
- itemValue: findNextForClass
- )
- (MenuItem
- enabled: hasSelection
- label: 'Last for Class'
- itemValue: findLastForClass
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- label: 'Selector...'
- itemValue: findSelector
- )
- (MenuItem
- enabled: hasSelection
- label: 'Previous for Selector'
- itemValue: findPreviousForSelector
- )
- (MenuItem
- enabled: hasSelection
- label: 'Next for Selector'
- itemValue: findNextForSelector
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- label: 'String...'
- itemValue: findString
- )
- (MenuItem
- enabled: hasSelection
- label: 'Previous with String'
- itemValue: findPreviousForString
- )
- (MenuItem
- enabled: hasSelection
- label: 'Next with String'
- itemValue: findNextForString
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- enabled: hasSelection
- label: 'Previous Difference'
- itemValue: findPreviousDifference
- )
- (MenuItem
- enabled: hasSelection
- label: 'Next Difference'
- itemValue: findNextDifference
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- enabled: hasSelection
- label: 'Previous Snapshot'
- itemValue: findPreviousSnapshot
- )
- (MenuItem
- enabled: hasSelection
- label: 'Next Snapshot'
- itemValue: findNextSnapshot
- )
- (MenuItem
- label: 'Last Snapshot'
- itemValue: findLastSnapshot
- )
- )
- nil
- nil
- )
+ submenuChannel: menuSpecSearch
)
(MenuItem
label: 'Browse'
- submenu:
- (Menu
- (
- (MenuItem
- enabled: hasSingleSelection
- label: 'Class'
- itemValue: doBrowse
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- label: 'Senders...'
- itemValue: doBrowseSenders
- )
- (MenuItem
- label: 'Implementors...'
- itemValue: doBrowseImplementors
- )
- )
- nil
- nil
- )
+ submenuChannel: menuSpecBrowse
)
(MenuItem
label: 'Settings'
- submenu:
- (Menu
- (
- (MenuItem
- label: 'Auto Compare'
- indication: autoCompare
- )
- (MenuItem
- label: 'Autoload As Required'
- indication: autoloadAsRequired
- )
- (MenuItem
- label: 'Show Diffs'
- indication: showingDiffs
- )
- (MenuItem
- label: 'Auto Update'
- indication: autoUpdate
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- label: 'Add to ChangeSet when Applying'
- indication: updateChangeSet
- )
- (MenuItem
- label: 'Ignore Public/Private in Categories (Dolphin code)'
- itemValue: ignorePublicPrivateCategories:
- indication: ignorePublicPrivateCategories
- isVisible: false
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- label: 'Apply into Package...'
- itemValue: setEnforcedPackage
- )
- (MenuItem
- label: 'Apply into NameSpace...'
- itemValue: setEnforcedNameSpace
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- label: 'Settings...'
- itemValue: openSettingsDialog
- )
- )
- nil
- nil
- )
+ submenuChannel: menuSpecSettings
)
(MenuItem
label: 'MENU_Help'
- startGroup: conditionalRight
- submenu:
- (Menu
- (
- (MenuItem
- label: 'ChangesBrowser Documentation'
- itemValue: openHTMLDocument:
- argument: 'tools/cbrowser/TOP.html'
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- label: 'About ChangesBrowser...'
- itemValue: openAboutThisApplication
- )
- )
- nil
- nil
- )
+ submenuChannel: menuSpecHelp
+ )
+ )
+ nil
+ nil
+ )
+!
+
+menuSpecBrowse
+ "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:ChangesBrowser andSelector:#menuSpecBrowse
+ (Menu new fromLiteralArrayEncoding:(ChangesBrowser menuSpecBrowse)) startUp
+ "
+
+ <resource: #menu>
+
+ ^
+ #(Menu
+ (
+ (MenuItem
+ enabled: hasSingleSelection
+ label: 'Class'
+ itemValue: doBrowse
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ label: 'Senders...'
+ itemValue: doBrowseSenders
+ )
+ (MenuItem
+ label: 'Implementors...'
+ itemValue: doBrowseImplementors
+ )
+ )
+ nil
+ nil
+ )
+!
+
+menuSpecChange
+ "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:ChangesBrowser andSelector:#menuSpecChange
+ (Menu new fromLiteralArrayEncoding:(ChangesBrowser menuSpecChange)) startUp
+ "
+
+ <resource: #menu>
+
+ ^
+ #(Menu
+ (
+ (MenuItem
+ enabled: hasSelection
+ label: 'Apply'
+ itemValue: doApply
+ )
+ (MenuItem
+ enabled: hasSingleSelection
+ label: 'Apply to End'
+ itemValue: doApplyRest
+ )
+ (MenuItem
+ enabled: hasSingleSelection
+ label: 'Apply from Begin'
+ itemValue: doApplyFromBeginning
+ )
+ (MenuItem
+ enabled: hasSingleSelection
+ label: 'Apply for Class to End'
+ itemValue: doApplyClassRest
+ )
+ (MenuItem
+ enabled: hasSingleSelection
+ label: 'Apply for Class from Begin'
+ itemValue: doApplyClassFromBeginning
+ )
+ (MenuItem
+ enabled: hasNoSelection
+ label: 'Apply All'
+ itemValue: doApplyAll
+ )
+ (MenuItem
+ enabled: hasSingleSelection
+ label: 'Apply to Conflict or End'
+ itemValue: doApplyToConflictOrEnd
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ enabled: hasSelection
+ label: 'Delete'
+ itemValue: doDelete
+ )
+ (MenuItem
+ enabled: hasSingleSelection
+ label: 'Delete to End'
+ itemValue: doDeleteRest
+ )
+ (MenuItem
+ enabled: hasSingleSelection
+ label: 'Delete from Begin'
+ itemValue: doDeleteFromBeginning
+ )
+ (MenuItem
+ enabled: hasSingleSelection
+ label: 'Delete for Class to End'
+ itemValue: doDeleteClassRest
+ )
+ (MenuItem
+ enabled: hasSingleSelection
+ label: 'Delete for Class from Begin'
+ itemValue: doDeleteClassFromBeginning
+ )
+ (MenuItem
+ enabled: hasSelection
+ label: 'Delete all for Class'
+ itemValue: doDeleteClassAll
+ isVisible: hasNoMultiSelection
+ )
+ (MenuItem
+ enabled: hasSelection
+ label: 'Delete all for Class && its Private Classes'
+ itemValue: doDeleteClassAndPrivateClassesAll
+ isVisible: hasNoMultiSelection
+ )
+ (MenuItem
+ enabled: hasSelection
+ label: 'Delete all for Namespace'
+ itemValue: doDeleteAllForNamespace
+ )
+ (MenuItem
+ enabled: hasSelection
+ label: 'Delete all for Classes'
+ itemValue: doDeleteClassAll
+ isVisible: hasMultiSelection
+ )
+ (MenuItem
+ enabled: hasSelection
+ label: 'Delete all for Classes && their Private Classes'
+ itemValue: doDeleteClassAndPrivateClassesAll
+ isVisible: hasMultiSelection
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ enabled: hasSelection
+ label: 'Delete older Versions of Selected Method'
+ itemValue: doDeleteClassSelectorOlder
+ isVisible: hasNoMultiSelectionHolder
+ )
+ (MenuItem
+ enabled: hasSelection
+ label: 'Delete older Versions of all Selected Methods'
+ itemValue: doDeleteClassSelectorOlder
+ isVisible: hasMultiSelectionHolder
+ )
+ (MenuItem
+ enabled: hasSelection
+ label: 'Delete all Versions of Selected Method'
+ itemValue: doDeleteClassSelectorAll
+ isVisible: hasNoMultiSelectionHolder
+ )
+ (MenuItem
+ enabled: hasSelection
+ label: 'Delete all Versions of all Selected Methods'
+ itemValue: doDeleteClassSelectorAll
+ isVisible: hasMultiSelectionHolder
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ enabled: hasSingleSelection
+ label: 'Compare with Current'
+ itemValue: doCompare
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ enabled: hasSelection
+ label: 'Make Change a Patch'
+ itemValue: doMakePatch
+ )
+ )
+ nil
+ nil
+ )
+!
+
+menuSpecFile
+ "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:ChangesBrowser andSelector:#menuSpecFile
+ (Menu new fromLiteralArrayEncoding:(ChangesBrowser menuSpecFile)) startUp
+ "
+
+ <resource: #menu>
+
+ ^
+ #(Menu
+ (
+ (MenuItem
+ label: 'Compress'
+ itemValue: doCompress
+ isVisible: notEditingClassSource
+ )
+ (MenuItem
+ enabled: hasSingleSelection
+ label: 'Compress for Class'
+ itemValue: doCompressClass
+ isVisible: notEditingClassSource
+ )
+ (MenuItem
+ enabled: hasSingleSelection
+ label: 'Compress for Class && Selector'
+ itemValue: doCompressSelector
+ isVisible: notEditingClassSource
+ )
+ (MenuItem
+ label: 'Compare and Compress'
+ itemValue: doCompareAndCompress
+ isVisible: notEditingClassSource
+ )
+ (MenuItem
+ label: '-'
+ isVisible: notEditingClassSource
+ )
+ (MenuItem
+ enabled: hasSingleSelection
+ label: 'Fileout && Delete all Changes for Class'
+ itemValue: doFileoutAndDeleteClassAll
+ isVisible: notEditingClassSource
+ )
+ (MenuItem
+ enabled: hasSelection
+ label: 'CheckIn && Delete all Changes for Class'
+ itemValue: doCheckinAndDeleteClassAll
+ isVisible: notEditingClassSource
+ )
+ (MenuItem
+ label: '-'
+ isVisible: notEditingClassSource
+ )
+ (MenuItem
+ enabled: hasSelection
+ label: 'Save In...'
+ itemValue: doSave
+ )
+ (MenuItem
+ enabled: hasSingleSelection
+ label: 'Save to End In...'
+ itemValue: doSaveRest
+ )
+ (MenuItem
+ enabled: hasSingleSelection
+ label: 'Save for Class to End In...'
+ itemValue: doSaveClassRest
+ )
+ (MenuItem
+ enabled: hasSingleSelection
+ label: 'Save all for Class In...'
+ itemValue: doSaveClassAll
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ label: 'Writeback ClassFile'
+ itemValue: doWriteBack
+ isVisible: editingClassSource
+ )
+ (MenuItem
+ label: 'Writeback ChangeFile'
+ itemValue: doWriteBack
+ isVisible: notEditingClassSource
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ label: 'Update'
+ itemValue: doUpdate
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ label: 'Exit'
+ itemValue: menuExit
+ )
+ )
+ nil
+ nil
+ )
+!
+
+menuSpecHelp
+ "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:ChangesBrowser andSelector:#menuSpecHelp
+ (Menu new fromLiteralArrayEncoding:(ChangesBrowser menuSpecHelp)) startUp
+ "
+
+ <resource: #menu>
+
+ ^
+ #(Menu
+ (
+ (MenuItem
+ label: 'ChangesBrowser Documentation'
+ itemValue: openHTMLDocument:
+ argument: 'tools/cbrowser/TOP.html'
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ label: 'About ChangesBrowser...'
+ itemValue: openAboutThisApplication
+ )
+ )
+ nil
+ nil
+ )
+!
+
+menuSpecSearch
+ "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:ChangesBrowser andSelector:#menuSpecSearch
+ (Menu new fromLiteralArrayEncoding:(ChangesBrowser menuSpecSearch)) startUp
+ "
+
+ <resource: #menu>
+
+ ^
+ #(Menu
+ (
+ (MenuItem
+ label: 'Class...'
+ itemValue: findClass
+ )
+ (MenuItem
+ enabled: hasSelection
+ label: 'First for Class'
+ itemValue: findFirstForClass
+ )
+ (MenuItem
+ enabled: hasSelection
+ label: 'Previous for Class'
+ itemValue: findPreviousForClass
+ )
+ (MenuItem
+ enabled: hasSelection
+ label: 'Next for Class'
+ itemValue: findNextForClass
+ )
+ (MenuItem
+ enabled: hasSelection
+ label: 'Last for Class'
+ itemValue: findLastForClass
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ label: 'Selector...'
+ itemValue: findSelector
+ )
+ (MenuItem
+ enabled: hasSelection
+ label: 'Previous for Selector'
+ itemValue: findPreviousForSelector
+ )
+ (MenuItem
+ enabled: hasSelection
+ label: 'Next for Selector'
+ itemValue: findNextForSelector
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ label: 'String...'
+ itemValue: findString
+ )
+ (MenuItem
+ enabled: hasSelection
+ label: 'Previous with String'
+ itemValue: findPreviousForString
+ )
+ (MenuItem
+ enabled: hasSelection
+ label: 'Next with String'
+ itemValue: findNextForString
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ enabled: hasSelection
+ label: 'Previous Difference'
+ itemValue: findPreviousDifference
+ )
+ (MenuItem
+ enabled: hasSelection
+ label: 'Next Difference'
+ itemValue: findNextDifference
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ enabled: hasSelection
+ label: 'Previous Snapshot'
+ itemValue: findPreviousSnapshot
+ )
+ (MenuItem
+ enabled: hasSelection
+ label: 'Next Snapshot'
+ itemValue: findNextSnapshot
+ )
+ (MenuItem
+ label: 'Last Snapshot'
+ itemValue: findLastSnapshot
+ )
+ )
+ nil
+ nil
+ )
+!
+
+menuSpecSettings
+ "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:ChangesBrowser andSelector:#menuSpecSettings
+ (Menu new fromLiteralArrayEncoding:(ChangesBrowser menuSpecSettings)) startUp
+ "
+
+ <resource: #menu>
+
+ ^
+ #(Menu
+ (
+ (MenuItem
+ label: 'Auto Compare'
+ indication: autoCompare
+ )
+ (MenuItem
+ label: 'Autoload As Required'
+ indication: autoloadAsRequired
+ )
+ (MenuItem
+ label: 'Show Diffs'
+ indication: showingDiffs
+ )
+ (MenuItem
+ label: 'Auto Update'
+ indication: autoUpdate
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ label: 'Add to ChangeSet when Applying'
+ indication: updateChangeSet
+ )
+ (MenuItem
+ label: 'Ignore Public/Private in Categories (Dolphin code)'
+ itemValue: ignorePublicPrivateCategories:
+ isVisible: false
+ indication: ignorePublicPrivateCategories
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ label: 'Apply into Package...'
+ itemValue: setEnforcedPackage
+ )
+ (MenuItem
+ label: 'Apply into NameSpace...'
+ itemValue: setEnforcedNameSpace
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ label: 'Settings...'
+ itemValue: openSettingsDialog
)
)
nil