--- a/AbstractLauncherApplication.st	Sun Jul 18 09:59:22 1999 +0200
+++ b/AbstractLauncherApplication.st	Sun Jul 18 15:56:32 1999 +0200
@@ -1257,11 +1257,12 @@
 communicationsSettingsFor:requestor
     "open a dialog on communications settings"
 
-    |box check resources y 
+    |box check in resources y 
      hasRDoitServer 
      rDoitsEnabled rDoitLogging rDoitErrorLogging rDoitErrorDebugging 
      org_rDoitsEnabled org_rDoitLogging org_rDoitErrorLogging org_rDoitErrorDebugging 
      hasHTTPServer httpServerRunning org_httpServerRunning
+     httpServerFileRoot httpServerHomeURL
      osiACSEPresent osiROSEPresent osiCMISEPresent
      osiACSEErrorLogging osiACSEConnectionLogging osiACSEDataLogging
      osiROSEErrorLogging osiROSEResponseLogging osiROSEInvokationLogging
@@ -1295,11 +1296,15 @@
     hasHTTPServer := httpServerRunning := false.
     (hasHTTPServer := HTTPServer notNil) ifTrue:[
         HTTPServer isLoaded ifTrue:[
-            httpServerRunning := HTTPServer isRunning
+            httpServerRunning := HTTPServer isRunning.
+            httpServerFileRoot := HTTPServer fileRoot.
+            httpServerHomeURL := HTTPServer homeURL.
         ].
     ].
     org_httpServerRunning := httpServerRunning.
     httpServerRunning := httpServerRunning asValue.
+    httpServerFileRoot := httpServerFileRoot asValue.
+    httpServerHomeURL := httpServerHomeURL asValue.
 
     "/
     "/ osi settings ...
@@ -1369,22 +1374,32 @@
     hasHTTPServer ifFalse:[
         check disable
     ].
+    box leftIndent:20.
+    in := box 
+            addLabelledInputField:(resources string:'File Root:')
+            adjust:#right
+            on:httpServerFileRoot 
+            tabable:true
+            separateAtX:0.35.
+    in := box 
+            addLabelledInputField:(resources string:'Home URL:')
+            adjust:#right
+            on:httpServerHomeURL 
+            tabable:true
+            separateAtX:0.35.
 
     box addHorizontalLine.
 
     box addTextLabel:'OSI Protocols (addOn package)'.
 
-    y := box yPosition.
     check := box addCheckBox:(resources string:'Log OSI-ACSE errors') on:osiACSEErrorLogging.
     osiACSEPresent ifFalse:[
         check disable
     ].
-    y := box yPosition.
     check := box addCheckBox:(resources string:'Log OSI-ACSE connection') on:osiACSEConnectionLogging.
     osiACSEPresent ifFalse:[
         check disable
     ].
-    y := box yPosition.
     check := box addCheckBox:(resources string:'Log OSI-ACSE data xfers') on:osiACSEDataLogging.
     osiACSEPresent ifFalse:[
         check disable
@@ -1392,17 +1407,14 @@
 
     box addVerticalSpace.
 
-    y := box yPosition.
     check := box addCheckBox:(resources string:'Log OSI-ROSE errors') on:osiROSEErrorLogging.
     osiROSEPresent ifFalse:[
         check disable
     ].
-    y := box yPosition.
     check := box addCheckBox:(resources string:'Log OSI-ROSE invokations') on:osiROSEInvokationLogging.
     osiROSEPresent ifFalse:[
         check disable
     ].
-    y := box yPosition.
     check := box addCheckBox:(resources string:'Log OSI-ROSE responses') on:osiROSEResponseLogging.
     osiROSEPresent ifFalse:[
         check disable
@@ -1410,12 +1422,10 @@
 
     box addVerticalSpace.
 
-    y := box yPosition.
     check := box addCheckBox:(resources string:'Log OSI-CMISE errors') on:osiCMISEErrorLogging.
     osiCMISEPresent ifFalse:[
         check disable
     ].
-    y := box yPosition.
     check := box addCheckBox:(resources string:'Log OSI-CMISE messages') on:osiCMISEMessageLogging.
     osiCMISEPresent ifFalse:[
         check disable
@@ -1461,6 +1471,17 @@
         ].
         hasHTTPServer ifTrue:[
             httpServerRunning value ~~ org_httpServerRunning ifTrue:[
+                httpServerFileRoot := httpServerFileRoot value.
+                httpServerFileRoot size == 0 ifTrue:[
+                    httpServerFileRoot := nil
+                ].
+                HTTPServer fileRoot:httpServerFileRoot.
+
+                httpServerHomeURL := httpServerHomeURL value.
+                httpServerHomeURL size == 0 ifTrue:[
+                    httpServerHomeURL := nil
+                ].
+                HTTPServer homeURL:httpServerHomeURL.
                 httpServerRunning value ifTrue:[
                     HTTPServer startServer
                 ] ifFalse:[
@@ -4704,5 +4725,5 @@
 !AbstractLauncherApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.59 1999-07-18 07:59:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.60 1999-07-18 13:56:32 cg Exp $'
 ! !