--- a/NewLauncher.st	Fri Jan 14 10:52:29 2005 +0100
+++ b/NewLauncher.st	Fri Jan 14 12:22:39 2005 +0100
@@ -3075,10 +3075,8 @@
 update:something with:aParameter from:changedObject
     "care for project changes & update my infoView"
 
-    (something == helpIsOn) ifTrue:[
-        self toggleActiveHelp:helpIsOn value
-    ].
-    ((something == #currentProject) or:[changedObject == Project]) ifTrue: [self updateInfo]
+    ((something == #currentProject) or:[changedObject == Project]) ifTrue: [self updateInfo].
+    super update:something with:aParameter from:changedObject.
 !
 
 updateInfo
@@ -3918,8 +3916,11 @@
 activeHelp
 
     helpIsOn isNil ifTrue:[
-        helpIsOn := FlyByHelp isActive asValue.
-        helpIsOn addDependent:self.
+        helpIsOn := PluggableAdaptor new
+                        getBlock:[:m | UserPreferences current flyByHelpActive] 
+                        putBlock:[:m :newValue | UserPreferences current flyByHelpActive:newValue] 
+                        updateBlock:nil.
+        "/ helpIsOn addDependent:self.
     ].
     ^ helpIsOn
 !
@@ -4038,5 +4039,5 @@
 !NewLauncher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.320 2004-12-14 15:00:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.321 2005-01-14 11:22:39 cg Exp $'
 ! !