# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1571002162 -7200
# Node ID d2957953fdfaed36c657ea6afaf59af66be282cb
# Parent  8d24b880de6c8232420108ed1a462dbcb54bf47d
#TUNING by exept
class: ActiveHelp
changed: #buttonMotion:x:y:view:

diff -r 8d24b880de6c -r d2957953fdfa ActiveHelp.st
--- a/ActiveHelp.st	Wed Oct 02 02:23:01 2019 +0200
+++ b/ActiveHelp.st	Sun Oct 13 23:29:22 2019 +0200
@@ -18,7 +18,7 @@
 EventListener subclass:#ActiveHelp
 	instanceVariableNames:'lastHelpText listeningForAll applicationsOrTopViewsWithHelp
 		lastHelpWidget lastPointerPosition pointerPositionAtShowTime'
-	classVariableNames:'Debugging DebuggingHelpText DebuggingEvents'
+	classVariableNames:'Debugging DebuggingEvents DebuggingHelpText'
 	poolDictionaries:''
 	category:'Interface-Help'
 !
@@ -440,6 +440,8 @@
 
     |realViewUnderCursor realP|
 
+    (aView sensor hasButtonMotionEventFor:aView) ifTrue:[^ false].
+
     "/ DebuggingEvents := true
     "/ DebuggingEvents := false
     DebuggingEvents == true ifTrue:[