--- a/Tools__ChangeList.st	Thu Apr 10 11:56:57 2014 +0200
+++ b/Tools__ChangeList.st	Thu Apr 10 11:59:53 2014 +0200
@@ -854,19 +854,24 @@
 handlesKeyPress:key inView:aView
     <resource: #keyboard (#Accept #Ctrls)>
 
-    ^(key == #Accept or:[ key == #Ctrls]) 
-        and:[ listView scrolledView == 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>"
 !
 
 keyPress:key x:x y:y view:aView
     (key == #Accept or:[ key == #Ctrls]) ifTrue:[
-	self listMenuApply.
-	^ self
-    ].
+        self listMenuApply.
+        ^ self
+    ]. 
+
+    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>"
 ! !
 
 !ChangeList methodsFor:'generators'!
@@ -892,9 +897,10 @@
 postBuildListView: aView
 
     super postBuildListView: aView.
-    listView scrolledView delegate: self.
+    aView scrolledView delegate: self.
 
     "Created: / 29-11-2011 / 14:56:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 10-04-2014 / 11:29:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !ChangeList methodsFor:'initialization'!
@@ -1586,14 +1592,14 @@
 !ChangeList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeList.st,v 1.32 2014-02-25 10:42:12 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeList.st,v 1.33 2014-04-10 09:59:53 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeList.st,v 1.32 2014-02-25 10:42:12 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeList.st,v 1.33 2014-04-10 09:59:53 vrany Exp $'
 !
 
 version_SVN
-    ^ '$Id: Tools__ChangeList.st,v 1.32 2014-02-25 10:42:12 vrany Exp $'
+    ^ '$Id: Tools__ChangeList.st,v 1.33 2014-04-10 09:59:53 vrany Exp $'
 ! !