I just managed to build a runtime icx and get it to run as a windows service.
Of course i had to make some minor code changes to make this happen.
I want to share my experiences with you and maybe get some back too.
SeasidePlatformSupport class
- Code: Select all
startUp
"Initialize identified classes at startup."
StartUpList ifNotNil: [:list | list do: [:ea | (ea isClass) ifTrue: [ea startUp]]]
- Code: Select all
shutDown
"Uninitialize identified classes at shutdown."
ShutDownList ifNotNil: [:list | list do: [:ea | (ea isClass ) ifTrue: [ea shutDown]]]
WAResponse
- Code: Select all
initialize
| application |
super initialize.
stream := SeasidePlatformSupport readWriteStream.
status := 200.
application := [ self application ]
on: WARequestContextNotFound
do: [ :error | error exitWith: nil ].
contentType := application isNil
ifFalse: [ application contentType ]
ifTrue: [ self class defaultValueForContentType ]
SstHttpSeasideSupport class
- Code: Select all
packagerIncludeClasses
^self classes
SstSeasideController class
- Code: Select all
startUp
"Start a Seaside server using the default parameters."
" auto startup removed to my own startup class, packaging with a running seaside server will result in walkbacks in the runtiem image "
TranscriptTTY
- Code: Select all
close
" do nothing is oke "
This last one is only needed when you use message logging with the seaside server.
Greetings, Ben