--- a/UserPreferences.st	Tue Jul 06 11:28:37 1999 +0200
+++ b/UserPreferences.st	Tue Jul 06 11:31:57 1999 +0200
@@ -200,6 +200,22 @@
     "Modified: / 11.9.1998 / 00:09:59 / cg"
 !
 
+showClockInLauncher:aBooleanOrNil
+    "set/clear the flag which controls if a clock is shown in the launcher"
+
+    ^ self at:#showClockInLauncher put:aBooleanOrNil
+
+    "
+     UserPreferences current showClockInLauncher:false.
+     NewLauncher open.   
+
+     UserPreferences current showClockInLauncher:true.
+     NewLauncher open.   
+    "
+
+    "Modified: / 11.9.1998 / 00:09:59 / cg"
+!
+
 syntaxColoring
     "return the flag which controls syntax coloring (in the browsers)"
 
@@ -800,6 +816,6 @@
 !UserPreferences class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.36 1999-07-06 09:28:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.37 1999-07-06 09:31:57 cg Exp $'
 ! !
 UserPreferences initialize!