FlyByWindowInformation.st
changeset 2943 e7d181ac8f06
parent 2939 5e2872ba0b95
child 3058 d7792b7a50b7
--- 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$'
 ! !
+