--- a/AbstractSettingsApplication.st	Tue Mar 18 12:26:45 2003 +0100
+++ b/AbstractSettingsApplication.st	Tue Mar 18 12:27:18 2003 +0100
@@ -6715,7 +6715,7 @@
                                 #label: 'Remote doits enabled'
                                 #name: 'CheckBox1'
                                 #layout: #(#LayoutFrame 5 0 0 0 -5 1 22 0)
-                                #enableChannel: #hasRDoitServer
+                                #enableChannel: #hasRDoitServerClass
                                 #model: #rDoitsEnabled
                                 #translateLabel: true
                               )
@@ -6912,7 +6912,7 @@
 
     rDoitsEnabled isNil ifTrue:[
         rDoitsEnabled := true asValue.
-        rDoitsEnabled onChangeSend:#evaluateModified to:self
+        rDoitsEnabled onChangeSend:#rDoitsEnabledChanged to:self
     ].
     ^ rDoitsEnabled.
 ! !
@@ -6920,7 +6920,7 @@
 !AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'change & update'!
 
 rDoitsEnabledChanged
-
+    self evaluateModified.
     self rDoitsEnabled value ifTrue:[
         RDoItServer isLoaded ifFalse:[RDoItServer autoload].
         rDoitServerPort value isNil ifTrue:[
@@ -6966,6 +6966,10 @@
     ^ RDoItServer notNil and:[RDoItServer isLoaded]
 !
 
+hasRDoitServerClass
+    ^ RDoItServer notNil
+!
+
 hasUnsavedChanges
 
     (self hasRDoitServer and:[RDoItServer isLoaded]) ifTrue:[
@@ -10634,5 +10638,5 @@
 !AbstractSettingsApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.37 2003-03-13 08:44:45 penk Exp $'
-! !
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.38 2003-03-18 11:27:18 cg Exp $'
+! !