--- a/FlyByHelp.st	Sat Dec 08 02:11:18 2001 +0100
+++ b/FlyByHelp.st	Sat Dec 08 02:25:31 2001 +0100
@@ -34,20 +34,33 @@
     TheOneAndOnlyHelpListener listenForAll
 
     "
-     FlyByHelpHelp start
+     FlyByHelp start
+     FlyByHelp stop
+    "
+!
+
+stop
+    "stop activeHelp for all (except for individual apps)"
+
+    TheOneAndOnlyHelpListener notNil ifTrue:[
+        TheOneAndOnlyHelpListener unlistenAll.
+        TheOneAndOnlyHelpListener := nil.
+    ].
+
+    "
+     FlyByHelp start
+     FlyByHelp stop
     "
 ! !
 
 !FlyByHelp methodsFor:'listening'!
 
 buttonMotion:state x:x y:y view:aView
-'m1' printCR.
     aView == currentHelpView ifTrue:[^ self].
     super buttonMotion:state x:x y:y view:aView
 !
 
 pointerLeave:state view:aView
-'l1' printCR.
     aView == currentHelpView ifTrue:[^ self].
     super pointerLeave:state view:aView
 ! !
@@ -120,10 +133,7 @@
         ^ self
     ].
 
-'ih' printCR.
     text := self helpTextFor:aView at:aPointOrNil.
-lastHelpText printCR.
-text printCR.
     lastHelpText = text ifTrue:[
         ^ self
     ].
@@ -139,6 +149,8 @@
         ] ifFalse:[
             self showHelp:text for:aView
         ]
+    ] ifFalse:[
+        self hideHelp
     ].
 !
 
@@ -159,8 +171,6 @@
 
     |p|
 
-Time now print.
-' h' printCR.
     lastHelpText := nil.
     self stopHelpDisplayProcess.
 
@@ -257,6 +267,6 @@
 !FlyByHelp class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/FlyByHelp.st,v 1.2 2001-12-08 01:11:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/FlyByHelp.st,v 1.3 2001-12-08 01:25:31 cg Exp $'
 ! !
 FlyByHelp initialize!