--- a/ActiveHelp.st Wed Nov 10 12:31:24 2010 +0100
+++ b/ActiveHelp.st Wed Nov 10 12:31:28 2010 +0100
@@ -219,21 +219,6 @@
"
! !
-!ActiveHelp class methodsFor:'initialization'!
-
-initialize
- "set default delay & help-display times"
-
- ShowTime := 10.
- DelayTime := 0.4.
-
- "
- ActiveHelp initialize
- "
-
- "Modified: 27.4.1996 / 15:07:27 / cg"
-! !
-
!ActiveHelp class methodsFor:'queries'!
currentHelpListener
@@ -257,7 +242,12 @@
!
showTime
- ^ ShowTime ? 10
+ "set the number of seconds, a help messages is to be shown.
+ The default is 30 seconds."
+
+ ^ ShowTime ? 30
+
+ "Modified: / 10-11-2010 / 12:29:44 / cg"
! !
!ActiveHelp class methodsFor:'start & stop'!
@@ -339,7 +329,7 @@
showTime:numberOfSeconds
"set the number of seconds, a help messages is to be shown.
- The default is 10 seconds."
+ The default is 30 seconds."
ShowTime := numberOfSeconds
@@ -348,6 +338,8 @@
ActiveHelp showTime:99999
ActiveHelp showTime:30
"
+
+ "Modified: / 10-11-2010 / 12:29:40 / cg"
! !
!ActiveHelp methodsFor:'event handling'!
@@ -736,11 +728,9 @@
!ActiveHelp class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview2/ActiveHelp.st,v 1.66 2009-11-04 11:56:46 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/ActiveHelp.st,v 1.67 2010-11-10 11:31:28 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libview2/ActiveHelp.st,v 1.66 2009-11-04 11:56:46 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/ActiveHelp.st,v 1.67 2010-11-10 11:31:28 cg Exp $'
! !
-
-ActiveHelp initialize!