Bert Freudenberg uploaded a new version of Monticello to project The Trunk:
http://source.squeak.org/trunk/Monticello-bf.493.mcz==================== Summary ====================
Name: Monticello-bf.493
Author: bf
Time: 31 January 2012, 11:37:31.927 am
UUID: bab611f2-407f-4a06-9168-5cc5180db0fc
Ancestors: Monticello-cmm.492
use more sensible ordering when showing version history
=============== Diff against Monticello-cmm.492 ===============
Item was changed:
----- Method: MCAncestry>>topologicalAncestors (in category 'ancestry') -----
topologicalAncestors
+ "Answer all ancestors in topological order (that is, children always come before all their ancestors). If multiple such orderings are possible, arbitrate by time stamp."
-
^ Array streamContents:
+ [:s | | frontier next |
- [:s | | frontier f |
frontier := MCFrontier frontierOn: self.
+ next := self.
+ [ frontier remove: next.
+ s nextPut: next.
+ next := frontier frontier detectMax: [:v | v timeStamp].
+ next isNil] whileFalse]!
- [f := frontier frontier.
- s nextPutAll: f.
- frontier removeAll: f.
- f isEmpty] whileFalse] !
Item was changed:
----- Method: MCVersionHistoryBrowser>>infos (in category 'accessing') -----
infos
+ ^ infos ifNil: [infos := ancestry topologicalAncestors]!
- ^ infos ifNil: [infos := ancestry withBreadthFirstAncestors]!