--- a/AbstractLauncherApplication.st	Thu Jan 20 18:29:58 2000 +0100
+++ b/AbstractLauncherApplication.st	Thu Jan 20 18:30:17 2000 +0100
@@ -1310,9 +1310,9 @@
      org_rDoitsEnabled org_rDoitLogging org_rDoitErrorLogging org_rDoitErrorDebugging 
 
      hasHTTPServer httpServerRunning httpServerFileRoot httpServerHomeURL
-     httpServerPort hasSwiki swikiEnabled swikiRoot
+     httpServerPort httpServerLogFile hasSwiki swikiEnabled swikiRoot
      org_httpServerRunning org_httpServerFileRoot org_httpServerHomeURL
-     org_httpServerPort org_swikiRoot org_swikiEnabled
+     org_httpServerPort org_swikiRoot org_swikiEnabled org_httpServerLogFile
 
      osiACSEPresent osiROSEPresent osiCMISEPresent
      osiACSEErrorLogging osiACSEConnectionLogging osiACSEDataLogging
@@ -1353,6 +1353,7 @@
             httpServerFileRoot := HTTPServer fileRoot.
             httpServerHomeURL := HTTPServer homeURL.
             httpServerPort := HTTPServer defaultPort.
+            httpServerLogFile := HTTPServer defaultLogFile.
         ].
     ].
     org_httpServerRunning := httpServerRunning.
@@ -1363,6 +1364,8 @@
     httpServerHomeURL := httpServerHomeURL asValue.
     org_httpServerPort := httpServerPort.
     httpServerPort := httpServerPort asValue.
+    org_httpServerLogFile := httpServerLogFile.
+    httpServerLogFile := httpServerLogFile asValue.
 
     httpServerRunning 
         onChangeSend:#value 
@@ -1370,6 +1373,7 @@
             httpServerFileRoot value:(HTTPServer fileRoot).
             httpServerHomeURL value:(HTTPServer homeURL).
             httpServerPort value:(HTTPServer defaultPort).
+            httpServerLogFile value:(HTTPServer defaultLogFile)
         ].
 
     hasSwiki := false.
@@ -1475,6 +1479,15 @@
     in enableChannel:httpServerRunning.
 
     in := box 
+            addLabelledInputField:(resources string:'Log File:')
+            adjust:#right
+            on:httpServerLogFile 
+            tabable:true
+            separateAtX:0.3.
+    in acceptChannel:acceptChannel.
+    in enableChannel:httpServerRunning.
+
+    in := box 
             addLabelledInputField:(resources string:'File Root:')
             adjust:#right
             on:httpServerFileRoot 
@@ -1609,6 +1622,14 @@
                 HTTPServer fileRoot:httpServerFileRoot.
             ].
 
+            httpServerLogFile := httpServerLogFile value.
+            httpServerLogFile size == 0 ifTrue:[
+                httpServerLogFile := nil
+            ].
+            org_httpServerLogFile ~= httpServerLogFile ifTrue:[
+                HTTPServer defaultLogFile:httpServerLogFile.
+            ].
+
             httpServerHomeURL := httpServerHomeURL value.
             httpServerHomeURL size == 0 ifTrue:[
                 httpServerHomeURL := nil
@@ -4971,5 +4992,5 @@
 !AbstractLauncherApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.93 2000-01-17 17:55:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.94 2000-01-20 17:30:17 ah Exp $'
 ! !