[squeak-dev] The Trunk: Monticello-bf.483.mcz
commits at source.squeak.org
commits at source.squeak.org
Tue Sep 27 22:14:19 UTC 2011
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!
More information about the Squeak-dev
mailing list
|