The Trunk: Monticello-pre.700.mcz

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].
  !