--- 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!