--- a/NewLauncher.st	Mon Oct 18 18:50:44 2004 +0200
+++ b/NewLauncher.st	Tue Oct 19 09:15:54 2004 +0200
@@ -4015,13 +4015,7 @@
 toggleFlyByHelp:aBoolean
     "turn on/off active help"
 
-    FlyByHelp notNil ifTrue:[
-        aBoolean ifTrue:[
-            FlyByHelp start.
-        ] ifFalse:[
-            FlyByHelp stop.
-        ].
-    ].
+    UserPreferences current flyByHelpActive:aBoolean.
 
     "Modified: / 18.8.1998 / 16:06:27 / cg"
 ! !
@@ -4132,5 +4126,5 @@
 !NewLauncher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.315 2004-10-14 09:52:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.316 2004-10-19 07:15:54 cg Exp $'
 ! !