--- a/AbstractLauncherApplication.st	Tue Sep 18 13:44:02 2001 +0200
+++ b/AbstractLauncherApplication.st	Tue Sep 18 14:09:29 2001 +0200
@@ -1566,9 +1566,9 @@
     "open a dialog on communications settings"
 
     |box check in resources y acceptChannel
-     hasRDoitServer 
+     hasRDoitServer rDoitServerPort
      rDoitsEnabled rDoitLogging rDoitErrorLogging rDoitErrorDebugging 
-     org_rDoitsEnabled org_rDoitLogging org_rDoitErrorLogging org_rDoitErrorDebugging 
+     org_rDoitsEnabled org_rDoitLogging org_rDoitErrorLogging org_rDoitErrorDebugging org_rDoitServerPort
 
      hasWindowMigrationServer windowMigrationAuthenticate windowMigrationPassword
      windowMigrationEnabled  
@@ -1619,13 +1619,16 @@
             rDoitLogging := RDoItServer isLogging.
             rDoitErrorLogging := RDoItServer isErrorLogging.
             rDoitErrorDebugging := RDoItServer isErrorCatching not.
+            rDoitServerPort := RDoItServer defaultPortNumber.
         ]
     ].
     org_rDoitsEnabled := rDoitsEnabled.
     org_rDoitLogging := rDoitLogging.
     org_rDoitErrorLogging := rDoitErrorLogging.
     org_rDoitErrorDebugging := rDoitErrorDebugging.
-
+    org_rDoitServerPort := rDoitServerPort.
+
+    rDoitServerPort := rDoitServerPort asValue.
     rDoitsEnabled := rDoitsEnabled asValue.
     rDoitLogging := rDoitLogging asValue.
     rDoitErrorLogging := rDoitErrorLogging asValue.
@@ -1749,6 +1752,18 @@
         check disable
     ].
     box leftIndent:20.
+
+    in := box 
+            addLabelledInputField:(resources string:'Port:')
+            adjust:#right
+            on:nil 
+            tabable:true
+            separateAtX:0.3.
+    in converter:(PrintConverter new initForNumber).
+    in model:rDoitServerPort.
+    in acceptChannel:acceptChannel.
+    in enableChannel:rDoitsEnabled.
+
     y := box yPosition.
     check := box addCheckBox:(resources string:'Log errors') on:rDoitErrorLogging.
     check width:0.4.
@@ -1958,8 +1973,10 @@
             (rDoitLogging value ~~ org_rDoitLogging
             or:[rDoitErrorDebugging value ~~ org_rDoitErrorDebugging
             or:[rDoitErrorLogging value ~~ org_rDoitErrorLogging
-            or:[rDoitsEnabled value ~~ org_rDoitsEnabled]]]) ifTrue:[
+            or:[rDoitsEnabled value ~~ org_rDoitsEnabled
+            or:[rDoitServerPort value ~~ org_rDoitServerPort]]]]) ifTrue:[
                 RDoItServer autoload.
+                RDoItServer defaultPortNumber:rDoitServerPort value.
                 RDoItServer logging:(rDoitLogging value).
                 RDoItServer errorLogging:(rDoitErrorLogging value).
                 RDoItServer errorCatching:(rDoitErrorDebugging value not).
@@ -6512,5 +6529,5 @@
 !AbstractLauncherApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.159 2001-09-17 12:54:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.160 2001-09-18 12:09:29 cg Exp $'
 ! !