# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1007773871 -3600
# Node ID f6948fc36460ef28baf419b2d5a3039abcd1b9e3
# Parent  210f37b16a099743af14decc16613a2df0576933
checkin from browser

diff -r 210f37b16a09 -r f6948fc36460 FlyByHelp.st
--- a/FlyByHelp.st	Sat Dec 08 01:53:24 2001 +0100
+++ b/FlyByHelp.st	Sat Dec 08 02:11:11 2001 +0100
@@ -38,6 +38,20 @@
     "
 ! !
 
+!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
+! !
+
 !FlyByHelp methodsFor:'private'!
 
 helpTextFromModel:aModel view:aView at:aPointOrNil 
@@ -106,7 +120,10 @@
         ^ self
     ].
 
+'ih' printCR.
     text := self helpTextFor:aView at:aPointOrNil.
+lastHelpText printCR.
+text printCR.
     lastHelpText = text ifTrue:[
         ^ self
     ].
@@ -142,6 +159,9 @@
 
     |p|
 
+Time now print.
+' h' printCR.
+    lastHelpText := nil.
     self stopHelpDisplayProcess.
 
     currentHelpView notNil ifTrue:[
@@ -189,7 +209,7 @@
 
     dev := view graphicsDevice.
     org := dev pointerPosition.
-    org := org + (10@10).
+    org := org + (0@24).
     (org x + v width) > dev width ifTrue:[
         org := (org x - v width) @ org y
     ].
@@ -237,6 +257,6 @@
 !FlyByHelp class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/FlyByHelp.st,v 1.1 2001-12-08 00:36:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/FlyByHelp.st,v 1.2 2001-12-08 01:11:11 cg Exp $'
 ! !
 FlyByHelp initialize!