The Trunk: Monticello-mt.624.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

The Trunk: Monticello-mt.624.mcz

commits-2
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 } ]]!