--- a/FlyByHelp.st	Tue Jul 06 14:33:33 2004 +0200
+++ b/FlyByHelp.st	Tue Jul 13 12:51:22 2004 +0200
@@ -150,7 +150,9 @@
             showProcess := [
                     Delay waitForSeconds:self class delayTime.
                     showProcess := nil.
-                    self showHelp:text for:aView
+                    aView device anyButtonPressed ifFalse:[
+                        self showHelp:text for:aView
+                    ]
             ] forkAt:(Processor userSchedulingPriority + 1).
         ] ifFalse:[
             self showHelp:text for:aView
@@ -276,7 +278,7 @@
 !FlyByHelp class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/FlyByHelp.st,v 1.13 2004-03-16 14:03:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/FlyByHelp.st,v 1.14 2004-07-13 10:51:22 cg Exp $'
 ! !
 
 FlyByHelp initialize!