class: Tools::ChangeList
authorClaus Gittinger <cg@exept.de>
Thu, 17 Jan 2013 11:40:20 +0100
changeset 12108 efa871deeab7
parent 12107 9aa2298d243a
child 12109 88e819203b6a
class: Tools::ChangeList changed: #handlesKeyPress:inView: #keyPress:x:y:view:
Tools__ChangeList.st
--- a/Tools__ChangeList.st	Thu Jan 17 11:39:42 2013 +0100
+++ b/Tools__ChangeList.st	Thu Jan 17 11:40:20 2013 +0100
@@ -578,6 +578,8 @@
 !
 
 handlesKeyPress:key inView:aView
+    <resource: #keyboard (#Accept #Ctrls)>
+
     ^(key == #Accept or:[ key == #Ctrls]) 
         and:[ listView scrolledView == aView ]
 
@@ -585,6 +587,8 @@
 !
 
 keyPress:key x:x y:y view:aView
+    <resource: #keyboard (#Ctrls #Accept)>
+
     (key == #Accept or:[ key == #Ctrls]) ifTrue:[
         self listMenuApply.
         ^ self
@@ -1112,13 +1116,14 @@
 !ChangeList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeList.st,v 1.19 2012-09-10 12:16:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeList.st,v 1.20 2013-01-17 10:40:20 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeList.st,v 1.19 2012-09-10 12:16:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeList.st,v 1.20 2013-01-17 10:40:20 cg Exp $'
 !
 
 version_SVN
     ^ '§Id: Tools__ChangeList.st 7486 2009-10-26 22:06:24Z vranyj1 §'
 ! !
+