--- 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:[