--- a/FlyByHelp.st	Tue Mar 10 16:15:20 2009 +0100
+++ b/FlyByHelp.st	Wed Mar 11 01:50:55 2009 +0100
@@ -82,9 +82,11 @@
 !
 
 keyPress:key x:x y:y view:aView
-    key == #Escape ifTrue:[
-        self hideHelp.
-        ^ true
+    aView == currentHelpView ifTrue:[
+        key == #Escape ifTrue:[
+            self hideHelp.
+            ^ true
+        ].
     ].
     ^ false
 !
@@ -321,7 +323,7 @@
 !FlyByHelp class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/FlyByHelp.st,v 1.24 2009-03-10 15:15:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/FlyByHelp.st,v 1.25 2009-03-11 00:50:55 cg Exp $'
 ! !
 
 FlyByHelp initialize!