--- a/ActiveHelp.st	Fri Aug 10 11:39:39 2018 +0200
+++ b/ActiveHelp.st	Sat Aug 11 17:40:26 2018 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1995 by Claus Gittinger
 	      All Rights Reserved
@@ -675,6 +673,8 @@
 
     |app aViewsTopView device deviceFocusView|
 
+    "/ Debugging := true
+    "/ Debugging := false
     aView isNil ifTrue:[
         Debugging ifTrue:['nil view' infoPrintCR].
         ^ false
@@ -688,6 +688,11 @@
     aViewsTopView := aView topView.
 
     UserPreferences current onlyShowTooltipsForActiveWindow ifTrue:[
+        Debugging ifTrue:[
+            'TopView:' infoPrint. aViewsTopView infoPrint.
+            ' focus:' infoPrint. aViewsTopView graphicsDevice focusView infoPrint.
+            ' active:' infoPrint. aViewsTopView isActive infoPrintCR.
+        ].
         aViewsTopView isActive ifFalse:[            
             Debugging ifTrue:[ 
                 |graphicsDevice focusVw|
@@ -734,7 +739,7 @@
 
     "Created: / 26-10-1997 / 23:28:52 / cg"
     "Modified: / 08-08-1998 / 13:36:19 / cg"
-    "Modified: / 19-06-2018 / 12:58:39 / Claus Gittinger"
+    "Modified (format): / 11-08-2018 / 08:15:40 / Claus Gittinger"
 !
 
 targetViewInitiatesHelpViaSensor