--- a/ActiveHelp.st Tue Oct 29 11:26:12 2002 +0100
+++ b/ActiveHelp.st Tue Oct 29 12:41:13 2002 +0100
@@ -219,8 +219,8 @@
initialize
"set default delay & help-display times"
- ShowTime := 15.
- DelayTime := 2.
+ ShowTime := 10.
+ DelayTime := 0.4.
"
ActiveHelp initialize
@@ -334,23 +334,10 @@
!ActiveHelp methodsFor:'listening'!
buttonMotion:state x:x y:y view:aView
- "handle motion events - if the mousepointer left the
- previous helped view, hide the help"
+ "handle motion events - prepare to show help"
- Object errorSignal handle:[:ex |
- ex description infoPrintCR.
- ex suspendedContext fullPrintAll.
- ex return
- ] do:[
- (self interestedIn:aView) ifTrue:[
- self stopHelpDisplayProcess.
- self hideIfPointerLeft:aView.
- self initiateHelpFor:aView at:(x @ y).
- ].
- ].
+ self handleMouseIn:aView x:x y:y.
^ false
-
- "Modified: / 28.7.1998 / 02:51:51 / cg"
!
buttonPress:state x:x y:y view:view
@@ -372,9 +359,10 @@
!
pointerEnter:state x:x y:y view:aView
- "handle pointer entering a view; setup timeOut to show help"
+ "handle pointer entering a view; prepare to show help"
- ^ self buttonMotion:state x:x y:y view:aView
+ self handleMouseIn:aView x:x y:y.
+ ^ false
!
pointerLeave:state view:view
@@ -518,6 +506,23 @@
!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"
+
+ Object errorSignal handle:[:ex |
+ ex description infoPrintCR.
+ ex suspendedContext fullPrintAll.
+ ex return
+ ] do:[
+ (self interestedIn:aView) ifTrue:[
+ self stopHelpDisplayProcess.
+ self hideIfPointerLeft:aView.
+ self initiateHelpFor:aView at:(x @ y).
+ ].
+ ].
+!
+
hideHelp
"hide the help text - nothing done here"
!
@@ -540,8 +545,7 @@
re-negotiation of the displayed helpText
(for example in a menu, when the selection changes)"
- self
- initiateHelpFor:aView at:aPointOrNil now:false
+ self initiateHelpFor:aView at:aPointOrNil now:false
"Modified: 28.6.1997 / 14:45:57 / cg"
!
@@ -640,6 +644,7 @@
!ActiveHelp class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview2/ActiveHelp.st,v 1.47 2002-08-08 10:56:33 tm Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/ActiveHelp.st,v 1.48 2002-10-29 11:41:13 cg Exp $'
! !
+
ActiveHelp initialize!
--- a/FlyByHelp.st Tue Oct 29 11:26:12 2002 +0100
+++ b/FlyByHelp.st Tue Oct 29 12:41:13 2002 +0100
@@ -13,8 +13,8 @@
initialize
"set default delay & help-display times"
- ShowTime := 15.
- DelayTime := 0.5.
+ ShowTime := 10.
+ DelayTime := 0.4.
"
FlyByHelp initialize
@@ -219,7 +219,7 @@
dev := view graphicsDevice.
org := dev pointerPosition.
- org := org + (0@24).
+ org := org + (0@18"24").
(org x + v width) > dev width ifTrue:[
org := (org x - v width) @ org y
].
@@ -269,6 +269,7 @@
!FlyByHelp class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview2/FlyByHelp.st,v 1.6 2002-08-20 14:12:55 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/FlyByHelp.st,v 1.7 2002-10-29 11:41:10 cg Exp $'
! !
+
FlyByHelp initialize!