Mercurial Mercurial > hg > stx-libview2 / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
ApplicationModel.st
changeset 2631 309f5bc96e08
parent 2630 5b65837891f3
child 2632 ced2473521b1 
--- a/ApplicationModel.st	Sun May 03 16:51:00 2009 +0200
+++ b/ApplicationModel.st	Sun May 03 18:04:46 2009 +0200
@@ -910,8 +910,10 @@
 !
 
 startAsWebService
-    "start a web service for myself on the default webService linkURL.
-     Answer the new service instance."
+    "this is not yet a public interface. For internal exept use only.
+     Start a web service for myself on the default webService linkURL.
+     The webService will create new instances of me for incoming sessions.
+     Answer the webService."
 
     ^ self startAsWebService:(self webServiceLinkName)
 
@@ -921,12 +923,15 @@
 !
 
 startAsWebService:linkName
-    "start a web service for myself on link, an URL.
-     Answer the new service instance.
-
+    "this is not yet a public interface. For internal exept use only.
+     Start a web service for myself on link, an URL.
+     The webService will create new instances of me for incoming sessions.
+     Answer the webService.
      Start a HTTP server, if not already running"
 
-    ^ HTTPPortalService startWithApplication:self link:linkName
+    ^ HTTPPortalService 
+        startWithApplication:self 
+        link:linkName
 
     "
      self startAsWebService:'hello'
@@ -935,9 +940,10 @@
 !
 
 startAsWebService:linkName inServer:httpServer
-    "start a web service for myself on link, an URL.
-     Answer the new service instance.
-
+    "this is not yet a public interface. For internal exept use only.
+     Start a web service for myself on the default webService linkURL.
+     The webService will create new instances of me for incoming sessions.
+     Answer the webService.
      Start a HTTP server, if not already running"
 
     ^ HTTPPortalService 
@@ -952,9 +958,10 @@
 !
 
 startAsWebService:linkName onPort:httpPort
-    "start a webApplication for myself on link, an URL.
-     Answer the webApplication instance.
-
+    "this is not yet a public interface. For internal exept use only.
+     Start a web service for myself on the default webService linkURL.
+     The webService will create new instances of me for incoming sessions.
+     Answer the webService.
      Start a HTTP server, if not already running"
 
     ^ HTTPPortalService 
@@ -3572,7 +3579,7 @@
 !ApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.286 2009-05-03 14:51:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.287 2009-05-03 16:04:46 cg Exp $'
 ! !
 
 ApplicationModel initialize!
hg/stx-libview2