Christoph Thiede uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-ct.789.mcz
==================== Summary ====================
Name: Monticello-ct.789 Author: ct Time: 1 June 2023, 9:16:11.900127 pm UUID: 2d6fc220-50da-4b43-94b0-601b35ae8d5b Ancestors: Monticello-tpr.788
Merges mcAddAnythingToChangeSet.2.cs: Makes 'add (all) to current change set' in Monticello code tools capable of class and script definitions.
Revision: Uses separate 'change set' category for new selectors.
=============== Diff against Monticello-tpr.788 ===============
Item was added: + ----- Method: MCAddition>>addToChangeSet: (in category 'change sets') ----- + addToChangeSet: aChangeSet + + ^ self definition addToChangeSet: aChangeSet!
Item was added: + ----- Method: MCClassDefinition>>addRemovalToChangeSet: (in category 'change sets') ----- + addRemovalToChangeSet: aChangeSet + + aChangeSet noteRemovalOf: self className.!
Item was added: + ----- Method: MCClassDefinition>>addToChangeSet: (in category 'change sets') ----- + addToChangeSet: aChangeSet + + aChangeSet + addClass: self actualClass; + commentClass: self actualClass.!
Item was added: + ----- Method: MCDefinition>>addRemovalToChangeSet: (in category 'change sets') ----- + addRemovalToChangeSet: aChangeSet + + ^ self subclassResponsibility!
Item was added: + ----- Method: MCDefinition>>addToChangeSet: (in category 'change sets') ----- + addToChangeSet: aChangeSet + + ^ self subclassResponsibility!
Item was added: + ----- Method: MCMethodDefinition>>addRemovalToChangeSet: (in category 'change sets') ----- + addRemovalToChangeSet: aChangeSet + + aChangeSet removeSelector: self selector class: self actualClass priorMethod: nil lastMethodInfo: nil.!
Item was added: + ----- Method: MCMethodDefinition>>addToChangeSet: (in category 'change sets') ----- + addToChangeSet: aChangeSet + + aChangeSet adoptSelector: self selector forClass: self actualClass.!
Item was added: + ----- Method: MCModification>>addToChangeSet: (in category 'change sets') ----- + addToChangeSet: aChangeSet + + ^ self definition addToChangeSet: aChangeSet!
Item was changed: ----- Method: MCOperationsBrowser>>adoptMessageInCurrentChangeset (in category 'menus') ----- adoptMessageInCurrentChangeset
+ (selection ifNotNil: [{selection}] ifNil: [items]) + do: [:item | item addToChangeSet: ChangeSet current]. - selection ifNotNil: [^ super adoptMessageInCurrentChangeset]. - - items select: [:each | each definition isMethodDefinition] thenDo: [:item | - self forItem: item setClassAndSelectorIn: [:class :selector | - ((item isAddition or: [item isModification]) and: [class includesSelector: selector]) - ifTrue: [ChangeSet current adoptSelector: selector forClass: class]. - item isRemoval - ifTrue: [ChangeSet current removeSelector: selector class: class priorMethod: nil lastMethodInfo: nil]]]. self changed: #annotations.!
Item was changed: ----- Method: MCOperationsBrowser>>methodListMenu: (in category 'menus') ----- methodListMenu: aMenu selection ifNil: [items ifNotEmpty: [ aMenu addList: #( ('add all to current change set' adoptMessageInCurrentChangeset))]] ifNotNil: [aMenu addList: #( ('install' installSelection) ('revert (x)' revertSelection) ('browse origin' browseSelectionOrigin) -)]. self unchangedMethods ifNotEmpty: [aMenu addList: #( ('revert unchanged methods...' revertUnchangedMethods) ('filter out unchanged methods...' filterOutUnchangedMethods) -)]. super methodListMenu: aMenu. + self selectedMessageName ifNil: + [aMenu addList: #( + ('add to current change set' adoptMessageInCurrentChangeset))]. ^ aMenu!
Item was added: + ----- Method: MCPatchOperation>>addToChangeSet: (in category 'change sets') ----- + addToChangeSet: aChangeSet + + ^ self subclassResponsibility!
Item was added: + ----- Method: MCPatchOperation>>applyTo: (in category 'applying') ----- + applyTo: anObject + + ^ self subclassResponsibility!
Item was added: + ----- Method: MCPostscriptDefinition>>addToChangeSet: (in category 'change sets') ----- + addToChangeSet: aChangeSet + + super addToChangeSet: aChangeSet. + aChangeSet + assurePostscriptExists; + postscript: aChangeSet postscript , ('"{1}"{2}.' withCRs format: {self packageName. self script}).!
Item was added: + ----- Method: MCPreambleDefinition>>addToChangeSet: (in category 'change sets') ----- + addToChangeSet: aChangeSet + + super addToChangeSet: aChangeSet. + aChangeSet + assurePreambleExists; + preamble: aChangeSet preamble , ('\"{1}"{2}.' withCRs format: {self packageName. self script}).!
Item was added: + ----- Method: MCRemoval>>addToChangeSet: (in category 'change sets') ----- + addToChangeSet: aChangeSet + + ^ self definition addRemovalToChangeSet: aChangeSet!
Item was changed: + ----- Method: MCRemoval>>applyTo: (in category 'applying') ----- - ----- Method: MCRemoval>>applyTo: (in category 'accessing') ----- applyTo: anObject anObject removeDefinition: definition!
Item was changed: ----- Method: MCSaveVersionDialog>>adoptMessageInCurrentChangeset (in category 'menus') ----- adoptMessageInCurrentChangeset
selection ifNotNil: [^ super adoptMessageInCurrentChangeset]. + (items copyWithoutAll: ignore) do: [:item | item addToChangeSet: ChangeSet current]. - (items copyWithoutAll: ignore) select: [:each | each definition isMethodDefinition] thenDo: [:item | - self forItem: item setClassAndSelectorIn: [:class :selector | - ((item isAddition or: [item isModification]) and: [class includesSelector: selector]) - ifTrue: [ChangeSet current adoptSelector: selector forClass: class]. - item isRemoval - ifTrue: [ChangeSet current removeSelector: selector class: class priorMethod: nil lastMethodInfo: nil]]]. self changed: #annotations.!
Item was added: + ----- Method: MCScriptDefinition>>addRemovalToChangeSet: (in category 'change sets') ----- + addRemovalToChangeSet: aChangeSet + + ^ self addToChangeSet: aChangeSet script: ''!
Item was added: + ----- Method: MCScriptDefinition>>addToChangeSet: (in category 'change sets') ----- + addToChangeSet: aChangeSet + + ^ self addToChangeSet: aChangeSet script: self script!
Item was added: + ----- Method: MCScriptDefinition>>addToChangeSet:script: (in category 'change sets') ----- + addToChangeSet: aChangeSet script: aString + + aChangeSet + assurePostscriptExists; + postscript: aChangeSet postscript , ('<n><n>(PackageInfo named: <1p>) <2s>: <3p>.' expandMacrosWithArguments: {self packageName. self scriptSelector. aString}).!
packages@lists.squeakfoundation.org