--- a/Launcher.st	Wed May 20 10:31:46 1998 +0200
+++ b/Launcher.st	Wed May 20 18:22:09 1998 +0200
@@ -4310,9 +4310,9 @@
 miscSettingsFor:requestor
     "open a dialog on misc other settings"
 
-    |box shadows takeFocus returnFocus
-     hostNameInLabel showAccelerators 
-     preemptive hostNameInLabelHolder st80EditingMode resources|
+    |box check shadows takeFocus returnFocus hasRDoitServer rDoitsEnabled
+     rDoitLogging rDoitErrorLogging hostNameInLabel showAccelerators 
+     preemptive hostNameInLabelHolder st80EditingMode resources y|
 
     resources := requestor class classResources.
 
@@ -4330,6 +4330,18 @@
 
     st80EditingMode := EditTextView st80Mode asValue.
 
+    rDoitsEnabled := rDoitLogging := rDoitErrorLogging := false.
+    (hasRDoitServer := RDoItServer notNil) ifTrue:[
+        RDoItServer isLoaded ifTrue:[
+            rDoitsEnabled := RDoItServer serverRunning.
+            rDoitLogging := RDoItServer isLogging.
+            rDoitErrorLogging := RDoItServer isErrorLogging.
+        ]
+    ].
+    rDoitsEnabled := rDoitsEnabled asValue.
+    rDoitLogging := rDoitLogging asValue.
+    rDoitErrorLogging := rDoitErrorLogging asValue.
+
     "/
     "/ create a box on those values ...
     "/
@@ -4348,7 +4360,30 @@
 
     box addHorizontalLine.
 
-    box addCheckBox:(resources string:'cursor has ST80 line ned behavior') on:st80EditingMode.
+    box addCheckBox:(resources string:'cursor has ST80 line end behavior') on:st80EditingMode.
+
+    box addHorizontalLine.
+
+    check := box addCheckBox:(resources string:'remote doits enabled') on:rDoitsEnabled.
+    hasRDoitServer ifFalse:[
+        check disable
+    ].
+    box leftIndent:20.
+    y := box yPosition.
+    check := box addCheckBox:(resources string:'log errors') on:rDoitErrorLogging.
+    check width:0.4.
+    check enableChannel:rDoitsEnabled.
+    hasRDoitServer ifFalse:[
+        check disable
+    ].
+    box yPosition:y.
+    check := box addCheckBox:(resources string:'log requests') on:rDoitLogging.
+    check left:0.4; width:0.5.
+    check enableChannel:rDoitsEnabled.
+    hasRDoitServer ifFalse:[
+        check disable
+    ].
+    box leftIndent:0.
 
     box 
         addHelpButtonFor:'Launcher/miscSettings.html';
@@ -4391,13 +4426,25 @@
                 Processor stopTimeSlicing
             ]
         ].
-        EditTextView st80Mode:(st80EditingMode value)
+        EditTextView st80Mode:(st80EditingMode value).
+
+        hasRDoitServer ifTrue:[
+            RDoItServer logging:(rDoitLogging value).
+            RDoItServer errorLogging:(rDoitErrorLogging value).
+            rDoitsEnabled := rDoitsEnabled value.
+            rDoitsEnabled ~~ RDoItServer serverRunning ifTrue:[
+                rDoitsEnabled ifFalse:[
+                    RDoItServer killAll
+                ] ifTrue:[
+                    RDoItServer start
+                ]
+            ].
+        ]
     ].
     box destroy
 
     "Modified: / 9.9.1996 / 22:43:36 / stefan"
-    "Modified: / 16.1.1998 / 22:56:57 / cg"
-
+    "Modified: / 20.5.1998 / 18:20:28 / cg"
 !
 
 printerSettingsFor:requestor
@@ -5445,5 +5492,5 @@
 !Launcher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.341 1998-05-16 12:38:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.342 1998-05-20 16:22:09 cg Exp $'
 ! !