author | Claus Gittinger <cg@exept.de> |
Thu, 17 Jan 2013 11:46:29 +0100 | |
changeset 2943 | e7d181ac8f06 |
parent 2942 | e5ab3d1211d7 |
child 2944 | 17933efd2f0f |
--- 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$' ! ! +