--- a/Tools__ChangeList.st	Fri Apr 24 00:29:18 2015 +0100
+++ b/Tools__ChangeList.st	Sat Apr 25 22:36:26 2015 +0100
@@ -869,24 +869,24 @@
 handlesKeyPress:key inView:aView
     <resource: #keyboard (#Accept #Ctrls)>
 
-    (super handlesKeyPress:key inView:aView)
+    ^ (super handlesKeyPress:key inView:aView)
         or:[(key == #Accept or:[ key == #Ctrls]) 
                 and:[ listView scrolledView == aView ]]
 
     "Created: / 08-02-2012 / 14:43:11 / cg"
-    "Modified: / 10-04-2014 / 11:31:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 24-04-2015 / 01:08:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 keyPress:key x:x y:y view:aView
     (key == #Accept or:[ key == #Ctrls]) ifTrue:[
         self listMenuApply.
-        ^ self
+        ^ true
     ]. 
 
-    super keyPress:key x:x y:y view:aView
+    ^ super keyPress:key x:x y:y view:aView
 
     "Created: / 08-02-2012 / 14:42:18 / cg"
-    "Modified: / 10-04-2014 / 11:31:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 24-04-2015 / 01:08:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !ChangeList methodsFor:'generators'!
@@ -1226,6 +1226,38 @@
     "Created: / 05-12-2009 / 14:14:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
+redrawList
+    listView notNil ifTrue:[ 
+        listView columnView invalidate.
+    ].
+
+    "Created: / 24-04-2015 / 00:50:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 25-04-2015 / 22:14:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+redrawListItem: item
+    | index |
+
+    listView notNil ifTrue:[ 
+        index := listView list identityIndexOf: item.
+        index ~~ 0 ifTrue:[ 
+            listView columnView invalidateRowAt: index.  
+         ].
+    ]
+
+    "Created: / 25-04-2015 / 22:12:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+redrawListItemAt: index
+    listView notNil ifTrue:[ 
+        index ~~ 0 ifTrue:[ 
+            listView columnView invalidateRowAt: index.  
+         ].
+    ]
+
+    "Created: / 25-04-2015 / 22:17:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 updateList
     |inGenerator changeset firstLineShown oldSel newList newSel|
 
@@ -1519,6 +1551,9 @@
 
 removed:aBoolean
     change removed: aBoolean.
+    self redraw.
+
+    "Modified: / 25-04-2015 / 22:13:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 source
@@ -1642,6 +1677,15 @@
     "Modified (format): / 27-07-2012 / 21:25:34 / cg"
 ! !
 
+!ChangeList::ListEntry methodsFor:'redrawing'!
+
+redraw
+    "Trigger redraw of reciver."
+    application redrawListItem: self
+
+    "Created: / 25-04-2015 / 22:10:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !ChangeList class methodsFor:'documentation'!
 
 version
@@ -1652,6 +1696,11 @@
     ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeList.st,v 1.37 2015-02-26 01:06:39 cg Exp $'
 !
 
+version_HG
+
+    ^ '$Changeset: <not expanded> $'
+!
+
 version_SVN
     ^ '$Id: Tools__ChangeList.st,v 1.37 2015-02-26 01:06:39 cg Exp $'
 ! !