--- a/ActiveHelp.st	Mon Jun 01 10:43:48 2009 +0200
+++ b/ActiveHelp.st	Sat Jun 06 10:55:37 2009 +0200
@@ -370,6 +370,39 @@
     "Modified: / 28.7.1998 / 02:52:00 / cg"
 !
 
+handleMouseIn:aView x:x y:y
+    "handle motion events - if the mousepointer left the 
+     previous helped view, hide the help"
+
+    Error handle:[:ex |
+        ex description infoPrintCR.
+        ex suspendedContext fullPrintAll.
+        ex return
+    ] do:[
+        |sensor|
+
+        (self interestedIn:aView) ifTrue:[
+            self stopHelpDisplayProcess.
+            self hideIfPointerLeft:aView.
+
+            (self interestedIn:aView) ifFalse:[
+                ^ self
+            ].
+
+            "/ if there is a sensor, let the view do it itself (in its process)
+            sensor := aView sensor.
+            sensor notNil ifTrue:[
+              sensor flushEventsFor:self withType:#initiateHelpFor:at:.
+              sensor 
+                pushUserEvent:#initiateHelpFor:at: for:self 
+                withArguments:(Array with:aView with:(x @ y)).
+            ] ifFalse:[
+                self initiateHelpFor:aView at:(x @ y).
+            ]
+        ].
+    ].
+!
+
 keyPress:key x:x y:y view:view
     "unconditionally hide the help view"
 
@@ -559,39 +592,6 @@
 
 !ActiveHelp methodsFor:'show & hide help'!
 
-handleMouseIn:aView x:x y:y
-    "handle motion events - if the mousepointer left the 
-     previous helped view, hide the help"
-
-    Error handle:[:ex |
-        ex description infoPrintCR.
-        ex suspendedContext fullPrintAll.
-        ex return
-    ] do:[
-        |sensor|
-
-        (self interestedIn:aView) ifTrue:[
-            self stopHelpDisplayProcess.
-            self hideIfPointerLeft:aView.
-
-            (self interestedIn:aView) ifFalse:[
-                ^ self
-            ].
-
-            "/ if there is a sensor, let the view do it itself (in its process)
-            sensor := aView sensor.
-            sensor notNil ifTrue:[
-              sensor flushEventsFor:self withType:#initiateHelpFor:at:.
-              sensor 
-                pushUserEvent:#initiateHelpFor:at: for:self 
-                withArguments:(Array with:aView with:(x @ y)).
-            ] ifFalse:[
-                self initiateHelpFor:aView at:(x @ y).
-            ]
-        ].
-    ].
-!
-
 hideHelp
     "hide the help text - nothing done here"
 !
@@ -721,7 +721,7 @@
 !ActiveHelp class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelp.st,v 1.62 2009-05-21 14:35:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelp.st,v 1.63 2009-06-06 08:55:37 cg Exp $'
 ! !
 
 ActiveHelp initialize!