--- a/FlyByHelp.st	Thu May 14 14:19:01 2009 +0200
+++ b/FlyByHelp.st	Thu May 14 15:59:29 2009 +0200
@@ -12,8 +12,7 @@
 "{ Package: 'stx:libview2' }"
 
 ActiveHelp subclass:#FlyByHelp
-	instanceVariableNames:'currentFrame currentView currentHelpView showProcess closeProcess
-		lastTime'
+	instanceVariableNames:'currentFrame currentView currentHelpView showProcess closeProcess'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'Interface-Help'
@@ -174,21 +173,13 @@
         ^ self
     ].
 
-    "/ avoid spending too much time in the flyByHelp processing code
-    "/ for one, do not perform it more often than once every 200 ms
     now := Timestamp now.
-    lastTime notNil ifTrue:[
-        (now millisecondDeltaFrom: lastTime) < 200 ifTrue:[
-            ^ self
-        ].
-    ].
-    lastTime := now.
 
-    "/ and also do not allow for more than 200 ms to be spent in the
+    "/ do not allow for more than 200 ms to be spent in the
     "/ helpText gatherer (the codeView parses the code for the variable under the cursor)
     [
         text := self helpTextFor:aView at:aPointOrNil.
-    ] valueWithWatchDog:[^ self ] afterMilliseconds:200.
+    ] valueWithWatchDog:[ ^ self ] afterMilliseconds:200.
 
     lastHelpText = text ifTrue:[
         self toolTipFollowsMouse ifFalse:[
@@ -202,11 +193,11 @@
             self stopHelpDisplayProcess.
             showProcess := 
                 [
-                        Delay waitForSeconds:delayTime.
-                        showProcess := nil.
-                        aView device anyButtonPressed ifFalse:[
-                            self showHelp:text for:aView
-                        ]
+                    Delay waitForSeconds:delayTime.
+                    showProcess := nil.
+                    aView device anyButtonPressed ifFalse:[
+                        self showHelp:text for:aView
+                    ]
                 ] forkAt:(Processor userSchedulingPriority + 1).
         ] ifFalse:[
             self showHelp:text for:aView
@@ -338,8 +329,8 @@
 stopHelpDisplayProcess
     |p|
 
-    showProcess notNil ifTrue:[
-        p := showProcess. showProcess := nil.
+    (p := showProcess) notNil ifTrue:[
+        showProcess := nil.
         p terminate.
     ].
 
@@ -349,7 +340,7 @@
 !FlyByHelp class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/FlyByHelp.st,v 1.28 2009-05-14 12:19:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/FlyByHelp.st,v 1.29 2009-05-14 13:59:29 cg Exp $'
 ! !
 
 FlyByHelp initialize!