--- a/ActiveHelp.st	Tue Nov 26 04:28:43 2019 +0000
+++ b/ActiveHelp.st	Tue Dec 03 14:20:35 2019 +0100
@@ -236,6 +236,19 @@
 
 !ActiveHelp class methodsFor:'accessing'!
 
+currentHelpListener
+    "return the activeHelp listener if activeHelp is turned on, nil otherwise"
+
+    ^ TheOneAndOnlyHelpListener
+
+    "
+     ActiveHelp currentHelpListener
+     FlyByHelp currentHelpListener
+    "
+
+    "Created: 28.6.1997 / 13:59:44 / cg"
+!
+
 debugging
     ^ Debugging ? false
 
@@ -272,6 +285,53 @@
     "Created: / 11-06-2018 / 10:30:24 / Claus Gittinger"
 !
 
+delayTime
+    ^ DelayTime ? 0.4
+!
+
+delayTime:numberOfSeconds
+    "set the delay (the time, the cursor has to be in the view
+     before help is shown). The default is 2 seconds."
+
+    DelayTime := numberOfSeconds
+
+    "
+     ActiveHelp delayTime:0.5
+     ActiveHelp delayTime:2
+     ActiveHelp delayTime:10
+    "
+!
+
+showTime
+    "set the number of seconds, a help messages is to be shown.
+     The default is 15 seconds.
+     0 means: show forever (i.e. until mouse is moved)"
+
+    ^ ShowTime ? 15
+
+    "
+     self showTime
+    "
+
+    "Modified: / 10-11-2010 / 12:29:44 / cg"
+!
+
+showTime:numberOfSeconds
+    "set the number of seconds, a help messages is to be shown.
+     The default is defined in the getter.
+     0 means: show forever (i.e. until mouse is moved)"
+
+    ShowTime := numberOfSeconds
+
+    "
+     ActiveHelp showTime:10
+     ActiveHelp showTime:99999 
+     ActiveHelp showTime:30
+    "
+
+    "Modified: / 10-11-2010 / 12:29:40 / cg"
+!
+
 singleton
     ^ TheOneAndOnlyHelpListener
 
@@ -280,23 +340,6 @@
 
 !ActiveHelp class methodsFor:'queries'!
 
-currentHelpListener
-    "return the activeHelp listener if activeHelp is turned on, nil otherwise"
-
-    ^ TheOneAndOnlyHelpListener
-
-    "
-     ActiveHelp currentHelpListener
-     FlyByHelp currentHelpListener
-    "
-
-    "Created: 28.6.1997 / 13:59:44 / cg"
-!
-
-delayTime
-    ^ DelayTime ? 0.4
-!
-
 isActive
     "return true, if activeHelp is turned on"
 
@@ -313,16 +356,6 @@
     "
 
     "Modified: 27.4.1996 / 15:07:57 / cg"
-!
-
-showTime
-    "set the number of seconds, a help messages is to be shown.
-     The default is 45 seconds.
-     0 means: show forever (i.e. until mouse is moved)"
-
-    ^ ShowTime ? 45
-
-    "Modified: / 10-11-2010 / 12:29:44 / cg"
 ! !
 
 !ActiveHelp class methodsFor:'start & stop'!
@@ -432,37 +465,6 @@
     "
 ! !
 
-!ActiveHelp class methodsFor:'times'!
-
-delayTime:numberOfSeconds
-    "set the delay (the time, the cursor has to be in the view
-     before help is shown). The default is 2 seconds."
-
-    DelayTime := numberOfSeconds
-
-    "
-     ActiveHelp delayTime:0.5
-     ActiveHelp delayTime:2
-     ActiveHelp delayTime:10
-    "
-!
-
-showTime:numberOfSeconds
-    "set the number of seconds, a help messages is to be shown.
-     The default is 30 seconds.
-     0 means: show forever (i.e. until mouse is moved)"
-
-    ShowTime := numberOfSeconds
-
-    "
-     ActiveHelp showTime:10
-     ActiveHelp showTime:99999 
-     ActiveHelp showTime:30
-    "
-
-    "Modified: / 10-11-2010 / 12:29:40 / cg"
-! !
-
 !ActiveHelp methodsFor:'event handling'!
 
 buttonMotion:buttonAndModifierState x:x y:y view:aView