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$' ! ! +