--- a/ActiveHelp.st Mon Jun 11 10:33:45 2018 +0200
+++ b/ActiveHelp.st Wed Jun 13 20:44:25 2018 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
"
COPYRIGHT (c) 1995 by Claus Gittinger
All Rights Reserved
@@ -429,6 +427,51 @@
"Modified: / 11-06-2018 / 10:31:42 / Claus Gittinger"
!
+handleMouseIn:aView x:x y:y
+ "handle motion events - if the mousepointer left the
+ previous helped view, hide the help"
+
+ Debugging ifTrue:['mouse in' infoPrintCR].
+ (self interestedIn:aView) ifFalse:[
+ Debugging ifTrue:['not interested 0' infoPrintCR].
+ ^ self
+ ].
+
+ Error handle:[:ex |
+ InfoPrinting == true ifTrue:[
+ '---------------------' infoPrintCR.
+ ex description infoPrintCR.
+ ex suspendedContext fullPrintAll.
+ ].
+ ] do:[
+ |sensor|
+
+ "/ self stopHelpDisplayProcess.
+ Debugging ifTrue:['hideIf' infoPrintCR].
+ self hideIfPointerLeft:aView.
+
+ "/ check again, in case the stop/hide changed something...
+ (self interestedIn:aView) ifFalse:[
+ Debugging ifTrue:['not interested2' infoPrintCR].
+ ^ self
+ ].
+
+ "/ if there is a sensor, let the view do it itself (in its process)
+ (self targetViewInitiatesHelpViaSensor
+ and:[ (sensor := aView 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).
+ ]
+ ].
+
+ "Modified (format): / 08-06-2018 / 10:17:12 / Claus Gittinger"
+!
+
keyPress:key x:x y:y view:view
"unconditionally hide the help view"
@@ -594,51 +637,6 @@
!ActiveHelp methodsFor:'private'!
-handleMouseIn:aView x:x y:y
- "handle motion events - if the mousepointer left the
- previous helped view, hide the help"
-
- Debugging ifTrue:['mouse in' infoPrintCR].
- (self interestedIn:aView) ifFalse:[
- Debugging ifTrue:['not interested 0' infoPrintCR].
- ^ self
- ].
-
- Error handle:[:ex |
- InfoPrinting == true ifTrue:[
- '---------------------' infoPrintCR.
- ex description infoPrintCR.
- ex suspendedContext fullPrintAll.
- ].
- ] do:[
- |sensor|
-
- "/ self stopHelpDisplayProcess.
- Debugging ifTrue:['hideIf' infoPrintCR].
- self hideIfPointerLeft:aView.
-
- "/ check again, in case the stop/hide changed something...
- (self interestedIn:aView) ifFalse:[
- Debugging ifTrue:['not interested2' infoPrintCR].
- ^ self
- ].
-
- "/ if there is a sensor, let the view do it itself (in its process)
- (self targetViewInitiatesHelpViaSensor
- and:[ (sensor := aView 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).
- ]
- ].
-
- "Modified (format): / 08-06-2018 / 10:17:12 / Claus Gittinger"
-!
-
hideIfPointerLeft:aView
"hide help, if the pointer is not in aView"
!