Bert Freudenberg uploaded a new version of Monticello to project The Trunk:
http://source.squeak.org/trunk/Monticello-bf.483.mcz

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

Name: Monticello-bf.483
Author: bf
Time: 27 September 2011, 3:13:50.493 pm
UUID: 1df25b9a-8a34-4482-86e6-908ecce51a96
Ancestors: Monticello-ul.482

See individual commits from version history browser: add menu item for viewing changes relative to the parent version

=============== Diff against Monticello-ul.482 ===============

Item was changed:
  ----- Method: MCTool>>fillMenu:fromSpecs: (in category 'morphic ui') -----
  fillMenu: aMenu fromSpecs: anArray
  	anArray do:
+ 		[:spec |
+ 		aMenu add: spec first target: self selector: spec second argumentList: (spec allButFirst: 2)].
- 		[:pair |
- 		aMenu add: pair first target: self selector: pair second].
  	^ aMenu!

Item was changed:
  ----- Method: MCVersionHistoryBrowser>>getMenu: (in category 'morphic ui') -----
  getMenu: aMenu
+ 	index < 1 ifTrue: [^ aMenu].
- 	index < 2 ifTrue: [^ aMenu].
  	self fillMenu: aMenu fromSpecs: 
+ 		{{'view changes to ', ancestry name . #viewChanges}},
+ 		(self selectedInfo ancestors collect: [:parent |
+ 			{'view changes from ', parent name . #viewChanges: . parent}]),
+ 		#(('spawn history' spawnHistory)).
- 		(Array
- 			with: (Array with: 'view changes -> ', ancestry name with: #viewChanges)
- 			with: #('spawn history' spawnHistory)).
  	^ aMenu!

Item was changed:
  ----- Method: MCVersionHistoryBrowser>>viewChanges (in category 'morphic ui') -----
  viewChanges
+ 	self viewChanges: ancestry snapshot: self baseSnapshot
+ 		relativeTo: self selectedInfo snapshot: self selectedSnapshot!
- 	"Note that the patchLabel will be parsed in MCPatchBrowser>>installSelection, so don't translate it!!"
- 	| patch patchLabel |
- 	patchLabel := 'changes between {1} and {2}' format: { self selectedInfo name. ancestry name }.
- 	patch := self baseSnapshot patchRelativeToBase: self selectedSnapshot.
- 	(MCPatchBrowser forPatch: patch) label: patchLabel; show!

Item was added:
+ ----- Method: MCVersionHistoryBrowser>>viewChanges: (in category 'morphic ui') -----
+ viewChanges: otherInfo
+ 	self viewChanges: self selectedInfo snapshot: self selectedSnapshot
+ 		relativeTo:  otherInfo snapshot: (self snapshotForInfo: otherInfo)!

Item was added:
+ ----- Method: MCVersionHistoryBrowser>>viewChanges:snapshot:relativeTo:snapshot: (in category 'morphic ui') -----
+ viewChanges: ancestorInfo snapshot: ancestorSnapshot relativeTo: baseInfo snapshot: baseSnapshot
+ 	"Note that the patchLabel will be parsed in MCPatchBrowser>>installSelection, so don't translate it!!"
+ 	| patch patchLabel |
+ 	patchLabel := 'changes between {1} and {2}' format: { baseInfo name. ancestorInfo name }.
+ 	patch := ancestorSnapshot patchRelativeToBase: baseSnapshot.
+ 	(MCPatchBrowser forPatch: patch) label: patchLabel; show!