[Seaside] SeasideTesting + Ramon's image (was: Re: Anyone got Albatross workingto test with currentSeaside?)

[itsme213]

"C. David Shaffer" <cdshaffer at acm.org> wrote in message
> Try loading the latest "R1.5" version on SqueakSource.  It works fine > 
> for me in the "dev" and "web" images:

Thanks, I did try this and it worked fine. I'm using Ramon's image, tho, I 
cannot get it to run the SeasideTesting examples in that image. Not sure of 
the cause, but that image uses a subclass of WAKom which appears to disable 
WAKom & does the following. Let me know if you see some cause I might be 
able to work around.

WAKomEncoded39 subclass: #SSKom
 instanceVariableNames: ''
 classVariableNames: ''
 poolDictionaries: ''
 category: 'SentorsaSeaside'!
!SSKom commentStamp: '<historical>' prior: 0!
SSKom startOn: 80.!


"-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "!

SSKom class
 instanceVariableNames: ''!

!SSKom class methodsFor: 'service' stamp: 'rjl 10/10/2007 11:49'!
initialize
 Smalltalk removeFromStartUpList: WAKom.
 Smalltalk removeFromShutDownList: WAKom.
 Smalltalk addToStartUpList: self after: AutoStart.
 Smalltalk addToShutDownList: self! !

!SSKom class methodsFor: 'service' stamp: 'rjl 12/11/2006 10:19'!
startOn: aPort
 self stop.
 super startOn: aPort.
 "killing keepAlives prevents proxy errors when uploading files"
 HttpService allInstancesDo: [:each | each keepAlive: false].
 Smalltalk garbageCollectMost! !

!SSKom class methodsFor: 'service' stamp: 'rjl 12/11/2006 10:17'!
stop
 "Kill all existing HTTP servers"

 super stop.
 HttpService allInstancesDo:
   [:each |
   each
    stop;
    waitForStop;
    unregister.
   Smalltalk garbageCollectMost]! !


SSKom initialize!