--- a/AbstractSettingsApplication.st	Wed Jul 09 15:04:00 2003 +0200
+++ b/AbstractSettingsApplication.st	Wed Jul 09 15:11:35 2003 +0200
@@ -152,7 +152,7 @@
 
 AbstractSettingsApplication subclass:#RDoItServerSettingsAppl
 	instanceVariableNames:'rDoitLogging rDoitsEnabled rDoitErrorLogging hasRDoitServer
-		rDoitErrorDebugging rDoitServerPort'
+		rDoitErrorDebugging rDoitServerPortOrPath'
 	classVariableNames:''
 	poolDictionaries:''
 	privateIn:AbstractSettingsApplication
@@ -3011,7 +3011,7 @@
 !AbstractSettingsApplication::HTTPStartServerSettingsApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.78 2003-07-09 13:04:00 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.79 2003-07-09 13:10:59 cg Exp $'
 ! !
 
 !AbstractSettingsApplication::HTTPStartServerSettingsApplication class methodsFor:'image specs'!
@@ -6907,7 +6907,7 @@
           #name: 'RDoIt Server Settings'
           #min: #(#Point 10 10)
           #max: #(#Point 1024 768)
-          #bounds: #(#Rectangle 16 46 616 596)
+          #bounds: #(#Rectangle 16 52 616 602)
         )
         #component: 
        #(#SpecCollection
@@ -6955,7 +6955,7 @@
                          #(#SpecCollection
                             #collection: #(
                              #(#LabelSpec
-                                #label: 'Port:'
+                                #label: 'Port/Path:'
                                 #name: 'Label2'
                                 #layout: #(#LayoutFrame 5 0 0 0 150 0 22 0)
                                 #translateLabel: true
@@ -6965,17 +6965,23 @@
                                 #name: 'EntryField1'
                                 #layout: #(#LayoutFrame 150 0 0 0 -5 1 22 0)
                                 #enableChannel: #rDoitsEnabled
-                                #model: #rDoitServerPort
-                                #type: #number
+                                #model: #rDoitServerPortOrPath
                                 #acceptOnReturn: true
                                 #acceptOnTab: true
                                 #acceptOnLostFocus: true
                                 #acceptOnPointerLeave: true
                               )
+                             #(#LabelSpec
+                                #label: 'Port-number for tcp socket; path-string for unix domain socket.'
+                                #name: 'Label3'
+                                #layout: #(#LayoutFrame 150 0 28 0 596 0 50 0)
+                                #translateLabel: true
+                                #adjust: #left
+                              )
                              )
                            
                           )
-                          #extent: #(#Point 600 25)
+                          #extent: #(#Point 600 72)
                         )
                        #(#ViewSpec
                           #name: 'Box3'
@@ -7052,7 +7058,7 @@
 
     |rDoits|
 
-    RDoItServer defaultPortNumber:self rDoitServerPort value.
+    RDoItServer defaultPortNumberOrPath:self rDoitServerPortOrPath value.
     RDoItServer logging:self rDoitLogging value.
     RDoItServer errorLogging:self rDoitErrorLogging value.
     RDoItServer errorCatching:(self rDoitErrorDebugging value not).
@@ -7084,13 +7090,13 @@
         self rDoitLogging value:RDoItServer isLogging.
         self rDoitErrorLogging value:RDoItServer isErrorLogging.
         self rDoitErrorDebugging value:RDoItServer isErrorCatching not.
-        self rDoitServerPort value:RDoItServer defaultPortNumber
+        self rDoitServerPortOrPath value:RDoItServer defaultPortNumberOrPath
     ] ifFalse:[
         self rDoitsEnabled value:false.
         self rDoitLogging value:false.
         self rDoitErrorLogging value:false.
         self rDoitErrorDebugging value:false.
-        self rDoitServerPort value:nil
+        self rDoitServerPortOrPath value:nil
     ].
     self modifiedChannel value:false
 ! !
@@ -7124,13 +7130,13 @@
     ^ rDoitLogging.
 !
 
-rDoitServerPort
-
-    rDoitServerPort isNil ifTrue:[
-        rDoitServerPort := ValueHolder new.
-        rDoitServerPort onChangeSend:#evaluateModified to:self
-    ].
-    ^ rDoitServerPort.
+rDoitServerPortOrPath
+
+    rDoitServerPortOrPath isNil ifTrue:[
+        rDoitServerPortOrPath := ValueHolder new.
+        rDoitServerPortOrPath onChangeSend:#evaluateModified to:self
+    ].
+    ^ rDoitServerPortOrPath.
 !
 
 rDoitsEnabled
@@ -7148,8 +7154,8 @@
     self evaluateModified.
     self rDoitsEnabled value ifTrue:[
         RDoItServer autoload.
-        rDoitServerPort value isNil ifTrue:[
-            rDoitServerPort value:(RDoItServer defaultPortNumber).
+        rDoitServerPortOrPath value isNil ifTrue:[
+            rDoitServerPortOrPath value:(RDoItServer defaultPortNumberOrPath).
         ]
     ].
 !
@@ -7200,7 +7206,7 @@
             (self rDoitLogging value ~= RDoItServer isLogging or:[
             self rDoitErrorLogging value ~= RDoItServer isErrorLogging or:[
             self rDoitErrorDebugging value ~= RDoItServer isErrorCatching not or:[
-            self rDoitServerPort value ~= RDoItServer defaultPortNumber]]])]]
+            self rDoitServerPortOrPath value ~= RDoItServer defaultPortNumberOrPath]]])]]
         )
     ].
     ^ false
@@ -10816,5 +10822,5 @@
 !AbstractSettingsApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.78 2003-07-09 13:04:00 penk Exp $'
-! !
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.79 2003-07-09 13:10:59 cg Exp $'
+! !