The Trunk: Monticello-cmm.659.mcz

Chris Muller uploaded a new version of Monticello to project The Trunk:
http://source.squeak.org/trunk/Monticello-cmm.659.mcz

==================== Summary ====================

Name: Monticello-cmm.659
Author: cmm
Time: 7 December 2016, 10:35:58.341395 pm
UUID: 0ac4585a-0c38-4f00-9d85-b0ee443b0631
Ancestors: Monticello-cmm.658

Fix menu activation on selected method or class which has no MC working copy defined.

=============== Diff against Monticello-cmm.658 ===============

Item was changed:
  ----- Method: Class>>workingCopy (in category '*monticello') -----
  workingCopy
+ "Answer the MCWorkingCopy in which I am defined."
+ ^ self packageInfo ifNotNil: [ : pi | pi workingCopy ]!
- ^ self packageInfo workingCopy!

Item was changed:
  ----- Method: MCDefinition>>mcModel (in category 'private') -----
  mcModel
  "Find my WorkingCopy, use the first mcModel-capable repository in its reposigoryGroup."
+ self repositoryGroup ifNotNil:
+ [ : group | group repositoriesDo:
+ [ : each | each mcModel ifNotNilDo:
+ [ : mcModel | ^ mcModel ] ] ].
- self repositoryGroup repositoriesDo:
- [ : each | each mcModel ifNotNilDo:
- [ : mcModel | ^ mcModel ] ].
  ^ nil!

Item was changed:
  ----- Method: MCDefinition>>repositoryGroup (in category 'repositories') -----
  repositoryGroup
  "Answer the MCRepositoryGroup from which this this object was loaded."
+ ^ self workingCopy ifNotNil: [ : wc | wc repositoryGroup ]!
- ^ self workingCopy repositoryGroup!

Item was changed:
  ----- Method: MethodReference>>workingCopy (in category '*monticello') -----
  workingCopy
  "Answer the MCWorkingCopy in which I am defined."
+ ^ self packageInfo ifNotNil: [ : pi | pi workingCopy ]!
- ^ self packageInfo workingCopy!