--- a/FlyByHelp.st	Fri Mar 06 16:09:34 2009 +0100
+++ b/FlyByHelp.st	Tue Mar 10 16:15:20 2009 +0100
@@ -72,6 +72,23 @@
     ^ super buttonMotion:buttonAndModifierState x:x y:y view:aView
 !
 
+buttonPress:button x:x y:y view:aView
+    aView == currentHelpView ifTrue:[
+        self hideHelp.
+        ^ true
+    ].
+
+    ^ super buttonPress:button x:x y:y view:aView
+!
+
+keyPress:key x:x y:y view:aView
+    key == #Escape ifTrue:[
+        self hideHelp.
+        ^ true
+    ].
+    ^ false
+!
+
 mouseWheelMotion:state x:x y:y amount:amount deltaTime:dTime view:aView
     currentHelpView notNil ifTrue:[
         self handleMouseIn:aView x:x y:y.
@@ -80,8 +97,8 @@
 !
 
 pointerLeave:state view:aView
-    aView == currentHelpView ifTrue:[^ self].
-    super pointerLeave:state view:aView
+    aView == currentHelpView ifTrue:[^ true].
+    ^ super pointerLeave:state view:aView
 ! !
 
 !FlyByHelp methodsFor:'help texts'!
@@ -262,7 +279,6 @@
     ].
 
     v origin:org.
-"/    currentHelpView open.
     v realize.
     v enableButtonMotionEvents.
     v enableMotionEvents.
@@ -305,7 +321,7 @@
 !FlyByHelp class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/FlyByHelp.st,v 1.23 2008-07-12 15:30:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/FlyByHelp.st,v 1.24 2009-03-10 15:15:20 cg Exp $'
 ! !
 
 FlyByHelp initialize!