--- a/Tools__HierarchicalChangeList.st	Wed Feb 05 20:08:27 2014 +0100
+++ b/Tools__HierarchicalChangeList.st	Wed Feb 05 20:08:29 2014 +0100
@@ -150,8 +150,58 @@
     "Created: / 25-07-2009 / 23:34:54 / Jan Vrany <vranyj1@fel.cvut.cz>"
 ! !
 
+!HierarchicalChangeList methodsFor:'event processing'!
+
+buttonPress:button x:x y:y view:aView
+
+    | itemIndex item |
+
+    button ~= 1 ifTrue:[^aView buttonPress:button x:x y:y].
+
+    itemIndex := aView yVisibleToLineNr:y.
+    itemIndex isNil ifTrue:[^self].
+    itemIndex == 0 ifTrue:[^self].
+    itemIndex > aView list size ifTrue:[^self].
+    item := aView list at: itemIndex.
+
+    ((aView left + x) between: (item x) and: ((item x ? 0) + 16))
+        ifFalse:[^aView buttonPress:button x:x y:y].
+
+    item removed: item removed not.
+    aView invalidate
+
+    "Created: / 08-12-2009 / 14:12:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 18-11-2011 / 14:55:41 / cg"
+    "Modified: / 26-07-2012 / 18:21:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+handlesButtonPress:button inView:aView
+
+    ^listView scrolledView == aView
+
+    "Created: / 08-12-2009 / 14:08:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !HierarchicalChangeList methodsFor:'private'!
 
+listColumn: columnId visible: visible
+    "Nothing to do here"
+
+    "Created: / 26-07-2012 / 18:42:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+listColumnHide: columnId
+    "Nothing to do here"
+
+    "Created: / 26-07-2012 / 18:42:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+listColumnShow: columnId
+    "Nothing to do here"
+
+    "Created: / 26-07-2012 / 18:43:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 updateList
     |inGenerator changeset root|
 
@@ -168,9 +218,10 @@
 !HierarchicalChangeList class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__HierarchicalChangeList.st,v 1.7 2012-01-24 22:18:49 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__HierarchicalChangeList.st,v 1.8 2014-02-05 19:08:29 cg Exp $'
 !
 
 version_SVN
-    ^ '§Id: Tools__HierarchicalChangeList.st 7486 2009-10-26 22:06:24Z vranyj1 §'
+    ^ '$Id: Tools__HierarchicalChangeList.st,v 1.8 2014-02-05 19:08:29 cg Exp $'
 ! !
+