--- a/ActiveHelp.st	Tue Jan 21 16:06:39 2020 +0100
+++ b/ActiveHelp.st	Thu Jan 23 17:47:56 2020 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1995 by Claus Gittinger
 	      All Rights Reserved
@@ -483,7 +485,7 @@
 "/        realViewUnderCursor := aView device viewFromPoint:(aView pointerPosition).
 "/        realP := aView device translatePoint:(x@y) fromView:aView toView:realViewUnderCursor.
 "/        self handleMouseIn:realViewUnderCursor x:realP x y:realP y.
-        Debugging ifTrue:[('%1: motion %3@%4 in %5' bindWith:self className with:aView with:x with:y) infoPrintCR].
+        DebuggingEvents ifTrue:[('%1: motion %3@%4 in %5' bindWith:self className with:aView with:x with:y) infoPrintCR].
         self handleMouseIn:aView x:x y:y.
     ].
     ^ false
@@ -499,7 +501,7 @@
 
     "/ Debugging := true. 
     "/ Debugging := false. 
-    Debugging ifTrue:[('%1: mouse in' bindWith:self className) infoPrintCR].
+    Debugging ifTrue:[('%1: mouse in %2@%3' bindWith:self className with:x with:y) infoPrintCR].
     (self interestedIn:aView) ifFalse:[
         Debugging ifTrue:[('%1: not interested in view (%2)' bindWith:self className with:Timestamp now) infoPrintCR].
         ^ self
@@ -530,7 +532,7 @@
         (self targetViewInitiatesHelpViaSensor
         and:[ (sensor := aView sensor) notNil ])
         ifTrue:[
-            Debugging ifTrue:[('%1 target shows help' bindWith:self className) infoPrintCR].
+            "/ Debugging ifTrue:[('%1 target shows help' bindWith:self className) infoPrintCR].
             sensor flushEventsFor:self withType:#initiateHelpFor:at:.
             sensor 
                 pushUserEvent:#initiateHelpFor:at: for:self 
@@ -976,9 +978,9 @@
      re-negotiation of the displayed helpText 
      (for example in a menu, when the selection changes)"
 
-    Debugging == true ifTrue:[
-        ('%1: initiateHelpFor: %2' bindWith:self className with:aView) infoPrintCR.
-    ].
+    "/ Debugging == true ifTrue:[
+    "/     ('%1: initiateHelpFor: %2' bindWith:self className with:aView) infoPrintCR.
+    "/ ].
 
     "/ ActiveHelp stop
     self class isActive ifFalse:[^ self].