[squeak-dev] The Trunk: Monticello-mt.624.mcz

commits at source.squeak.org commits at source.squeak.org
Thu Nov 12 09:18:44 UTC 2015


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



More information about the Squeak-dev mailing list