--- a/UserPreferences.st	Fri Oct 01 21:50:42 2004 +0200
+++ b/UserPreferences.st	Tue Oct 19 09:15:44 2004 +0200
@@ -372,9 +372,9 @@
       nextPutLine:'Object infoPrinting: ' , (Object infoPrinting storeString) , '.';
       nextPutLine:'DeviceWorkstation errorPrinting: ' , (DeviceWorkstation errorPrinting storeString) , '.'.
 
-    FlyByHelp isActive ifTrue:[
-        s nextPutLine:'FlyByHelp start.'
-    ].
+"/    FlyByHelp isActive ifTrue:[
+"/        s nextPutLine:'FlyByHelp start.'
+"/    ].
 
     s cr.
     s nextPutLine:'"/'.
@@ -579,6 +579,24 @@
     ^ FileBrowser
 !
 
+flyByHelpActive
+
+    ^ self at:#flyByHelpActive ifAbsentPut:(FlyByHelp notNil and:[FlyByHelp isActive])
+!
+
+flyByHelpActive:aBoolean
+    aBoolean ~~ self flyByHelpActive ifTrue:[
+        self at:#flyByHelpActive put:aBoolean.
+        FlyByHelp notNil ifTrue:[
+            aBoolean ifTrue:[
+                FlyByHelp start.
+            ] ifFalse:[
+                FlyByHelp stop.
+            ].
+        ].
+    ].
+!
+
 inspectorClassSetting
     self useNewInspector ifTrue:[
         ^ (NewInspector::NewInspectorView ? InspectorView)
@@ -2300,5 +2318,5 @@
 !UserPreferences class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.148 2004-09-24 08:33:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.149 2004-10-19 07:15:44 cg Exp $'
 ! !