The Trunk: Monticello-mva.661.mcz

David T. Lewis uploaded a new version of Monticello to project The Trunk:
http://source.squeak.org/trunk/Monticello-mva.661.mcz

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

Name: Monticello-mva.661
Author: mva
Time: 6 February 2017, 4:59:07.409774 pm
UUID: 8d0b5971-0f1a-421d-a135-872f63b3d571
Ancestors: Monticello-dtl.660

use versionList for 'Changes against ...'

=============== Diff against Monticello-dtl.660 ===============

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
- chooseFrom: ri allVersionNames
- values: ri allVersionNames
  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!