--- a/Tools__ChangeList.st	Sun Feb 01 00:42:10 2015 +0100
+++ b/Tools__ChangeList.st	Sun Feb 01 14:17:11 2015 +0100
@@ -1568,6 +1568,40 @@
     "Modified: / 27-07-2012 / 17:13:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
+displayLabel:aLabel h:lH on:aGC x:newX y:y h:h isHighlightedAsSelected:isHighlightedAsSelected
+    | 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 isHighlightedAsSelected:isHighlightedAsSelected.
+
+"/    "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>"
+!
+
 iconDelta
     | iconSelector |
 
@@ -1607,14 +1641,14 @@
 !ChangeList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeList.st,v 1.35 2014-09-05 10:31:05 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeList.st,v 1.36 2015-02-01 13:17:11 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeList.st,v 1.35 2014-09-05 10:31:05 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeList.st,v 1.36 2015-02-01 13:17:11 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: Tools__ChangeList.st,v 1.35 2014-09-05 10:31:05 vrany Exp $'
+    ^ '$Id: Tools__ChangeList.st,v 1.36 2015-02-01 13:17:11 cg Exp $'
 ! !