ActiveHelp.st
changeset 3333 66ff26772ee3
parent 3323 a251378c32d8
child 3347 f314814a3105
--- a/ActiveHelp.st	Wed May 14 20:30:35 2014 +0200
+++ b/ActiveHelp.st	Fri May 16 09:49:59 2014 +0200
@@ -267,7 +267,8 @@
 
 showTime
     "set the number of seconds, a help messages is to be shown.
-     The default is 30 seconds."
+     The default is 30 seconds.
+     0 means: show forever (i.e. until mouse is moved)"
 
     ^ ShowTime ? 30
 
@@ -353,7 +354,8 @@
 
 showTime:numberOfSeconds
     "set the number of seconds, a help messages is to be shown.
-     The default is 30 seconds."
+     The default is 30 seconds.
+     0 means: show forever (i.e. until mouse is moved)"
 
     ShowTime := numberOfSeconds
 
@@ -637,6 +639,10 @@
 !
 
 showTime
+    "how long shall the help be shown;
+    0 means: forever (until user moves the mouse);
+     >0 means that number of seconds"
+
     ^ self class showTime
 ! !
 
@@ -771,7 +777,7 @@
 !ActiveHelp class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelp.st,v 1.77 2014-04-01 12:44:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelp.st,v 1.78 2014-05-16 07:49:59 cg Exp $'
 ! !