class: FlyByHelp
changed:
#initiateHelpFor:at:now:
#showHelp:for:
changed the flyBy suppression slightly:
if the same text is to be shown again,
do not show it except if the help is for another
widget. (used to check for the text only previously)
--- a/FlyByHelp.st Tue Sep 03 17:23:02 2013 +0200
+++ b/FlyByHelp.st Tue Sep 03 17:23:55 2013 +0200
@@ -251,8 +251,10 @@
] valueWithWatchDog:[ ^ self ] afterMilliseconds:(self flyByHelpTimeoutMillis).
lastHelpText = text ifTrue:[
- self toolTipFollowsMouse ifFalse:[
- ^ self
+ lastHelpWidget == aView ifTrue:[
+ self toolTipFollowsMouse ifFalse:[
+ ^ self
+ ]
]
].
@@ -339,6 +341,7 @@
^ self
]
].
+ lastHelpWidget := view.
lastHelpText := aHelpText.
@@ -420,10 +423,10 @@
!FlyByHelp class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview2/FlyByHelp.st,v 1.55 2013-08-31 11:58:04 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/FlyByHelp.st,v 1.56 2013-09-03 15:23:55 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libview2/FlyByHelp.st,v 1.55 2013-08-31 11:58:04 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/FlyByHelp.st,v 1.56 2013-09-03 15:23:55 cg Exp $'
! !