--- 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!