--- a/ApplicationModel.st Wed Dec 03 13:24:25 2008 +0100
+++ b/ApplicationModel.st Fri Dec 05 17:38:39 2008 +0100
@@ -904,6 +904,24 @@
!
startAsWebService
+ self startAsWebService:(self webServiceLinkName)
+
+ "
+ self startAsWebService
+ "
+!
+
+startAsWebService:linkName
+
+ HTTPPortalService startWithApplication:self link:linkName
+
+ "
+ self startAsWebService:'hello'
+ UBS::UBSUsecase startAsWebService:'uuu'
+ "
+!
+
+startAsWebService_old
"this is not yet a public interface. For internal exept use only"
|app|
@@ -933,6 +951,17 @@
startInPortalService:
(HTTPPortalService allInstances select:[:s | s httpServer port = 8080]) first
"
+!
+
+webServiceLinkName
+ "the link name, under which instances of myself are found in the httpServer"
+
+ "/ typically, redefined as:
+ "/ ^ self name
+ "/ or
+ "/ ^ 'ubs'
+
+ ^ self subclassResponsibility
! !
!ApplicationModel methodsFor:'accessing'!
@@ -3439,7 +3468,7 @@
!ApplicationModel class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.275 2008-12-02 11:01:02 fm Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.276 2008-12-05 16:38:39 sr Exp $'
! !
ApplicationModel initialize!