AbstractLauncherApplication.st
changeset 5032 2a26da89dada
parent 5024 a52b4b0941b5
child 5033 2b52a33c7eee
--- a/AbstractLauncherApplication.st	Wed Jul 09 15:04:00 2003 +0200
+++ b/AbstractLauncherApplication.st	Wed Jul 09 15:11:35 2003 +0200
@@ -1910,7 +1910,7 @@
             rDoitLogging := RDoItServer isLogging.
             rDoitErrorLogging := RDoItServer isErrorLogging.
             rDoitErrorDebugging := RDoItServer isErrorCatching not.
-            rDoitServerPort := RDoItServer defaultPortNumber.
+            rDoitServerPort := RDoItServer defaultPortNumberOrPath.
         ]
     ].
     org_rDoitsEnabled := rDoitsEnabled.
@@ -2065,7 +2065,7 @@
     box leftIndent:20.
     rDoitsEnabled onChangeEvaluate:[ rDoitsEnabled value ifTrue:[
                                         rDoitServerPort value isNil ifTrue:[
-                                            rDoitServerPort value:(RDoItServer defaultPortNumber).
+                                            rDoitServerPort value:(RDoItServer defaultPortNumberOrPath).
                                         ]
                                      ]   
                                    ].
@@ -2318,7 +2318,7 @@
             or:[rDoitsEnabled value ~~ org_rDoitsEnabled
             or:[rDoitServerPort value ~~ org_rDoitServerPort]]]]) ifTrue:[
                 RDoItServer autoload.
-                RDoItServer defaultPortNumber:rDoitServerPort value.
+                RDoItServer defaultPortNumberOrPath:rDoitServerPort value.
                 RDoItServer logging:(rDoitLogging value).
                 RDoItServer errorLogging:(rDoitErrorLogging value).
                 RDoItServer errorCatching:(rDoitErrorDebugging value not).
@@ -6421,5 +6421,5 @@
 !AbstractLauncherApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.281 2003-07-09 11:35:22 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.282 2003-07-09 13:11:35 cg Exp $'
 ! !