--- a/Tools__ChangeList.st Thu Sep 29 14:39:34 2016 +0200
+++ b/Tools__ChangeList.st Thu Sep 29 14:40:15 2016 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"
COPYRIGHT (c) 2010 by Jan Vrany, SWING Research Group. CTU in Prague
All Rights Reserved
@@ -1539,37 +1541,7 @@
!ChangeList::ListEntry methodsFor:'displaying'!
displayLabel:aLabel h:lH on:aGC x:newX y:y h:h
- | list cx icon |
-
- list := self application.
- cx := x := newX.
- (list allowRemoveHolder value and:[list showRemovedHolder value]) ifTrue: [
- (icon := self iconRemoved) notNil ifTrue:[
- icon displayOn: aGC x: cx y: y + (h / 2) - (icon height / 2)
- ].
- cx := cx + 22."experimental value - this looks good"
- ].
- (icon := self iconDelta) notNil ifTrue:[
- icon displayOn: aGC x: cx y: y + (h / 2) - (icon height / 2)
- ].
- cx := cx + 16."12 + 2px gap"
-
- super displayLabel:aLabel h:lH on:aGC x:cx y:y h:h.
-
-"/ "Now, display additional columns..."
-"/ (list showColumn: #timestamp) ifTrue:[
-"/ cx := cx + (aLabel widthOn: aGC) + 5."px - padding"
-"/ colS := change timeOfChangeIfKnown notNil
-"/ ifTrue:[change timeOfChangeIfKnown printString]
-"/ ifFalse:['???'].
-"/ [ (colW := colS widthOn: aGC) > (aGC width - cx - 5) ] whileTrue:[
-"/ colS = '...' ifTrue:[ ^ self ].
-"/ colS := '...' , (colS copyFrom: 6).
-"/ ].
-"/ super displayLabel:colS h:lH on:aGC x: (aGC width - 5 - colW) y:y h:h.
-"/ ].
-
- "Modified: / 27-07-2012 / 17:13:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ self displayLabel:aLabel h:lH on:aGC x:newX y:y h:h isHighlightedAsSelected:false
!
displayLabel:aLabel h:lH on:aGC x:newX y:y h:h isHighlightedAsSelected:isHighlightedAsSelected