--- a/ChangesBrowser.st Thu May 15 10:18:18 2003 +0200
+++ b/ChangesBrowser.st Thu May 15 17:42:29 2003 +0200
@@ -185,106 +185,106 @@
#(
#(#MenuItem
#label: 'Compress'
- #translateLabel: true
- #isVisible: #notEditingClassSource
- #value: #doCompress
- )
- #(#MenuItem
- #label: 'Compress for Class'
+ #itemValue: #doCompress
#translateLabel: true
#isVisible: #notEditingClassSource
- #value: #doCompressClass
- #enabled: #hasSingleSelection
)
#(#MenuItem
- #label: 'Compress for Class && Selector'
+ #enabled: #hasSingleSelection
+ #label: 'Compress for Class'
+ #itemValue: #doCompressClass
#translateLabel: true
#isVisible: #notEditingClassSource
- #value: #doCompressSelector
+ )
+ #(#MenuItem
#enabled: #hasSingleSelection
+ #label: 'Compress for Class && Selector'
+ #itemValue: #doCompressSelector
+ #translateLabel: true
+ #isVisible: #notEditingClassSource
)
#(#MenuItem
#label: 'Compare and Compress'
+ #itemValue: #doCompareAndCompress
#translateLabel: true
#isVisible: #notEditingClassSource
- #value: #doCompareAndCompress
)
#(#MenuItem
#label: '-'
#isVisible: #notEditingClassSource
)
#(#MenuItem
+ #enabled: #hasSingleSelection
#label: 'Fileout && Delete all Changes for Class'
+ #itemValue: #doFileoutAndDeleteClassAll
#translateLabel: true
#isVisible: #notEditingClassSource
- #value: #doFileoutAndDeleteClassAll
- #enabled: #hasSingleSelection
)
#(#MenuItem
+ #enabled: #hasSelection
#label: 'CheckIn && Delete all Changes for Class'
+ #itemValue: #doCheckinAndDeleteClassAll
#translateLabel: true
#isVisible: #notEditingClassSource
- #value: #doCheckinAndDeleteClassAll
- #enabled: #hasSelection
)
#(#MenuItem
#label: '-'
#isVisible: #notEditingClassSource
)
#(#MenuItem
+ #enabled: #hasSelection
#label: 'Save In...'
+ #itemValue: #doSave
#translateLabel: true
- #value: #doSave
- #enabled: #hasSelection
)
#(#MenuItem
+ #enabled: #hasSingleSelection
#label: 'Save to End In...'
+ #itemValue: #doSaveRest
#translateLabel: true
- #value: #doSaveRest
- #enabled: #hasSingleSelection
)
#(#MenuItem
+ #enabled: #hasSingleSelection
#label: 'Save for Class to End In...'
+ #itemValue: #doSaveClassRest
#translateLabel: true
- #value: #doSaveClassRest
- #enabled: #hasSingleSelection
)
#(#MenuItem
+ #enabled: #hasSingleSelection
#label: 'Save all for Class In...'
+ #itemValue: #doSaveClassAll
#translateLabel: true
- #value: #doSaveClassAll
- #enabled: #hasSingleSelection
)
#(#MenuItem
#label: '-'
)
#(#MenuItem
#label: 'Writeback ClassFile'
+ #itemValue: #doWriteBack
#translateLabel: true
#isVisible: #editingClassSource
- #value: #doWriteBack
)
#(#MenuItem
#label: 'Writeback ChangeFile'
+ #itemValue: #doWriteBack
#translateLabel: true
#isVisible: #notEditingClassSource
- #value: #doWriteBack
)
#(#MenuItem
#label: '-'
)
#(#MenuItem
#label: 'Update'
+ #itemValue: #doUpdate
#translateLabel: true
- #value: #doUpdate
)
#(#MenuItem
#label: '-'
)
#(#MenuItem
#label: 'Exit'
+ #itemValue: #menuExit
#translateLabel: true
- #value: #menuExit
)
)
nil
@@ -298,136 +298,142 @@
#(#Menu
#(
#(#MenuItem
+ #enabled: #hasSelection
#label: 'Apply'
+ #itemValue: #doApply
#translateLabel: true
- #value: #doApply
- #enabled: #hasSelection
)
#(#MenuItem
+ #enabled: #hasSingleSelection
#label: 'Apply to End'
+ #itemValue: #doApplyRest
#translateLabel: true
- #value: #doApplyRest
- #enabled: #hasSingleSelection
)
#(#MenuItem
+ #enabled: #hasSingleSelection
#label: 'Apply from Begin'
+ #itemValue: #doApplyFromBeginning
#translateLabel: true
- #value: #doApplyFromBeginning
- #enabled: #hasSingleSelection
)
#(#MenuItem
+ #enabled: #hasSingleSelection
#label: 'Apply for Class to End'
+ #itemValue: #doApplyClassRest
#translateLabel: true
- #value: #doApplyClassRest
- #enabled: #hasSingleSelection
)
#(#MenuItem
+ #enabled: #hasSingleSelection
#label: 'Apply for Class from Begin'
+ #itemValue: #doApplyClassFromBeginning
#translateLabel: true
- #value: #doApplyClassFromBeginning
- #enabled: #hasSingleSelection
)
#(#MenuItem
+ #enabled: #hasNoSelection
#label: 'Apply All'
+ #itemValue: #doApplyAll
#translateLabel: true
- #value: #doApplyAll
- #enabled: #hasNoSelection
)
#(#MenuItem
+ #enabled: #hasSingleSelection
#label: 'Apply to Conflict or End'
+ #itemValue: #doApplyToConflictOrEnd
#translateLabel: true
- #value: #doApplyToConflictOrEnd
- #enabled: #hasSingleSelection
)
#(#MenuItem
#label: '-'
)
#(#MenuItem
+ #enabled: #hasSelection
#label: 'Delete'
+ #itemValue: #doDelete
#translateLabel: true
- #value: #doDelete
- #enabled: #hasSelection
)
#(#MenuItem
+ #enabled: #hasSingleSelection
#label: 'Delete to End'
+ #itemValue: #doDeleteRest
#translateLabel: true
- #value: #doDeleteRest
- #enabled: #hasSingleSelection
)
#(#MenuItem
- #label: 'Delete for Class to End'
+ #enabled: #hasSingleSelection
+ #label: 'Delete from Begin'
+ #itemValue: #doDeleteFromBeginning
#translateLabel: true
- #value: #doDeleteClassRest
- #enabled: #hasSingleSelection
)
#(#MenuItem
- #label: 'Delete for Class from Begin'
+ #enabled: #hasSingleSelection
+ #label: 'Delete for Class to End'
+ #itemValue: #doDeleteClassRest
#translateLabel: true
- #value: #doDeleteClassFromBeginning
- #enabled: #hasSingleSelection
)
#(#MenuItem
- #label: 'Delete all for Class'
+ #enabled: #hasSingleSelection
+ #label: 'Delete for Class from Begin'
+ #itemValue: #doDeleteClassFromBeginning
#translateLabel: true
- #isVisible: #hasNoMultiSelection
- #value: #doDeleteClassAll
- #enabled: #hasSelection
)
#(#MenuItem
- #label: 'Delete all for Class && its Private Classes'
+ #enabled: #hasSelection
+ #label: 'Delete all for Class'
+ #itemValue: #doDeleteClassAll
#translateLabel: true
#isVisible: #hasNoMultiSelection
- #value: #doDeleteClassAndPrivateClassesAll
- #enabled: #hasSelection
)
#(#MenuItem
+ #enabled: #hasSelection
+ #label: 'Delete all for Class && its Private Classes'
+ #itemValue: #doDeleteClassAndPrivateClassesAll
+ #translateLabel: true
+ #isVisible: #hasNoMultiSelection
+ )
+ #(#MenuItem
+ #enabled: #hasSelection
#label: 'Delete all for Classes'
+ #itemValue: #doDeleteClassAll
#translateLabel: true
#isVisible: #hasMultiSelection
- #value: #doDeleteClassAll
- #enabled: #hasSelection
)
#(#MenuItem
+ #enabled: #hasSelection
#label: 'Delete all for Classes && their Private Classes'
+ #itemValue: #doDeleteClassAndPrivateClassesAll
#translateLabel: true
#isVisible: #hasMultiSelection
- #value: #doDeleteClassAndPrivateClassesAll
- #enabled: #hasSelection
)
#(#MenuItem
#label: '-'
)
#(#MenuItem
+ #enabled: #hasSelection
#label: 'Delete all Versions of Selected Method '
+ #itemValue: #doDeleteClassSelectorAll
#translateLabel: true
#isVisible: #hasNoMultiSelection
- #value: #doDeleteClassSelectorAll
- #enabled: #hasSelection
)
#(#MenuItem
+ #enabled: #hasSelection
#label: 'Delete all Versions of all Selected Methods '
+ #itemValue: #doDeleteClassSelectorAll
#translateLabel: true
#isVisible: #hasMultiSelection
- #value: #doDeleteClassSelectorAll
- #enabled: #hasSelection
)
#(#MenuItem
#label: '-'
)
#(#MenuItem
+ #enabled: #hasSingleSelection
#label: 'Compare with Current'
+ #itemValue: #doCompare
#translateLabel: true
- #value: #doCompare
- #enabled: #hasSingleSelection
)
#(#MenuItem
#label: '-'
)
#(#MenuItem
+ #enabled: #hasSelection
#label: 'Make Change a Patch'
+ #itemValue: #doMakePatch
#translateLabel: true
- #value: #doMakePatch
- #enabled: #hasSelection
)
)
nil
@@ -442,90 +448,90 @@
#(
#(#MenuItem
#label: 'Class...'
+ #itemValue: #findClass
#translateLabel: true
- #value: #findClass
)
#(#MenuItem
+ #enabled: #hasSelection
#label: 'Previous for Class'
+ #itemValue: #findPreviousForClass
#translateLabel: true
- #value: #findPreviousForClass
- #enabled: #hasSelection
)
#(#MenuItem
+ #enabled: #hasSelection
#label: 'Next for Class'
+ #itemValue: #findNextForClass
#translateLabel: true
- #value: #findNextForClass
- #enabled: #hasSelection
)
#(#MenuItem
#label: '-'
)
#(#MenuItem
#label: 'Selector...'
+ #itemValue: #findSelector
#translateLabel: true
- #value: #findSelector
)
#(#MenuItem
+ #enabled: #hasSelection
#label: 'Previous for Selector'
+ #itemValue: #findPreviousForSelector
#translateLabel: true
- #value: #findPreviousForSelector
- #enabled: #hasSelection
)
#(#MenuItem
+ #enabled: #hasSelection
#label: 'Next for Selector'
+ #itemValue: #findNextForSelector
#translateLabel: true
- #value: #findNextForSelector
- #enabled: #hasSelection
)
#(#MenuItem
#label: '-'
)
#(#MenuItem
#label: 'String...'
+ #itemValue: #findString
#translateLabel: true
- #value: #findString
)
#(#MenuItem
+ #enabled: #hasSelection
#label: 'Previous with String'
+ #itemValue: #findPreviousForString
#translateLabel: true
- #value: #findPreviousForString
- #enabled: #hasSelection
)
#(#MenuItem
+ #enabled: #hasSelection
#label: 'Next with String'
+ #itemValue: #findNextForString
#translateLabel: true
- #value: #findNextForString
- #enabled: #hasSelection
)
#(#MenuItem
#label: '-'
)
#(#MenuItem
+ #enabled: #hasSelection
#label: 'Previous Difference'
+ #itemValue: #findPreviousDifference
#translateLabel: true
- #value: #findPreviousDifference
- #enabled: #hasSelection
)
#(#MenuItem
+ #enabled: #hasSelection
#label: 'Next Difference'
+ #itemValue: #findNextDifference
#translateLabel: true
- #value: #findNextDifference
- #enabled: #hasSelection
)
#(#MenuItem
#label: '-'
)
#(#MenuItem
+ #enabled: #hasSelection
#label: 'Previous Snapshot'
+ #itemValue: #findPreviousSnapshot
#translateLabel: true
- #value: #findPreviousSnapshot
- #enabled: #hasSelection
)
#(#MenuItem
+ #enabled: #hasSelection
#label: 'Next Snapshot'
+ #itemValue: #findNextSnapshot
#translateLabel: true
- #value: #findNextSnapshot
- #enabled: #hasSelection
)
)
nil
@@ -539,23 +545,23 @@
#(#Menu
#(
#(#MenuItem
+ #enabled: #hasSingleSelection
#label: 'Class'
+ #itemValue: #doBrowse
#translateLabel: true
- #value: #doBrowse
- #enabled: #hasSingleSelection
)
#(#MenuItem
#label: '-'
)
#(#MenuItem
#label: 'Senders...'
+ #itemValue: #doBrowseSenders
#translateLabel: true
- #value: #doBrowseSenders
)
#(#MenuItem
#label: 'Implementors...'
+ #itemValue: #doBrowseImplementors
#translateLabel: true
- #value: #doBrowseImplementors
)
)
nil
@@ -601,14 +607,14 @@
)
#(#MenuItem
#label: 'Apply into Package...'
+ #itemValue: #setEnforcedPackage
#translateLabel: true
- #value: #setEnforcedPackage
)
#(#MenuItem
+ #enabled: #applyNotInOriginalNameSpace
#label: 'Apply into NameSpace...'
+ #itemValue: #setEnforcedNameSpace
#translateLabel: true
- #value: #setEnforcedNameSpace
- #enabled: #applyNotInOriginalNameSpace
)
)
nil
@@ -624,8 +630,8 @@
#(
#(#MenuItem
#label: 'ChangesBrowser Documentation'
+ #itemValue: #openHTMLDocument:
#translateLabel: true
- #value: #openHTMLDocument:
#argument: 'tools/cbrowser/TOP.html'
)
#(#MenuItem
@@ -633,8 +639,8 @@
)
#(#MenuItem
#label: 'About ChangesBrowser...'
+ #itemValue: #openAboutThisApplication
#translateLabel: true
- #value: #openAboutThisApplication
)
)
nil
@@ -4795,6 +4801,16 @@
"Modified: / 28.1.1998 / 20:42:14 / cg"
!
+doDeleteFromBeginning
+ "delete all changes from 1 to the current"
+
+ self withSingleSelectedChangeDo:[:changeNr |
+ self deleteChangesFrom:1 to:changeNr.
+ self clearCodeView.
+ self autoSelectOrEnd:changeNr
+ ]
+!
+
doDeleteRest
"delete all changes from current to the end"
@@ -5471,5 +5487,5 @@
!ChangesBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.297 2003-05-09 21:46:00 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.298 2003-05-15 15:42:29 cg Exp $'
! !