VA8 Beta 1 running as Windows service

VA Smalltalk is a "100% VisualAge compatible" IDE that includes the original VisualAge technology and the popular VA Assist and WidgetKit add-ons.

Moderators: Eric Clayberg, wembley, tc, Diane Engles, solveig

VA8 Beta 1 running as Windows service

Postby benvandijk » Thu Mar 12, 2009 3:06 am

Hi guys,

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
   "Initialize identified classes at startup."
   StartUpList ifNotNil: [:list | list do: [:ea | (ea isClass) ifTrue: [ea startUp]]]

Code: Select all
   "Uninitialize identified classes at shutdown."
   ShutDownList ifNotNil: [:list | list do: [:ea | (ea isClass ) ifTrue: [ea shutDown]]]

Code: Select all
   | 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

   ^self classes

SstSeasideController class
Code: Select all
   "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 "

Code: Select all

" do nothing is oke "

This last one is only needed when you use message logging with the seaside server.

Greetings, Ben
Posts: 45
Joined: Sun Feb 25, 2007 7:14 am
Location: Arnhem, Netherlands

Return to VA Smalltalk 7.0, 7.5 & 8.0

Who is online

Users browsing this forum: Yahoo [Bot] and 1 guest