FlyByHelp.st
changeset 1657 447db4aae998
parent 1596 bc7a430e6e41
child 1677 dc49ab70b762
--- 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!