>>>>> "Hervé" == Hervé Darce <[EMAIL PROTECTED]> writes:
Hervé> I want to launch at startup of the image this:
I handled this by adding the startup/shutdown stuff to a class
in my package that holds my WaKom initialization. The simplest
version of this would be:
MyClass class >> initialize
Smalltalk addToStartUpList: self.
Smalltalk addToShutDownList: self.
self startUp.
MyClass class >> startUp
self start. "in case I want more things here"
MyClass class >> start
| ma seaside |
seaside := WAKom default.
ma := ModuleAssembly core.
ma serverRoot: (FileDirectory default directoryNamed: 'FileRoot')
fullName.
ma
alias: '/seaside'
to: [ma addPlug: [:request | seaside process: request]].
ma documentRoot: (FileDirectory default directoryNamed: 'FileRoot')
fullName.
ma directoryIndex: 'index.html index.htm'.
ma serveFiles.
(HttpService startOn: 9090 named: 'httpd') plug: ma rootModule.
MyClass class >> shutDown
self stop.
MyClass class >> stop
HttpService allInstancesDo: [:each | each stop. each unregister].
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<[EMAIL PROTECTED]> <URL:http://www.stonehenge.com/merlyn/>
Smalltalk/Perl/Unix consulting, Technical writing, Comedy, etc. etc.
See http://methodsandmessages.vox.com/ for Smalltalk and Seaside discussion
_______________________________________________
Beginners mailing list
Beginners@lists.squeakfoundation.org
http://lists.squeakfoundation.org/mailman/listinfo/beginners
