ProtoObjectObjectWAMainWARenderLoopMainSCTestingPseudomain
| checker | initializationBlock | renderLoop | storedSession |
| instance | class |
|---|---|
| accessing as yet unclassified hack | no messages
|
| checker |
|---|
|
| initializationBlock |
|---|
|
| renderLoop |
|---|
|
| storedSession |
|---|
|
| accessing |
|---|
| answerChecker |
^checker |
| component |
^ renderLoop root |
| initializeComponentWith: aBlock |
initializationBlock := aBlock |
| storedSession |
^ storedSession |
| as yet unclassified |
|---|
| createRoot |
| comp | checker := SCAnswerChecker new. comp := super createRoot. initializationBlock ifNotNil: [initializationBlock value: comp]. comp addDecoration: checker. ^ comp |
| start: aRequest |
storedSession _ self session. self session redirect. (renderLoop _ SCRenderLoop new root: self createRoot) run |
| hack |
|---|
| new |
^self |