--- a/AbstractLauncherApplication.st	Tue Jul 06 11:29:09 1999 +0200
+++ b/AbstractLauncherApplication.st	Tue Jul 06 11:43:33 1999 +0200
@@ -3674,7 +3674,8 @@
 toolSettingsFor:requestor
     "open a dialog on tool settings"
 
-    |box resources useNewInspector useNewChangesBrowser currentUserPrefs|
+    |box resources currentUserPrefs
+     useNewInspector useNewChangesBrowser showClockInLauncher showClock launcher|
 
     currentUserPrefs := UserPreferences current.
 
@@ -3685,6 +3686,7 @@
     "/
     useNewInspector := currentUserPrefs useNewInspector asValue.
     useNewChangesBrowser := currentUserPrefs useNewChangesBrowser asValue.
+    showClockInLauncher := currentUserPrefs showClockInLauncher asValue.
 
     "/
     "/ create a box on those values ...
@@ -3696,11 +3698,13 @@
 
     box addCheckBox:(resources string:'Use the new Changes Browser') on:useNewChangesBrowser.
     box addHorizontalLine.
-    box addCheckBox:(resources string:'Use hierarchical inspector') on:useNewInspector.
+    box addCheckBox:(resources string:'Use Hierarchical Inspector') on:useNewInspector.
+    box addHorizontalLine.
+    box addCheckBox:(resources string:'Show Clock in Launcher') on:showClockInLauncher.
 
     box 
-	addHelpButtonFor:'Launcher/toolSettings.html';
-	addAbortAndOkButtons.
+        addHelpButtonFor:'Launcher/toolSettings.html';
+        addAbortAndOkButtons.
 
     "/
     "/ show the box ...
@@ -3711,13 +3715,27 @@
     "/ update system settings
     "/
     box accepted ifTrue:[
-	currentUserPrefs useNewInspector:useNewInspector value.
-	currentUserPrefs useNewChangesBrowser:useNewChangesBrowser value.
-	useNewInspector value ifTrue:[
-	    Inspector := NewInspector::InspectorView
-	] ifFalse:[
-	    Inspector := InspectorView
-	].
+        currentUserPrefs useNewInspector:useNewInspector value.
+        currentUserPrefs useNewChangesBrowser:useNewChangesBrowser value.
+
+        showClock := showClockInLauncher value.
+        currentUserPrefs showClockInLauncher ~= showClock ifTrue:[
+            currentUserPrefs showClockInLauncher:showClock.
+            launcher := Transcript application.
+            (launcher isKindOf:ToolApplicationModel) ifTrue:[
+                showClock ifTrue:[
+                    launcher startClock
+                ] ifFalse:[
+                    launcher stopClock
+                ]
+            ]
+        ].
+
+        useNewInspector value ifTrue:[
+            Inspector := NewInspector::InspectorView
+        ] ifFalse:[
+            Inspector := InspectorView
+        ].
     ].
     box destroy
 
@@ -4571,5 +4589,5 @@
 !AbstractLauncherApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.48 1999-06-29 11:48:02 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.49 1999-07-06 09:43:33 cg Exp $'
 ! !