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!
packages@lists.squeakfoundation.org