The Trunk: Monticello-bf.655.mcz

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

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

Name: Monticello-bf.655
Author: bf
Time: 25 November 2016, 11:47:14.230808 am
UUID: 1ff590a7-e31f-479e-9404-9ab20cb77bf6
Ancestors: Monticello-cmm.654

Display timestamp and category in Editions list (similar to version history)

=============== Diff against Monticello-cmm.654 ===============

Item was added:
+ ----- Method: MCDefinition>>summaryAndRevision (in category 'printing') -----
+ summaryAndRevision
+ ^self summary!

Item was added:
+ ----- Method: MCMethodDefinition>>summaryAndRevision (in category 'printing') -----
+ summaryAndRevision
+ ^String streamContents:
+ [:s | s nextPutAll: self timeStamp;
+ space; nextPutAll: self summary;
+ nextPutAll: ' {'; nextPutAll: self category;
+ nextPut: $}]!

Item was added:
+ ----- Method: MCOperationsBrowser>>isViewingEditions (in category 'accessing') -----
+ isViewingEditions
+ ^self items size > 1 and:
+ [self items allSatisfy:
+ [:each | each definition isRevisionOf: self items first definition]]!

Item was changed:
  ----- Method: MCOperationsBrowser>>list (in category 'accessing') -----
  list
+ | showRevision |
+ showRevision := self isViewingEditions.
+ ^ self items collect: [:each | | label |
+ label := showRevision ifTrue: [each summaryAndRevision] ifFalse: [each summary].
- ^ self items collect: [:each |
  (self reverts includes: each)
+ ifFalse: [label]
- ifFalse: [each summary]
  ifTrue: [Text
+ string: '( ', label, ' )'
- string: '( ', each summary, ' )'
  attributes: (self userInterfaceTheme revertedOperationAttributes ifNil: [{TextEmphasis struckOut}])]]!

Item was added:
+ ----- Method: MCPatchOperation>>summaryAndRevision (in category 'accessing') -----
+ summaryAndRevision
+ ^ self definition summaryAndRevision, self summarySuffix!