The Trunk: Monticello-nice.670.mcz

Nicolas Cellier uploaded a new version of Monticello to project The Trunk:
http://source.squeak.org/trunk/Monticello-nice.670.mcz

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

Name: Monticello-nice.670
Author: nice
Time: 10 June 2017, 5:49:59.546878 pm
UUID: 590e192e-d0a0-435a-a012-0c4859896286
Ancestors: Monticello-topa.669

Massively replace ifNotNilDo: by ifNotNil:
We don't need two different selectors to do a single thing.

=============== Diff against Monticello-topa.669 ===============

Item was changed:
  ----- Method: MCCodeTool>>copyReference (in category 'menus') -----
  copyReference
  "Copy the selected selector to the clipboard"
+ self selectedMessageName ifNotNil:
- self selectedMessageName ifNotNilDo:
  [ : selector | Clipboard clipboardText:
  (self selectedClassOrMetaClass
  ifNil: [ selector asString ]
  ifNotNilDo: [ : cls | (cls >> selector) reference ]) ]!

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 ifNotNil:
- [ : each | each mcModel ifNotNilDo:
  [ : mcModel | ^ mcModel ] ] ].
  ^ nil!

Item was changed:
  ----- Method: MCRepositoryInspector>>versionListMenu: (in category 'morphic ui') -----
  versionListMenu: aMenu
  1 to: self orderSpecs size do: [ :index |
  aMenu addUpdating: #orderString: target: self selector: #order: argumentList: { index } ].
  aMenu addLine.
  aMenu add: 'Changes against ...' action: [| ri |
  ri := aMenu defaultTarget.
  (UIManager default
  chooseFrom: ri versionList
  values: ri versionList
+ title: 'Select version to show patch against ...') ifNotNil: [:name |
- title: 'Select version to show patch against ...') ifNotNilDo: [:name |
  | versionName target base |
  versionName := MCVersionName on: name.
  target := ri repository versionNamed: ri versionInfo name.
  base := aMenu defaultTarget repository versionNamed: versionName.
  (MCPatchBrowser
  forPatch: (target snapshot patchRelativeToBase: base snapshot))
  showLabelled: 'Changes from ', versionName, ' to ', ri versionInfo name]].
  ^aMenu!

Item was changed:
  ----- Method: MCWorkingCopyBrowser>>addPackageRepository (in category 'actions') -----
  addPackageRepository
 
  workingCopy ifNotNil:
  [
  (self pickRepositorySatisfying: [ :repos | (workingCopy repositoryGroup includes: repos) not ])
+ ifNotNil:
- ifNotNilDo:
  [:repos |
  workingCopy repositoryGroup addRepository: repos.
  self repository: repos.
  self
  changed: #repositoryList;
  changed: #repositorySelection.
  self changedButtons]]!