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