class: FlyByWindowInformation
authorClaus Gittinger <cg@exept.de>
Thu, 17 Jan 2013 11:46:29 +0100
changeset 2943 e7d181ac8f06
parent 2942 e5ab3d1211d7
child 2944 17933efd2f0f
class: FlyByWindowInformation changed: #keyPress:x:y:view:
FlyByWindowInformation.st
--- a/FlyByWindowInformation.st	Fri Jan 11 16:49:05 2013 +0100
+++ b/FlyByWindowInformation.st	Thu Jan 17 11:46:29 2013 +0100
@@ -83,6 +83,8 @@
 !
 
 keyPress:key x:x y:y view:aView
+    <resource: #keyboard (#Escape #Return)>
+
     |obj objToInspect objToBrowse lcKey|
 
     key == #Escape ifTrue:[
@@ -343,3 +345,4 @@
 version_CVS
     ^ '$Header$'
 ! !
+