--- a/AbstractLauncherApplication.st	Wed Jul 09 13:32:55 2003 +0200
+++ b/AbstractLauncherApplication.st	Wed Jul 09 13:35:22 2003 +0200
@@ -1932,10 +1932,10 @@
     (hasHTTPServer := HTTPServer notNil) ifTrue:[
         HTTPServer isLoaded ifTrue:[
             httpServerRunning := HTTPServer isRunning.
-            httpServerFileRoot := HTTPServer defaultFileRoot.
-            httpServerHomeURL := HTTPServer defaultHomeURL.
-            httpServerPort := HTTPServer defaultPort.
-            httpServerLogFile := HTTPServer defaultLogFile.
+            httpServerFileRoot := HTTPServer fileRoot.
+            httpServerHomeURL := HTTPServer homeURL.
+            httpServerPort := HTTPServer port.
+            httpServerLogFile := HTTPServer logFile.
         ].
     ].
     org_httpServerRunning := httpServerRunning.
@@ -1951,10 +1951,10 @@
 
     httpServerRunning 
         onChangeEvaluate:[
-            httpServerFileRoot value:(HTTPServer defaultFileRoot).
-            httpServerHomeURL value:(HTTPServer defaultHomeURL).
-            httpServerPort value:(HTTPServer defaultPort).
-            httpServerLogFile value:(HTTPServer defaultLogFile)
+            httpServerFileRoot value:(HTTPServer fileRoot).
+            httpServerHomeURL value:(HTTPServer homeURL).
+            httpServerPort value:(HTTPServer port).
+            httpServerLogFile value:(HTTPServer logFile)
         ].
 
     hasSwiki := false.
@@ -1964,7 +1964,7 @@
     (hasSwiki := PWS::SwikiAction notNil) ifTrue:[
         PWS::SwikiAction isLoaded ifTrue:[
             (HTTPServer notNil and:[HTTPServer isLoaded]) ifTrue:[
-                swikiEnabled := (defaultServer notNil and:[defaultServer hasLinkForServiceClass:SwikiAction]).
+                swikiEnabled := (defaultServer notNil and:[defaultServer hasServiceForServiceClass:SwikiAction]).
                 swikiRoot := PWS::SwikiAction serverDirectory.
             ]
         ].
@@ -1972,7 +1972,7 @@
     (hasSoap := SOAP::SoapHttpModule notNil) ifTrue:[
         SOAP::SoapHttpModule isLoaded ifTrue:[
             (HTTPServer notNil and:[HTTPServer isLoaded]) ifTrue:[
-                soapEnabled := HTTPServer defaultSoapEnabled.
+                soapEnabled := HTTPServer soapEnabled.
             ]
         ].
     ].
@@ -1990,7 +1990,7 @@
         ].
 
 
-    allowEmbedded := defaultServer notNil and:[defaultServer hasLinkForServiceClass:HTTPEmbeddedApplicationService].
+    allowEmbedded := defaultServer notNil and:[defaultServer hasServiceForServiceClass:HTTPEmbeddedApplicationService].
     org_allowEmbedded := allowEmbedded.
     allowEmbedded := allowEmbedded asValue.
 
@@ -2342,7 +2342,7 @@
         (hasHTTPServer and:[HTTPServer isLoaded]) ifTrue:[
             httpServerPort := httpServerPort value.
             org_httpServerPort ~= httpServerPort ifTrue:[
-                HTTPServer defaultPort:httpServerPort.
+"/                HTTPServer port:httpServerPort.
             ].
 
             httpServerFileRoot := httpServerFileRoot value.
@@ -2350,23 +2350,23 @@
                 httpServerFileRoot := nil
             ].
             org_httpServerFileRoot ~= httpServerFileRoot ifTrue:[
-                HTTPServer defaultFileRoot:httpServerFileRoot.
+"/                HTTPServer fileRoot:httpServerFileRoot.
             ].
 
             httpServerLogFile := httpServerLogFile value.
             httpServerLogFile size == 0 ifTrue:[
                 httpServerLogFile := nil
             ].
-            org_httpServerLogFile ~= httpServerLogFile ifTrue:[
-                HTTPServer defaultLogFile:httpServerLogFile.
-            ].
+"/            org_httpServerLogFile ~= httpServerLogFile ifTrue:[
+"/                HTTPServer logFile:httpServerLogFile.
+"/            ].
 
             httpServerHomeURL := httpServerHomeURL value.
             httpServerHomeURL size == 0 ifTrue:[
                 httpServerHomeURL := nil
             ].
             org_httpServerHomeURL ~= httpServerHomeURL ifTrue:[
-                HTTPServer defaultHomeURL:httpServerHomeURL.
+"/                HTTPServer defaultHomeURL:httpServerHomeURL.
             ].
 
             httpServerRunning value ~~ org_httpServerRunning ifTrue:[
@@ -6421,5 +6421,5 @@
 !AbstractLauncherApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.280 2003-07-01 18:35:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.281 2003-07-09 11:35:22 penk Exp $'
 ! !