--- a/ActiveHelp.st	Tue Jan 20 15:07:01 2004 +0100
+++ b/ActiveHelp.st	Thu Jan 29 23:47:58 2004 +0100
@@ -15,11 +15,18 @@
 
 EventListener subclass:#ActiveHelp
 	instanceVariableNames:'lastHelpText listeningForAll applicationsOrTopViewsWithHelp'
-	classVariableNames:'DelayTime ShowTime TheOneAndOnlyHelpListener'
+	classVariableNames:''
 	poolDictionaries:''
 	category:'Interface-Help'
 !
 
+ActiveHelp class instanceVariableNames:'DelayTime ShowTime TheOneAndOnlyHelpListener'
+
+"
+ No other class instance variables are inherited by this class.
+"
+!
+
 !ActiveHelp class methodsFor:'documentation'!
 
 copyright
@@ -239,12 +246,20 @@
     "Created: 28.6.1997 / 13:59:44 / cg"
 !
 
+delayTime
+    ^ DelayTime
+!
+
 isActive
     "return true, if activeHelp is turned on"
 
     ^ TheOneAndOnlyHelpListener notNil
 
     "Modified: 27.4.1996 / 15:07:57 / cg"
+!
+
+showTime
+    ^ ShowTime
 ! !
 
 !ActiveHelp class methodsFor:'start & stop'!
@@ -644,7 +659,7 @@
 !ActiveHelp class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelp.st,v 1.50 2003-05-07 14:43:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelp.st,v 1.51 2004-01-29 22:47:55 ca Exp $'
 ! !
 
 ActiveHelp initialize!

--- a/FlyByHelp.st	Tue Jan 20 15:07:01 2004 +0100
+++ b/FlyByHelp.st	Thu Jan 29 23:47:58 2004 +0100
@@ -14,7 +14,7 @@
 
 ActiveHelp subclass:#FlyByHelp
 	instanceVariableNames:'currentFrame currentView currentHelpView showProcess closeProcess'
-	classVariableNames:'DelayTime ShowTime TheOneAndOnlyHelpListener'
+	classVariableNames:''
 	poolDictionaries:''
 	category:'Interface-Help'
 !
@@ -50,36 +50,6 @@
     "Modified: 27.4.1996 / 15:07:27 / cg"
 ! !
 
-!FlyByHelp class methodsFor:'start & stop'!
-
-start
-    "start activeHelp for all apps"
-
-    TheOneAndOnlyHelpListener isNil ifTrue:[
-        TheOneAndOnlyHelpListener := self new.
-    ].
-    TheOneAndOnlyHelpListener listenForAll
-
-    "
-     FlyByHelp start
-     FlyByHelp stop
-    "
-!
-
-stop
-    "stop activeHelp for all (except for individual apps)"
-
-    TheOneAndOnlyHelpListener notNil ifTrue:[
-        TheOneAndOnlyHelpListener unlistenAll.
-        TheOneAndOnlyHelpListener := nil.
-    ].
-
-    "
-     FlyByHelp start
-     FlyByHelp stop
-    "
-! !
-
 !FlyByHelp methodsFor:'listening'!
 
 buttonMotion:state x:x y:y view:aView
@@ -166,10 +136,10 @@
     ].
 
     text size > 0 ifTrue:[
-        (showItNow not and:[DelayTime > 0]) ifTrue:[
+        (showItNow not and:[self class delayTime > 0]) ifTrue:[
             self stopHelpDisplayProcess.
             showProcess := [
-                    Delay waitForSeconds:DelayTime.
+                    Delay waitForSeconds:self class delayTime.
                     showProcess := nil.
                     self showHelp:text for:aView
             ] forkAt:(Processor userSchedulingPriority + 1).
@@ -265,7 +235,7 @@
     currentView := view.
     closeProcess := [
             [
-                (Delay forSeconds:ShowTime) wait.
+                (Delay forSeconds:self class showTime) wait.
                 [
                     currentHelpView notNil ifTrue:[
                         currentHelpView destroy.
@@ -297,7 +267,7 @@
 !FlyByHelp class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/FlyByHelp.st,v 1.10 2003-08-29 19:34:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/FlyByHelp.st,v 1.11 2004-01-29 22:47:58 ca Exp $'
 ! !
 
 FlyByHelp initialize!