--- a/ActiveHelp.st Wed Dec 03 15:37:02 2014 +0100
+++ b/ActiveHelp.st Wed Dec 03 22:02:30 2014 +0100
@@ -569,12 +569,6 @@
previous helped view, hide the help"
Debugging ifTrue:['mouse in' infoPrintCR].
- true "aView topView isActive" ifFalse:[
- Debugging ifTrue:[
- 'topview inactive' infoPrintCR
- ].
- ^ self
- ].
(self interestedIn:aView) ifFalse:[
Debugging ifTrue:['not interested 0' infoPrintCR].
^ self
@@ -636,6 +630,11 @@
aViewsTopView := aView topView.
UserPreferences current onlyShowTooltipsForActiveWindow ifTrue:[
+ aViewsTopView isActive ifFalse:[
+ Debugging ifTrue:[ 'topview inactive' infoPrintCR].
+ ^ false
+ ].
+
"/ if none of the view's components has focus...
(device := aViewsTopView graphicsDevice) notNil ifTrue:[
(deviceFocusView := device focusView) notNil ifTrue:[
@@ -816,7 +815,7 @@
!ActiveHelp class methodsFor:'documentation'!
version_CVS
- ^ '$Header: /cvs/stx/stx/libview2/ActiveHelp.st,v 1.81 2014-11-20 16:58:25 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/ActiveHelp.st,v 1.82 2014-12-03 21:02:30 cg Exp $'
! !