Marcel Taeumel uploaded a new version of Monticello to project The Trunk:
http://source.squeak.org/trunk/Monticello-mt.624.mcz==================== Summary ====================
Name: Monticello-mt.624
Author: mt
Time: 12 November 2015, 10:18:22.808 am
UUID: 542ab0ba-5adb-49f8-979b-d238acbb0b7e
Ancestors: Monticello-pre.623
After preparation from Patrick and suggestion from Chris, make ignored changes gray and stike-out only reverted changes.
We might want to get rid of the parenthesis?
=============== Diff against Monticello-pre.623 ===============
Item was changed:
----- Method: MCOperationsBrowser>>list (in category 'accessing') -----
list
^ self items collect: [:each |
(self reverts includes: each)
ifFalse: [each summary]
+ ifTrue: [Text string: '( ', each summary, ' )' attribute: TextEmphasis struckOut ]]!
- ifTrue: [Text string: '( ', each summary, ' )' attributes: { TextEmphasis italic . TextEmphasis struckOut } ]]!
Item was changed:
----- Method: MCSaveVersionDialog>>list (in category 'accessing') -----
list
+ ^ self items collect: [:each |
+ (self reverts includes: each)
+ ifFalse: [(self ignore includes: each)
+ ifFalse: [each summary]
+ ifTrue: [Text string: '( ', each summary, ' )' attribute: (TextColor color: Color gray)]]
+ ifTrue: [Text string: '( ', each summary, ' )' attribute: TextEmphasis struckOut ]]!
- ^ self items collect: [:each |
- (self reverts includes: each)
- ifFalse: [(self ignore includes: each)
- ifFalse: [each summary]
- ifTrue: [Text string: '( ', each summary, ' )' attribute: TextEmphasis struckOut]]
- ifTrue: [Text string: '( ', each summary, ' )' attributes: { TextEmphasis italic . TextEmphasis struckOut } ]]!