--- a/ChangeSetBrowser.st Thu Apr 13 17:21:40 2006 +0200
+++ b/ChangeSetBrowser.st Thu Apr 13 17:22:33 2006 +0200
@@ -98,420 +98,428 @@
<resource: #menu>
^
- #(#Menu
- #(
- #(#MenuItem
- #label: 'File'
- #translateLabel: true
- #submenu:
- #(#Menu
- #(
- #(#MenuItem
- #label: 'Compress'
- #itemValue: #doCompress
- #translateLabel: true
- #isVisible: #notEditingClassSourceAndNotReadOnly
+ #(Menu
+ (
+ (MenuItem
+ label: 'File'
+ translateLabel: true
+ submenu:
+ (Menu
+ (
+ (MenuItem
+ label: 'Compress'
+ itemValue: doCompress
+ translateLabel: true
+ isVisible: notEditingClassSourceAndNotReadOnly
)
- #(#MenuItem
- #enabled: #hasSelection
- #label: 'Compress for Class'
- #itemValue: #doCompressClass
- #translateLabel: true
- #isVisible: #notEditingClassSourceAndNotReadOnly
+ (MenuItem
+ enabled: hasSelection
+ label: 'Compress for Class'
+ itemValue: doCompressClass
+ translateLabel: true
+ isVisible: notEditingClassSourceAndNotReadOnly
)
- #(#MenuItem
- #label: 'Compare and Compress'
- #itemValue: #doCompareAndCompress
- #translateLabel: true
- #isVisible: #notEditingClassSourceAndNotReadOnly
+ (MenuItem
+ label: 'Compare and Compress'
+ itemValue: doCompareAndCompress
+ translateLabel: true
+ isVisible: notEditingClassSourceAndNotReadOnly
)
- #(#MenuItem
- #label: '-'
- #isVisible: #notEditingClassSourceAndNotReadOnly
+ (MenuItem
+ label: '-'
+ isVisible: notEditingClassSourceAndNotReadOnly
)
- #(#MenuItem
- #enabled: #hasSelection
- #label: 'Fileout && Delete all Changes for Class'
- #itemValue: #doFileoutAndDeleteClassAll
- #translateLabel: true
- #isVisible: #notEditingClassSourceAndNotReadOnly
+ (MenuItem
+ enabled: hasSelection
+ label: 'Fileout && Delete all Changes for Class'
+ itemValue: doFileoutAndDeleteClassAll
+ translateLabel: true
+ isVisible: notEditingClassSourceAndNotReadOnly
)
- #(#MenuItem
- #enabled: #hasSelection
- #label: 'CheckIn && Delete all Changes for Class'
- #itemValue: #doCheckinAndDeleteClassAll
- #translateLabel: true
- #isVisible: #notEditingClassSourceAndNotReadOnly
+ (MenuItem
+ enabled: hasSelection
+ label: 'CheckIn && Delete all Changes for Class'
+ itemValue: doCheckinAndDeleteClassAll
+ translateLabel: true
+ isVisible: notEditingClassSourceAndNotReadOnly
)
- #(#MenuItem
- #label: '-'
- #isVisible: #notEditingClassSourceAndNotReadOnly
+ (MenuItem
+ label: '-'
+ isVisible: notEditingClassSourceAndNotReadOnly
)
- #(#MenuItem
- #enabled: #hasSelection
- #label: 'Save in...'
- #itemValue: #doSave
- #translateLabel: true
+ (MenuItem
+ enabled: hasSelection
+ label: 'Save in...'
+ itemValue: doSave
+ translateLabel: true
)
- #(#MenuItem
- #enabled: #hasSelection
- #label: 'Save to End in...'
- #itemValue: #doSaveRest
- #translateLabel: true
+ (MenuItem
+ enabled: hasSelection
+ label: 'Save to End in...'
+ itemValue: doSaveRest
+ translateLabel: true
)
- #(#MenuItem
- #enabled: #hasSelection
- #label: 'Save for Class to End in...'
- #itemValue: #doSaveClassRest
- #translateLabel: true
+ (MenuItem
+ enabled: hasSelection
+ label: 'Save for Class to End in...'
+ itemValue: doSaveClassRest
+ translateLabel: true
)
- #(#MenuItem
- #enabled: #hasSelection
- #label: 'Save All for Class in...'
- #itemValue: #doSaveClassAll
- #translateLabel: true
+ (MenuItem
+ enabled: hasSelection
+ label: 'Save All for Class in...'
+ itemValue: doSaveClassAll
+ translateLabel: true
)
- #(#MenuItem
- #label: '-'
+ (MenuItem
+ label: '-'
)
- #(#MenuItem
- #label: 'Saveback ChangeSet'
- #itemValue: #doSaveBack
- #translateLabel: true
- #isVisible: #notReadOnly
+ (MenuItem
+ label: 'Saveback ChangeSet'
+ itemValue: doSaveBack
+ translateLabel: true
+ isVisible: notReadOnly
)
- #(#MenuItem
- #label: '-'
- #isVisible: #notReadOnly
+ (MenuItem
+ label: '-'
+ isVisible: notReadOnly
)
- #(#MenuItem
- #label: 'Update'
- #itemValue: #doUpdate
- #translateLabel: true
- #isVisible: #notReadOnly
+ (MenuItem
+ label: 'Update'
+ itemValue: doUpdate
+ translateLabel: true
+ isVisible: notReadOnly
)
- #(#MenuItem
- #label: '-'
- #isVisible: #notReadOnly
+ (MenuItem
+ label: '-'
+ isVisible: notReadOnly
)
- #(#MenuItem
- #label: 'Exit'
- #itemValue: #menuExit
- #translateLabel: true
+ (MenuItem
+ label: 'Exit'
+ itemValue: menuExit
+ translateLabel: true
)
)
nil
nil
)
)
- #(#MenuItem
- #label: 'Change'
- #translateLabel: true
- #submenu:
- #(#Menu
- #(
- #(#MenuItem
- #label: 'Undo (undelete Method)'
- #itemValue: #doUndoRemoveMethod
- #translateLabel: true
- #isVisible: #hasUndoableRemoveMethodChangeSelected
+ (MenuItem
+ label: 'Change'
+ translateLabel: true
+ submenu:
+ (Menu
+ (
+ (MenuItem
+ label: 'Undo (undelete Method)'
+ itemValue: doUndoRemoveMethod
+ translateLabel: true
+ isVisible: hasUndoableRemoveMethodChangeSelected
)
- #(#MenuItem
- #label: 'Undo (previous Version)'
- #itemValue: #doUndoMethodChange
- #translateLabel: true
- #isVisible: #hasUndoableMethodChangeSelected
+ (MenuItem
+ label: 'Undo (previous Version)'
+ itemValue: doUndoMethodChange
+ translateLabel: true
+ isVisible: hasUndoableMethodChangeSelected
)
- #(#MenuItem
- #enabled: false
- #label: 'Undo'
- #itemValue: #doUndoMethodChange
- #translateLabel: true
- #isVisible: #hasNotUndoableChangeSelected
+ (MenuItem
+ enabled: false
+ label: 'Undo'
+ itemValue: doUndoMethodChange
+ translateLabel: true
+ isVisible: hasNotUndoableChangeSelected
)
- #(#MenuItem
- #label: '-'
+ (MenuItem
+ label: '-'
)
- #(#MenuItem
- #enabled: #hasSelection
- #label: 'Apply'
- #itemValue: #doApply
- #translateLabel: true
+ (MenuItem
+ enabled: hasSelection
+ label: 'Apply'
+ itemValue: doApply
+ translateLabel: true
)
- #(#MenuItem
- #enabled: #hasSelection
- #label: 'Apply to End'
- #itemValue: #doApplyRest
- #translateLabel: true
+ (MenuItem
+ enabled: hasSelection
+ label: 'Apply to End'
+ itemValue: doApplyRest
+ translateLabel: true
)
- #(#MenuItem
- #enabled: #hasSelection
- #label: 'Apply for Class to End'
- #itemValue: #doApplyClassRest
- #translateLabel: true
+ (MenuItem
+ enabled: hasSelection
+ label: 'Apply for Class to End'
+ itemValue: doApplyClassRest
+ translateLabel: true
)
- #(#MenuItem
- #enabled: #hasNoSelection
- #label: 'Apply All'
- #itemValue: #doApplyAll
- #translateLabel: true
+ (MenuItem
+ enabled: hasNoSelection
+ label: 'Apply All'
+ itemValue: doApplyAll
+ translateLabel: true
)
- #(#MenuItem
- #label: '-'
+ (MenuItem
+ label: '-'
)
- #(#MenuItem
- #enabled: #hasSelection
- #label: 'Delete'
- #itemValue: #doDelete
- #translateLabel: true
- #isVisible: #notReadOnly
+ (MenuItem
+ enabled: hasSelection
+ label: 'Delete'
+ itemValue: doDelete
+ translateLabel: true
+ isVisible: notReadOnly
)
- #(#MenuItem
- #enabled: #hasSelection
- #label: 'Delete to End'
- #itemValue: #doDeleteRest
- #translateLabel: true
- #isVisible: #notReadOnly
+ (MenuItem
+ enabled: hasSelection
+ label: 'Delete to End'
+ itemValue: doDeleteRest
+ translateLabel: true
+ isVisible: notReadOnly
)
- #(#MenuItem
- #enabled: #hasSelection
- #label: 'Delete for Class to End'
- #itemValue: #doDeleteClassRest
- #translateLabel: true
- #isVisible: #notReadOnly
+ (MenuItem
+ enabled: hasSelection
+ label: 'Delete for Class to End'
+ itemValue: doDeleteClassRest
+ translateLabel: true
+ isVisible: notReadOnly
)
- #(#MenuItem
- #enabled: #hasSelection
- #label: 'Delete for Class from Begin'
- #itemValue: #doDeleteClassFromBeginning
- #translateLabel: true
- #isVisible: #notReadOnly
+ (MenuItem
+ enabled: hasSelection
+ label: 'Delete for Class from Begin'
+ itemValue: doDeleteClassFromBeginning
+ translateLabel: true
+ isVisible: notReadOnly
)
- #(#MenuItem
- #enabled: #hasSelection
- #label: 'Delete All for Class'
- #itemValue: #doDeleteClassAll
- #translateLabel: true
- #isVisible: #notReadOnly
+ (MenuItem
+ enabled: hasSelection
+ label: 'Delete All for Class'
+ itemValue: doDeleteClassAll
+ translateLabel: true
+ isVisible: notReadOnly
)
- #(#MenuItem
- #enabled: #hasSelection
- #label: 'Delete All for Class && its Private Classes'
- #itemValue: #doDeleteClassAndPrivateClassesAll
- #translateLabel: true
- #isVisible: #notReadOnly
+ (MenuItem
+ enabled: hasSelection
+ label: 'Delete All for Class && its Private Classes'
+ itemValue: doDeleteClassAndPrivateClassesAll
+ translateLabel: true
+ isVisible: notReadOnly
)
- #(#MenuItem
- #label: '-'
- #isVisible: #notReadOnly
+ (MenuItem
+ label: '-'
+ isVisible: notReadOnly
)
- #(#MenuItem
- #enabled: #hasSelection
- #label: 'Compare with Current'
- #itemValue: #doCompare
- #translateLabel: true
+ (MenuItem
+ enabled: hasSelection
+ label: 'Compare with Current'
+ itemValue: doCompare
+ translateLabel: true
)
- #(#MenuItem
- #enabled: #hasSelection
- #label: 'Browse'
- #itemValue: #doBrowse
- #translateLabel: true
+ (MenuItem
+ enabled: hasSelection
+ label: 'Browse'
+ itemValue: doBrowse
+ translateLabel: true
)
- #(#MenuItem
- #label: '-'
+ (MenuItem
+ label: '-'
)
- #(#MenuItem
- #enabled: #hasSelection
- #label: 'Make Change a Patch'
- #itemValue: #doMakePatch
- #translateLabel: true
+ (MenuItem
+ enabled: hasSelection
+ label: 'Make Change a Patch'
+ itemValue: doMakePatch
+ translateLabel: true
)
)
nil
nil
)
)
- #(#MenuItem
- #label: 'Search'
- #translateLabel: true
- #submenu:
- #(#Menu
- #(
- #(#MenuItem
- #label: 'Class...'
- #itemValue: #findClass
- #translateLabel: true
+ (MenuItem
+ label: 'Search'
+ translateLabel: true
+ submenu:
+ (Menu
+ (
+ (MenuItem
+ label: 'Class...'
+ itemValue: findClass
+ translateLabel: true
)
- #(#MenuItem
- #enabled: #hasSelection
- #label: 'Previous for Class'
- #itemValue: #findPreviousForClass
- #translateLabel: true
+ (MenuItem
+ enabled: hasSelection
+ label: 'Previous for Class'
+ itemValue: findPreviousForClass
+ translateLabel: true
)
- #(#MenuItem
- #enabled: #hasSelection
- #label: 'Next for Class'
- #itemValue: #findNextForClass
- #translateLabel: true
+ (MenuItem
+ enabled: hasSelection
+ label: 'Next for Class'
+ itemValue: findNextForClass
+ translateLabel: true
)
- #(#MenuItem
- #label: '-'
+ (MenuItem
+ label: '-'
)
- #(#MenuItem
- #label: 'Selector...'
- #itemValue: #findSelector
- #translateLabel: true
+ (MenuItem
+ label: 'Selector...'
+ itemValue: findSelector
+ translateLabel: true
)
- #(#MenuItem
- #enabled: #hasSelection
- #label: 'Previous for Selector'
- #itemValue: #findPreviousForSelector
- #translateLabel: true
+ (MenuItem
+ enabled: hasSelection
+ label: 'Previous for Selector'
+ itemValue: findPreviousForSelector
+ translateLabel: true
+ )
+ (MenuItem
+ enabled: hasSelection
+ label: 'Next for Selector'
+ itemValue: findNextForSelector
+ translateLabel: true
)
- #(#MenuItem
- #enabled: #hasSelection
- #label: 'Next for Selector'
- #itemValue: #findNextForSelector
- #translateLabel: true
+ (MenuItem
+ label: '-'
)
- #(#MenuItem
- #label: '-'
+ (MenuItem
+ label: 'String...'
+ itemValue: findString
+ translateLabel: true
)
- #(#MenuItem
- #label: 'String...'
- #itemValue: #findString
- #translateLabel: true
+ (MenuItem
+ enabled: hasSelection
+ label: 'Previous with String'
+ itemValue: findPreviousForString
+ translateLabel: true
)
- #(#MenuItem
- #enabled: #hasSelection
- #label: 'Previous with String'
- #itemValue: #findPreviousForString
- #translateLabel: true
+ (MenuItem
+ enabled: hasSelection
+ label: 'Next with String'
+ itemValue: findNextForString
+ translateLabel: true
)
- #(#MenuItem
- #enabled: #hasSelection
- #label: 'Next with String'
- #itemValue: #findNextForString
- #translateLabel: true
+ (MenuItem
+ label: '-'
)
- #(#MenuItem
- #label: '-'
+ (MenuItem
+ enabled: hasSelection
+ label: 'Previous Snapshot'
+ itemValue: findPreviousSnapshot
+ translateLabel: true
)
- #(#MenuItem
- #enabled: #hasSelection
- #label: 'Previous Snapshot'
- #itemValue: #findPreviousSnapshot
- #translateLabel: true
+ (MenuItem
+ enabled: hasSelection
+ label: 'Next Snapshot'
+ itemValue: findNextSnapshot
+ translateLabel: true
)
- #(#MenuItem
- #enabled: #hasSelection
- #label: 'Next Snapshot'
- #itemValue: #findNextSnapshot
- #translateLabel: true
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ label: 'Next Difference'
+ itemValue: findNextDifference
+ translateLabel: true
)
)
nil
nil
)
)
- #(#MenuItem
- #label: 'Browse'
- #translateLabel: true
- #submenu:
- #(#Menu
- #(
- #(#MenuItem
- #enabled: #hasSingleSelection
- #label: 'Class'
- #itemValue: #doBrowse
- #translateLabel: true
+ (MenuItem
+ label: 'Browse'
+ translateLabel: true
+ submenu:
+ (Menu
+ (
+ (MenuItem
+ enabled: hasSingleSelection
+ label: 'Class'
+ itemValue: doBrowse
+ translateLabel: true
)
- #(#MenuItem
- #label: '-'
+ (MenuItem
+ label: '-'
)
- #(#MenuItem
- #label: 'Senders...'
- #itemValue: #doBrowseSenders
- #translateLabel: true
+ (MenuItem
+ label: 'Senders...'
+ itemValue: doBrowseSenders
+ translateLabel: true
)
- #(#MenuItem
- #label: 'Implementors...'
- #itemValue: #doBrowseImplementors
- #translateLabel: true
+ (MenuItem
+ label: 'Implementors...'
+ itemValue: doBrowseImplementors
+ translateLabel: true
)
)
nil
nil
)
)
- #(#MenuItem
- #label: 'Settings'
- #translateLabel: true
- #submenu:
- #(#Menu
- #(
- #(#MenuItem
- #label: 'Auto Compare'
- #translateLabel: true
- #indication: #autoCompare
+ (MenuItem
+ label: 'Settings'
+ translateLabel: true
+ submenu:
+ (Menu
+ (
+ (MenuItem
+ label: 'Auto Compare'
+ translateLabel: true
+ indication: autoCompare
)
- #(#MenuItem
- #label: 'Auto Update'
- #translateLabel: true
- #isVisible: #notReadOnly
- #indication: #autoUpdate
+ (MenuItem
+ label: 'Auto Update'
+ translateLabel: true
+ isVisible: notReadOnly
+ indication: autoUpdate
)
- #(#MenuItem
- #label: '-'
+ (MenuItem
+ label: '-'
)
- #(#MenuItem
- #label: 'Add Applies to ChangeSet...'
- #translateLabel: true
- #indication: #updateChangeSet
+ (MenuItem
+ label: 'Add Applies to ChangeSet...'
+ translateLabel: true
+ indication: updateChangeSet
)
- #(#MenuItem
- #label: 'Apply in Original NameSpace'
- #translateLabel: true
- #indication: #applyInOriginalNameSpace
+ (MenuItem
+ label: 'Apply in Original NameSpace'
+ translateLabel: true
+ indication: applyInOriginalNameSpace
)
- #(#MenuItem
- #label: '-'
+ (MenuItem
+ label: '-'
)
- #(#MenuItem
- #label: 'Apply into Package...'
- #itemValue: #setEnforcedPackage
- #translateLabel: true
+ (MenuItem
+ label: 'Apply into Package...'
+ itemValue: setEnforcedPackage
+ translateLabel: true
)
- #(#MenuItem
- #label: 'Apply in NameSpace...'
- #itemValue: #setEnforcedNameSpace
- #translateLabel: true
+ (MenuItem
+ label: 'Apply in NameSpace...'
+ itemValue: setEnforcedNameSpace
+ translateLabel: true
)
)
nil
nil
)
)
- #(#MenuItem
- #label: 'Help'
- #translateLabel: true
- #startGroup: #right
- #submenu:
- #(#Menu
- #(
- #(#MenuItem
- #label: 'ChangesBrowser Documentation'
- #itemValue: #openHTMLDocument:
- #translateLabel: true
- #argument: 'tools/cbrowser/TOP.html'
+ (MenuItem
+ label: 'Help'
+ translateLabel: true
+ startGroup: right
+ submenu:
+ (Menu
+ (
+ (MenuItem
+ label: 'ChangesBrowser Documentation'
+ itemValue: openHTMLDocument:
+ translateLabel: true
+ argument: 'tools/cbrowser/TOP.html'
)
- #(#MenuItem
- #label: '-'
+ (MenuItem
+ label: '-'
)
- #(#MenuItem
- #label: 'About ChangesBrowser...'
- #itemValue: #openAboutThisApplication
- #translateLabel: true
+ (MenuItem
+ label: 'About ChangesBrowser...'
+ itemValue: openAboutThisApplication
+ translateLabel: true
)
)
nil
@@ -993,5 +1001,5 @@
!ChangeSetBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/ChangeSetBrowser.st,v 1.44 2006-04-03 07:53:28 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/ChangeSetBrowser.st,v 1.45 2006-04-13 15:22:33 cg Exp $'
! !