Patrick Rein uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-pre.700.mcz
==================== Summary ====================
Name: Monticello-pre.700 Author: pre Time: 3 September 2019, 5:12:25.650361 pm UUID: ff75f1eb-e3c7-2646-b2a0-d7a268675f70 Ancestors: Monticello-cmm.699
Refactors Monticello tools to directly use the ChangeSet class for accessing change sets.
=============== Diff against Monticello-cmm.699 ===============
Item was changed: ----- Method: MCCodeTool>>findMethodInChangeSets (in category 'menus') ----- findMethodInChangeSets "Find and open a changeSet containing the current method."
| aName | (aName := self selectedMessageName) ifNotNil: [ + ChangeSorter + browseChangeSetsWithClass: self selectedClassOrMetaClass + selector: aName]! - ChangeSorter browseChangeSetsWithClass: self selectedClassOrMetaClass - selector: aName]!
Item was changed: ----- Method: MCPackageLoader>>useChangeSetNamed:during: (in category 'private') ----- useChangeSetNamed: baseName during: aBlock "Use the named change set, or create one with the given name." | changeHolder oldChanges newChanges | changeHolder := (ChangeSet respondsTo: #newChanges:) ifTrue: [ChangeSet] ifFalse: [Smalltalk]. oldChanges := (ChangeSet respondsTo: #current) ifTrue: [ChangeSet current] ifFalse: [Smalltalk changes].
+ newChanges := (ChangeSet named: baseName) ifNil: [ ChangeSet new name: baseName ]. - newChanges := (ChangesOrganizer changeSetNamed: baseName) ifNil: [ ChangeSet new name: baseName ]. changeHolder newChanges: newChanges. aBlock ensure: [changeHolder newChanges: oldChanges]. !
squeak-dev@lists.squeakfoundation.org