Seaside Walkback
MessageNotUnderstood: PRPage>> #file
Debug Proceed
Possible Causes
- you sent a message this type of object doesn't understand
Stack Trace
- thisContext
- PRPage(Object)>>doesNotUnderstand: #file
- self
- a PRPage[732469248] name: 'pier-components'
- aMessage
- file
- exception
- Instance of PRPage did not understand #file
- resumeValue
- nil
- thisContext
- PRFileView>>respondUsing:
- self
- a PRFileView
- aResponse
- a WABufferedResponse status: 200 message: 'OK'
- file
- nil
- thisContext
- [ :response | self respondUsing: response ] in PRFileView(PRViewComponent)>>handle:
- self
- a PRFileView
- aRequestContext
- a WARequestContext url: '/pier/john-c-borden/smalltalk/pier/pier-components?_debugAction=_fullStack&...etc...
- response
- a WABufferedResponse status: 200 message: 'OK'
- thisContext
- WARequestContext>>respond:
- self
- a WARequestContext url: '/pier/john-c-borden/smalltalk/pier/pier-components?_debugAction=_fullStack&...etc...
- aBlock
- [ :response | self respondUsing: response ]
- thisContext
- PRFileView(PRViewComponent)>>handle:
- self
- a PRFileView
- aRequestContext
- a WARequestContext url: '/pier/john-c-borden/smalltalk/pier/pier-components?_debugAction=_fullStack&...etc...
- thisContext
- PRViewCommand>>initialRequest:
- self
- a PRViewCommand[132302848]
- aRequest
- a WARequest method: GET uri: /pier/john-c-borden/smalltalk/pier/pier-components?_debugAction=_fullSt...etc...
- viewClass
- PRFileView
- thisContext
- PRPierFrame>>initialRequest:
- self
- a PRPierFrame
- aRequest
- a WARequest method: GET uri: /pier/john-c-borden/smalltalk/pier/pier-components?_debugAction=_fullSt...etc...
- structure
- a PRPage[732469248] name: 'pier-components'
- following
- a PRContext[190451968] structure: 'Pier Components' command: 'View'
- thisContext
- WAInitialRequestVisitor>>visitPresenter:
- self
- a WAInitialRequestVisitor
- aPresenter
- a PRPierFrame
- thisContext
- WAInitialRequestVisitor(WAPainterVisitor)>>visitComponent:
- self
- a WAInitialRequestVisitor
- aComponent
- a PRPierFrame
- thisContext
- PRPierFrame(WAComponent)>>accept:
- self
- a PRPierFrame
- aVisitor
- a WAInitialRequestVisitor
- thisContext
- WAInitialRequestVisitor(WAVisitor)>>visit:
- self
- a WAInitialRequestVisitor
- anObject
- a PRPierFrame
- thisContext
- WAAllPresenterGuide(WAPresenterGuide)>>visitPainter:
- self
- a WAAllPresenterGuide
- aPainter
- a PRPierFrame
- thisContext
- WAAllPresenterGuide(WAPainterVisitor)>>visitPresenter:
- self
- a WAAllPresenterGuide
- aPresenter
- a PRPierFrame
- thisContext
- WAAllPresenterGuide(WAVisiblePresenterGuide)>>visitPresenter:
- self
- a WAAllPresenterGuide
- aPresenter
- a PRPierFrame
- thisContext
- WAAllPresenterGuide(WAPainterVisitor)>>visitComponent:
- self
- a WAAllPresenterGuide
- aComponent
- a PRPierFrame
- thisContext
- PRPierFrame(WAComponent)>>accept:
- self
- a PRPierFrame
- aVisitor
- a WAAllPresenterGuide
- thisContext
- WAAllPresenterGuide(WAPainterVisitor)>>visitDecorationsOfComponent:
- self
- a WAAllPresenterGuide
- aComponent
- a PRPierFrame
- thisContext
- PRPierFrame(WAComponent)>>acceptDecorated:
- self
- a PRPierFrame
- aVisitor
- a WAAllPresenterGuide
- thisContext
- [ super acceptDecorated: aPainterVisitor ] in PRPierFrame>>acceptDecorated:
- self
- a PRPierFrame
- aPainterVisitor
- a WAAllPresenterGuide
- thisContext
- FullBlockClosure(BlockClosure)>>on:do:
- self
- [ super acceptDecorated: aPainterVisitor ]
- exception
- PRCurrentContextHolder
- handlerAction
- [ :notification | notification resume: anObject ]
- thisContext
- PRCurrentContextHolder class>>use:during:
- self
- PRCurrentContextHolder
- anObject
- a PRPierFrame
- aBlock
- [ super acceptDecorated: aPainterVisitor ]
- thisContext
- PRPierFrame>>withContextDo:
- self
- a PRPierFrame
- aBlock
- [ super acceptDecorated: aPainterVisitor ]
- thisContext
- PRPierFrame>>acceptDecorated:
- self
- a PRPierFrame
- aPainterVisitor
- a WAAllPresenterGuide
- thisContext
- WAAllPresenterGuide(WAPresenterGuide)>>visit:
- self
- a WAAllPresenterGuide
- aPainter
- a PRPierFrame
- thisContext
- WAAllPresenterGuide(WAVisitor)>>start:
- self
- a WAAllPresenterGuide
- anObject
- a PRPierFrame
- thisContext
- WAInitialRenderLoopContinuation>>prepareRoot:
- self
- a WAInitialRenderLoopContinuation
- aComponent
- a PRPierFrame
- thisContext
- WAInitialRenderLoopContinuation>>basicPerformAction
- self
- a WAInitialRenderLoopContinuation
- root
- a PRPierFrame
- thisContext
- [ self basicPerformAction ] in WAInitialRenderLoopContinuation(WAActionPhaseContinuation)>>performAc...etc...
- self
- a WAInitialRenderLoopContinuation
- thisContext
- FullBlockClosure(BlockClosure)>>on:do:
- self
- [ self basicPerformAction ]
- exception
- a WAWalkbackErrorHandler
- handlerAction
- [ :exception |
[ self handleException: exception ]
"If there's an error while handling the e...etc...
- thisContext
- WAWalkbackErrorHandler(WAExceptionHandler)>>handleExceptionsDuring:
- self
- a WAWalkbackErrorHandler
- aBlock
- [ self basicPerformAction ]
- thisContext
- [ currentHandler handleExceptionsDuring: aBlock ] in WAInitialRenderLoopContinuation(WARenderLoopCon...etc...
- self
- a WAInitialRenderLoopContinuation
- aBlock
- [ self basicPerformAction ]
- currentHandler
- a WAWalkbackErrorHandler
- thisContext
- FullBlockClosure(BlockClosure)>>on:do:
- self
- [ currentHandler handleExceptionsDuring: aBlock ]
- exception
- WARenderNotification
- handlerAction
- [ :n | ]
- thisContext
- WAInitialRenderLoopContinuation(WARenderLoopContinuation)>>withNotificationHandlerDo:
- self
- a WAInitialRenderLoopContinuation
- aBlock
- [ self basicPerformAction ]
- currentHandler
- a WAWalkbackErrorHandler
- thisContext
- WAInitialRenderLoopContinuation(WAActionPhaseContinuation)>>performAction
- self
- a WAInitialRenderLoopContinuation
- thisContext
- WAInitialRenderLoopContinuation(WAActionPhaseContinuation)>>handleFiltered:
- self
- a WAInitialRenderLoopContinuation
- aRequestContext
- a WARequestContext url: '/pier/john-c-borden/smalltalk/pier/pier-components?_debugAction=_fullStack&...etc...
- thisContext
- [ self filter handleFiltered: aRequestContext ] in WAInitialRenderLoopContinuation(WARequestHandler)...etc...
- self
- a WAInitialRenderLoopContinuation
- aRequestContext
- a WARequestContext url: '/pier/john-c-borden/smalltalk/pier/pier-components?_debugAction=_fullStack&...etc...
- thisContext
- [ activeProcess
psValueAt: index
put: anObject.
aBlock value ] in WACurrentRequestContext(Dy...etc...
- self
- a WACurrentRequestContext
- anObject
- a WARequestContext url: '/pier/john-c-borden/smalltalk/pier/pier-components?_debugAction=_fullStack&...etc...
- aBlock
- [ self filter handleFiltered: aRequestContext ]
- activeProcess
- a Process in nil
- oldValue
- a WARequestContext url: '/pier/john-c-borden/smalltalk/pier/pier-components?_debugAction=_fullStack&...etc...
- thisContext
- FullBlockClosure(BlockClosure)>>ensure:
- self
- [ activeProcess
psValueAt: index
put: anObject.
aBlock value ]
- aBlock
- [
activeProcess
psValueAt: index
put: oldValue ]
- complete
- nil
- returnValue
- nil
- thisContext
- WACurrentRequestContext(DynamicVariable)>>value:during:
- self
- a WACurrentRequestContext
- anObject
- a WARequestContext url: '/pier/john-c-borden/smalltalk/pier/pier-components?_debugAction=_fullStack&...etc...
- aBlock
- [ self filter handleFiltered: aRequestContext ]
- activeProcess
- a Process in nil
- oldValue
- a WARequestContext url: '/pier/john-c-borden/smalltalk/pier/pier-components?_debugAction=_fullStack&...etc...
- thisContext
- WACurrentRequestContext class(DynamicVariable class)>>value:during:
- self
- WACurrentRequestContext
- anObject
- a WARequestContext url: '/pier/john-c-borden/smalltalk/pier/pier-components?_debugAction=_fullStack&...etc...
- aBlock
- [ self filter handleFiltered: aRequestContext ]
- thisContext
- WACurrentRequestContext class(GRDynamicVariable class)>>use:during:
- self
- WACurrentRequestContext
- anObject
- a WARequestContext url: '/pier/john-c-borden/smalltalk/pier/pier-components?_debugAction=_fullStack&...etc...
- aBlock
- [ self filter handleFiltered: aRequestContext ]
- thisContext
- [ WACurrentRequestContext use: self during: aBlock ] in WARequestContext>>push:during:
- self
- a WARequestContext url: '/pier/john-c-borden/smalltalk/pier/pier-components?_debugAction=_fullStack&...etc...
- aRequestHandler
- a WAInitialRenderLoopContinuation
- aBlock
- [ self filter handleFiltered: aRequestContext ]
- thisContext
- FullBlockClosure(BlockClosure)>>ensure:
- self
- [ WACurrentRequestContext use: self during: aBlock ]
- aBlock
- [ handlers removeFirst ]
- complete
- nil
- returnValue
- nil
- thisContext
- WARequestContext>>push:during:
- self
- a WARequestContext url: '/pier/john-c-borden/smalltalk/pier/pier-components?_debugAction=_fullStack&...etc...
- aRequestHandler
- a WAInitialRenderLoopContinuation
- aBlock
- [ self filter handleFiltered: aRequestContext ]
- thisContext
- WAInitialRenderLoopContinuation(WARequestHandler)>>handle:
- self
- a WAInitialRenderLoopContinuation
- aRequestContext
- a WARequestContext url: '/pier/john-c-borden/smalltalk/pier/pier-components?_debugAction=_fullStack&...etc...
- thisContext
- [ super handle: aRequestContext ] in WAInitialRenderLoopContinuation(WASessionContinuation)>>handle:...etc...
- self
- a WAInitialRenderLoopContinuation
- aRequestContext
- a WARequestContext url: '/pier/john-c-borden/smalltalk/pier/pier-components?_debugAction=_fullStack&...etc...
- thisContext
- FullBlockClosure(BlockClosure)>>on:do:
- self
- [ super handle: aRequestContext ]
- exception
- WAUnregisteredHandlerError
- handlerAction
- [ :err | self requestContext redirectTo: self application url ]
- thisContext
- WAInitialRenderLoopContinuation(WASessionContinuation)>>withUnregisteredHandlerDo:
- self
- a WAInitialRenderLoopContinuation
- aBlock
- [ super handle: aRequestContext ]
- thisContext
- WAInitialRenderLoopContinuation(WASessionContinuation)>>handle:
- self
- a WAInitialRenderLoopContinuation
- aRequestContext
- a WARequestContext url: '/pier/john-c-borden/smalltalk/pier/pier-components?_debugAction=_fullStack&...etc...
- thisContext
- WASession>>start
- self
- a WASession
- thisContext
- WASession>>unknownRequest
- self
- a WASession
- thisContext
- [ ^ self unknownRequest ] in WASession>>handleFiltered:
- self
- a WASession
- aRequestContext
- a WARequestContext url: '/pier/john-c-borden/smalltalk/pier/pier-components?_debugAction=_fullStack&...etc...
- continationKey
- 'BsckcWGHYLB1cdxq'
- continuation
- nil
- fields
- a WAMergedRequestFields
- documentHandlerKey
- nil
- thisContext
- WAHashCache>>at:ifAbsent:
- self
- a WAHashCache
- aKey
- 'BsckcWGHYLB1cdxq'
- aBlock
- [ ^ self unknownRequest ]
- keyHash
- 113081272
- index
- 4
- entry
- nil
- thisContext
- WASession>>handleFiltered:
- self
- a WASession
- aRequestContext
- a WARequestContext url: '/pier/john-c-borden/smalltalk/pier/pier-components?_debugAction=_fullStack&...etc...
- continationKey
- 'BsckcWGHYLB1cdxq'
- continuation
- nil
- fields
- a WAMergedRequestFields
- documentHandlerKey
- nil
- thisContext
- WAMutualExclusionFilter(WARequestFilter)>>handleFiltered:
- self
- a WAMutualExclusionFilter
- aRequestContext
- a WARequestContext url: '/pier/john-c-borden/smalltalk/pier/pier-components?_debugAction=_fullStack&...etc...
- thisContext
- [ super handleFiltered: aRequestContext ] in WAMutualExclusionFilter>>handleFiltered:
- self
- a WAMutualExclusionFilter
- aRequestContext
- a WARequestContext url: '/pier/john-c-borden/smalltalk/pier/pier-components?_debugAction=_fullStack&...etc...
- thisContext
- FullBlockClosure(BlockClosure)>>ensure:
- self
- [ super handleFiltered: aRequestContext ]
- aBlock
- [ self owner: nil ]
- complete
- nil
- returnValue
- nil
- thisContext
- [
self owner: process.
aBlock ensure: [ self owner: nil ] ] in WAMutex>>critical:
- self
- a WAMutex
- aBlock
- [ super handleFiltered: aRequestContext ]
- process
- a Process in nil
- thisContext
- [
caught := true.
self wait.
blockValue := mutuallyExcludedBlock value
] in Semaphore>>critic...etc...
- self
- a Semaphore()
- mutuallyExcludedBlock
- [
self owner: process.
aBlock ensure: [ self owner: nil ] ]
- blockValue
- nil
- caught
- true
- thisContext
- FullBlockClosure(BlockClosure)>>ensure:
- self
- [
caught := true.
self wait.
blockValue := mutuallyExcludedBlock value
]
- aBlock
- [caught ifTrue: [self signal]]
- complete
- nil
- returnValue
- nil
- thisContext
- Semaphore>>critical:
- self
- a Semaphore()
- blockValue
- nil
- caught
- true
- mutuallyExcludedBlock
- [
self owner: process.
aBlock ensure: [ self owner: nil ] ]
- thisContext
- WAMutex>>critical:
- self
- a WAMutex
- aBlock
- [ super handleFiltered: aRequestContext ]
- process
- a Process in nil
- thisContext
- WAMutualExclusionFilter>>handleFiltered:
- self
- a WAMutualExclusionFilter
- aRequestContext
- a WARequestContext url: '/pier/john-c-borden/smalltalk/pier/pier-components?_debugAction=_fullStack&...etc...
- thisContext
- [ self filter handleFiltered: aRequestContext ] in WASession(WARequestHandler)>>handle:
- self
- a WASession
- aRequestContext
- a WARequestContext url: '/pier/john-c-borden/smalltalk/pier/pier-components?_debugAction=_fullStack&...etc...
- thisContext
- [ activeProcess
psValueAt: index
put: anObject.
aBlock value ] in WACurrentRequestContext(Dy...etc...
- self
- a WACurrentRequestContext
- anObject
- a WARequestContext url: '/pier/john-c-borden/smalltalk/pier/pier-components?_debugAction=_fullStack&...etc...
- aBlock
- [ self filter handleFiltered: aRequestContext ]
- activeProcess
- a Process in nil
- oldValue
- a WARequestContext url: '/pier/john-c-borden/smalltalk/pier/pier-components?_debugAction=_fullStack&...etc...
- thisContext
- FullBlockClosure(BlockClosure)>>ensure:
- self
- [ activeProcess
psValueAt: index
put: anObject.
aBlock value ]
- aBlock
- [
activeProcess
psValueAt: index
put: oldValue ]
- complete
- nil
- returnValue
- nil
- thisContext
- WACurrentRequestContext(DynamicVariable)>>value:during:
- self
- a WACurrentRequestContext
- anObject
- a WARequestContext url: '/pier/john-c-borden/smalltalk/pier/pier-components?_debugAction=_fullStack&...etc...
- aBlock
- [ self filter handleFiltered: aRequestContext ]
- activeProcess
- a Process in nil
- oldValue
- a WARequestContext url: '/pier/john-c-borden/smalltalk/pier/pier-components?_debugAction=_fullStack&...etc...
- thisContext
- WACurrentRequestContext class(DynamicVariable class)>>value:during:
- self
- WACurrentRequestContext
- anObject
- a WARequestContext url: '/pier/john-c-borden/smalltalk/pier/pier-components?_debugAction=_fullStack&...etc...
- aBlock
- [ self filter handleFiltered: aRequestContext ]
- thisContext
- WACurrentRequestContext class(GRDynamicVariable class)>>use:during:
- self
- WACurrentRequestContext
- anObject
- a WARequestContext url: '/pier/john-c-borden/smalltalk/pier/pier-components?_debugAction=_fullStack&...etc...
- aBlock
- [ self filter handleFiltered: aRequestContext ]
- thisContext
- [ WACurrentRequestContext use: self during: aBlock ] in WARequestContext>>push:during:
- self
- a WARequestContext url: '/pier/john-c-borden/smalltalk/pier/pier-components?_debugAction=_fullStack&...etc...
- aRequestHandler
- a WASession
- aBlock
- [ self filter handleFiltered: aRequestContext ]
- thisContext
- FullBlockClosure(BlockClosure)>>ensure:
- self
- [ WACurrentRequestContext use: self during: aBlock ]
- aBlock
- [ handlers removeFirst ]
- complete
- nil
- returnValue
- nil
- thisContext
- WARequestContext>>push:during:
- self
- a WARequestContext url: '/pier/john-c-borden/smalltalk/pier/pier-components?_debugAction=_fullStack&...etc...
- aRequestHandler
- a WASession
- aBlock
- [ self filter handleFiltered: aRequestContext ]
- thisContext
- WASession(WARequestHandler)>>handle:
- self
- a WASession
- aRequestContext
- a WARequestContext url: '/pier/john-c-borden/smalltalk/pier/pier-components?_debugAction=_fullStack&...etc...
- thisContext
- WAApplication(WARegistry)>>dispatch:to:key:
- self
- a WAApplication
- aRequestContext
- a WARequestContext url: '/pier/john-c-borden/smalltalk/pier/pier-components?_debugAction=_fullStack&...etc...
- aRequestHandler
- a WASession
- aString
- 'pLs62cKyNZR7K9jn'
- thisContext
- WAApplication(WARegistry)>>handle:registering:
- self
- a WAApplication
- aRequestContext
- a WARequestContext url: '/pier/john-c-borden/smalltalk/pier/pier-components?_debugAction=_fullStack&...etc...
- aRequestHandler
- a WASession
- key
- 'pLs62cKyNZR7K9jn'
- thisContext
- WAApplication>>handleDefault:
- self
- a WAApplication
- aRequestContext
- a WARequestContext url: '/pier/john-c-borden/smalltalk/pier/pier-components?_debugAction=_fullStack&...etc...
- thisContext
- WAApplication(WARegistry)>>handleExpired:
- self
- a WAApplication
- aRequestContext
- a WARequestContext url: '/pier/john-c-borden/smalltalk/pier/pier-components?_debugAction=_fullStack&...etc...
- thisContext
- WAQueryFieldHandlerTrackingStrategy(WAHandlerTrackingStrategy)>>noHandlerFoundForKey:in:context:
- self
- a WAQueryFieldHandlerTrackingStrategy
- aString
- 'S6MiE2KvQIfYI63e'
- anApplication
- a WAApplication
- aRequestContext
- a WARequestContext url: '/pier/john-c-borden/smalltalk/pier/pier-components?_debugAction=_fullStack&...etc...
- thisContext
- WAApplication(WARegistry)>>handleFiltered:
- self
- a WAApplication
- aRequestContext
- a WARequestContext url: '/pier/john-c-borden/smalltalk/pier/pier-components?_debugAction=_fullStack&...etc...
- key
- 'S6MiE2KvQIfYI63e'
- handler
- nil
- thisContext
- WAApplication>>handleFiltered:
- self
- a WAApplication
- aRequestContext
- a WARequestContext url: '/pier/john-c-borden/smalltalk/pier/pier-components?_debugAction=_fullStack&...etc...
- thisContext
- WAExceptionFilter(WARequestFilter)>>handleFiltered:
- self
- a WAExceptionFilter
- aRequestContext
- a WARequestContext url: '/pier/john-c-borden/smalltalk/pier/pier-components?_debugAction=_fullStack&...etc...
- thisContext
- [ super handleFiltered: aRequestContext ] in [
WACurrentExceptionHandler
use: handler
during...etc...
- self
- a WAExceptionFilter
- aRequestContext
- a WARequestContext url: '/pier/john-c-borden/smalltalk/pier/pier-components?_debugAction=_fullStack&...etc...
- handler
- a WAWalkbackErrorHandler
- thisContext
- [ activeProcess
psValueAt: index
put: anObject.
aBlock value ] in WACurrentExceptionHandler(...etc...
- self
- a WACurrentExceptionHandler
- anObject
- a WAWalkbackErrorHandler
- aBlock
- [ super handleFiltered: aRequestContext ]
- activeProcess
- a Process in nil
- oldValue
- nil
- thisContext
- FullBlockClosure(BlockClosure)>>ensure:
- self
- [ activeProcess
psValueAt: index
put: anObject.
aBlock value ]
- aBlock
- [
activeProcess
psValueAt: index
put: oldValue ]
- complete
- nil
- returnValue
- nil
- thisContext
- WACurrentExceptionHandler(DynamicVariable)>>value:during:
- self
- a WACurrentExceptionHandler
- anObject
- a WAWalkbackErrorHandler
- aBlock
- [ super handleFiltered: aRequestContext ]
- activeProcess
- a Process in nil
- oldValue
- nil
- thisContext
- WACurrentExceptionHandler class(DynamicVariable class)>>value:during:
- self
- WACurrentExceptionHandler
- anObject
- a WAWalkbackErrorHandler
- aBlock
- [ super handleFiltered: aRequestContext ]
- thisContext
- WACurrentExceptionHandler class(GRDynamicVariable class)>>use:during:
- self
- WACurrentExceptionHandler
- anObject
- a WAWalkbackErrorHandler
- aBlock
- [ super handleFiltered: aRequestContext ]
- thisContext
- [
WACurrentExceptionHandler
use: handler
during: [ super handleFiltered: aRequestContext ] ]...etc...
- self
- a WAExceptionFilter
- aRequestContext
- a WARequestContext url: '/pier/john-c-borden/smalltalk/pier/pier-components?_debugAction=_fullStack&...etc...
- handler
- a WAWalkbackErrorHandler
- thisContext
- FullBlockClosure(BlockClosure)>>on:do:
- self
- [
WACurrentExceptionHandler
use: handler
during: [ super handleFiltered: aRequestContext ] ]...etc...
- exception
- a WAWalkbackErrorHandler
- handlerAction
- [ :exception |
[ self handleException: exception ]
"If there's an error while handling the e...etc...
- thisContext
- WAWalkbackErrorHandler(WAExceptionHandler)>>handleExceptionsDuring:
- self
- a WAWalkbackErrorHandler
- aBlock
- [
WACurrentExceptionHandler
use: handler
during: [ super handleFiltered: aRequestContext ] ]...etc...
- thisContext
- WAExceptionFilter>>handleFiltered:
- self
- a WAExceptionFilter
- aRequestContext
- a WARequestContext url: '/pier/john-c-borden/smalltalk/pier/pier-components?_debugAction=_fullStack&...etc...
- handler
- a WAWalkbackErrorHandler
- thisContext
- [ self filter handleFiltered: aRequestContext ] in WAApplication(WARequestHandler)>>handle:
- self
- a WAApplication
- aRequestContext
- a WARequestContext url: '/pier/john-c-borden/smalltalk/pier/pier-components?_debugAction=_fullStack&...etc...
- thisContext
- [ activeProcess
psValueAt: index
put: anObject.
aBlock value ] in WACurrentRequestContext(Dy...etc...
- self
- a WACurrentRequestContext
- anObject
- a WARequestContext url: '/pier/john-c-borden/smalltalk/pier/pier-components?_debugAction=_fullStack&...etc...
- aBlock
- [ self filter handleFiltered: aRequestContext ]
- activeProcess
- a Process in nil
- oldValue
- a WARequestContext url: '/pier/john-c-borden/smalltalk/pier/pier-components?_debugAction=_fullStack&...etc...
- thisContext
- FullBlockClosure(BlockClosure)>>ensure:
- self
- [ activeProcess
psValueAt: index
put: anObject.
aBlock value ]
- aBlock
- [
activeProcess
psValueAt: index
put: oldValue ]
- complete
- nil
- returnValue
- nil
- thisContext
- WACurrentRequestContext(DynamicVariable)>>value:during:
- self
- a WACurrentRequestContext
- anObject
- a WARequestContext url: '/pier/john-c-borden/smalltalk/pier/pier-components?_debugAction=_fullStack&...etc...
- aBlock
- [ self filter handleFiltered: aRequestContext ]
- activeProcess
- a Process in nil
- oldValue
- a WARequestContext url: '/pier/john-c-borden/smalltalk/pier/pier-components?_debugAction=_fullStack&...etc...
- thisContext
- WACurrentRequestContext class(DynamicVariable class)>>value:during:
- self
- WACurrentRequestContext
- anObject
- a WARequestContext url: '/pier/john-c-borden/smalltalk/pier/pier-components?_debugAction=_fullStack&...etc...
- aBlock
- [ self filter handleFiltered: aRequestContext ]
- thisContext
- WACurrentRequestContext class(GRDynamicVariable class)>>use:during:
- self
- WACurrentRequestContext
- anObject
- a WARequestContext url: '/pier/john-c-borden/smalltalk/pier/pier-components?_debugAction=_fullStack&...etc...
- aBlock
- [ self filter handleFiltered: aRequestContext ]
- thisContext
- [ WACurrentRequestContext use: self during: aBlock ] in WARequestContext>>push:during:
- self
- a WARequestContext url: '/pier/john-c-borden/smalltalk/pier/pier-components?_debugAction=_fullStack&...etc...
- aRequestHandler
- a WAApplication
- aBlock
- [ self filter handleFiltered: aRequestContext ]
- thisContext
- FullBlockClosure(BlockClosure)>>ensure:
- self
- [ WACurrentRequestContext use: self during: aBlock ]
- aBlock
- [ handlers removeFirst ]
- complete
- nil
- returnValue
- nil
- thisContext
- WARequestContext>>push:during:
- self
- a WARequestContext url: '/pier/john-c-borden/smalltalk/pier/pier-components?_debugAction=_fullStack&...etc...
- aRequestHandler
- a WAApplication
- aBlock
- [ self filter handleFiltered: aRequestContext ]
- thisContext
- WAApplication(WARequestHandler)>>handle:
- self
- a WAApplication
- aRequestContext
- a WARequestContext url: '/pier/john-c-borden/smalltalk/pier/pier-components?_debugAction=_fullStack&...etc...
- thisContext
- WADispatcher>>handleFiltered:named:
- self
- a WADispatcher
- aRequestContext
- a WARequestContext url: '/pier/john-c-borden/smalltalk/pier/pier-components?_debugAction=_fullStack&...etc...
- aString
- 'pier'
- thisContext
- WADispatcher>>handleFiltered:
- self
- a WADispatcher
- aRequestContext
- a WARequestContext url: '/pier/john-c-borden/smalltalk/pier/pier-components?_debugAction=_fullStack&...etc...
- consumer
- a WAPathConsumer
- thisContext
- [ self filter handleFiltered: aRequestContext ] in WADispatcher(WARequestHandler)>>handle:
- self
- a WADispatcher
- aRequestContext
- a WARequestContext url: '/pier/john-c-borden/smalltalk/pier/pier-components?_debugAction=_fullStack&...etc...
- thisContext
- [ activeProcess
psValueAt: index
put: anObject.
aBlock value ] in WACurrentRequestContext(Dy...etc...
- self
- a WACurrentRequestContext
- anObject
- a WARequestContext url: '/pier/john-c-borden/smalltalk/pier/pier-components?_debugAction=_fullStack&...etc...
- aBlock
- [ self filter handleFiltered: aRequestContext ]
- activeProcess
- a Process in nil
- oldValue
- nil
- thisContext
- FullBlockClosure(BlockClosure)>>ensure:
- self
- [ activeProcess
psValueAt: index
put: anObject.
aBlock value ]
- aBlock
- [
activeProcess
psValueAt: index
put: oldValue ]
- complete
- nil
- returnValue
- nil
- thisContext
- WACurrentRequestContext(DynamicVariable)>>value:during:
- self
- a WACurrentRequestContext
- anObject
- a WARequestContext url: '/pier/john-c-borden/smalltalk/pier/pier-components?_debugAction=_fullStack&...etc...
- aBlock
- [ self filter handleFiltered: aRequestContext ]
- activeProcess
- a Process in nil
- oldValue
- nil
- thisContext
- WACurrentRequestContext class(DynamicVariable class)>>value:during:
- self
- WACurrentRequestContext
- anObject
- a WARequestContext url: '/pier/john-c-borden/smalltalk/pier/pier-components?_debugAction=_fullStack&...etc...
- aBlock
- [ self filter handleFiltered: aRequestContext ]
- thisContext
- WACurrentRequestContext class(GRDynamicVariable class)>>use:during:
- self
- WACurrentRequestContext
- anObject
- a WARequestContext url: '/pier/john-c-borden/smalltalk/pier/pier-components?_debugAction=_fullStack&...etc...
- aBlock
- [ self filter handleFiltered: aRequestContext ]
- thisContext
- [ WACurrentRequestContext use: self during: aBlock ] in WARequestContext>>push:during:
- self
- a WARequestContext url: '/pier/john-c-borden/smalltalk/pier/pier-components?_debugAction=_fullStack&...etc...
- aRequestHandler
- a WADispatcher
- aBlock
- [ self filter handleFiltered: aRequestContext ]
- thisContext
- FullBlockClosure(BlockClosure)>>ensure:
- self
- [ WACurrentRequestContext use: self during: aBlock ]
- aBlock
- [ handlers removeFirst ]
- complete
- nil
- returnValue
- nil
- thisContext
- WARequestContext>>push:during:
- self
- a WARequestContext url: '/pier/john-c-borden/smalltalk/pier/pier-components?_debugAction=_fullStack&...etc...
- aRequestHandler
- a WADispatcher
- aBlock
- [ self filter handleFiltered: aRequestContext ]
- thisContext
- WADispatcher(WARequestHandler)>>handle:
- self
- a WADispatcher
- aRequestContext
- a WARequestContext url: '/pier/john-c-borden/smalltalk/pier/pier-components?_debugAction=_fullStack&...etc...
- thisContext
- [ self requestHandler handle: aRequestContext ] in ZnZincServerAdaptor(WAServerAdaptor)>>handleReque...etc...
- self
- a ZnZincServerAdaptor(zinc on port 8080 [running])
- aRequestContext
- a WARequestContext url: '/pier/john-c-borden/smalltalk/pier/pier-components?_debugAction=_fullStack&...etc...
- thisContext
- FullBlockClosure(BlockClosure)>>on:do:
- self
- [ self requestHandler handle: aRequestContext ]
- exception
- WAResponseNotification
- handlerAction
- [ :n | "got a response" ]
- thisContext
- ZnZincServerAdaptor(WAServerAdaptor)>>handleRequest:
- self
- a ZnZincServerAdaptor(zinc on port 8080 [running])
- aRequestContext
- a WARequestContext url: '/pier/john-c-borden/smalltalk/pier/pier-components?_debugAction=_fullStack&...etc...
- thisContext
- ZnZincServerAdaptor(WAServerAdaptor)>>handle:
- self
- a ZnZincServerAdaptor(zinc on port 8080 [running])
- aRequestContext
- a WARequestContext url: '/pier/john-c-borden/smalltalk/pier/pier-components?_debugAction=_fullStack&...etc...
- thisContext
- [ self handle: context.
"URL -> String conversion in #responseFrom: needs access to request contex...etc...
- self
- a ZnZincServerAdaptor(zinc on port 8080 [running])
- aNativeRequest
- a ZnRequest(GET /pier/john-c-borden/smalltalk/pier/pier-components?_debugAction=_fullStack&_n&189&_s...etc...
- context
- a WARequestContext url: '/pier/john-c-borden/smalltalk/pier/pier-components?_debugAction=_fullStack&...etc...
- thisContext
- FullBlockClosure(BlockClosure)>>ensure:
- self
- [ self handle: context.
"URL -> String conversion in #responseFrom: needs access to request contex...etc...
- aBlock
- [ context destroy ]
- complete
- nil
- returnValue
- nil
- thisContext
- ZnZincServerAdaptor(WAServerAdaptor)>>process:
- self
- a ZnZincServerAdaptor(zinc on port 8080 [running])
- aNativeRequest
- a ZnRequest(GET /pier/john-c-borden/smalltalk/pier/pier-components?_debugAction=_fullStack&_n&189&_s...etc...
- context
- a WARequestContext url: '/pier/john-c-borden/smalltalk/pier/pier-components?_debugAction=_fullStack&...etc...
- thisContext
- ZnSeasideServerAdaptorDelegate>>handleRequest:
- self
- a ZnSeasideServerAdaptorDelegate
- znRequest
- a ZnRequest(GET /pier/john-c-borden/smalltalk/pier/pier-components?_debugAction=_fullStack&_n&189&_s...etc...
- thisContext
- [
self delegate
ifNil: [ ZnResponse notFound: request uri ]
ifNotNil: [ :delegate | dele...etc...
- self
- a ZnManagingMultiThreadedServer(running 8080)
- request
- a ZnRequest(GET /pier/john-c-borden/smalltalk/pier/pier-components?_debugAction=_fullStack&_n&189&_s...etc...
- delegate
- a ZnSeasideServerAdaptorDelegate
- thisContext
- ZnManagingMultiThreadedServer(ZnSingleThreadedServer)>>authenticateRequest:do:
- self
- a ZnManagingMultiThreadedServer(running 8080)
- request
- a ZnRequest(GET /pier/john-c-borden/smalltalk/pier/pier-components?_debugAction=_fullStack&_n&189&_s...etc...
- block
- [
self delegate
ifNil: [ ZnResponse notFound: request uri ]
ifNotNil: [ :delegate | dele...etc...
- thisContext
- ZnManagingMultiThreadedServer(ZnSingleThreadedServer)>>authenticateAndDelegateRequest:
- self
- a ZnManagingMultiThreadedServer(running 8080)
- request
- a ZnRequest(GET /pier/john-c-borden/smalltalk/pier/pier-components?_debugAction=_fullStack&_n&189&_s...etc...
- thisContext
- [ self authenticateAndDelegateRequest: request ] in [ [ self authenticateAndDelegateRequest: request...etc...
- self
- a ZnManagingMultiThreadedServer(running 8080)
- request
- a ZnRequest(GET /pier/john-c-borden/smalltalk/pier/pier-components?_debugAction=_fullStack&_n&189&_s...etc...
- thisContext
- FullBlockClosure(BlockClosure)>>on:do:
- self
- [ self authenticateAndDelegateRequest: request ]
- exception
- ZnRespond
- handlerAction
- [ :notification | notification response ]
- thisContext
- [ [ self authenticateAndDelegateRequest: request ]
on: ZnRespond
do: [ :notification | notifi...etc...
- self
- a ZnManagingMultiThreadedServer(running 8080)
- request
- a ZnRequest(GET /pier/john-c-borden/smalltalk/pier/pier-components?_debugAction=_fullStack&_n&189&_s...etc...
- thisContext
- FullBlockClosure(BlockClosure)>>on:do:
- self
- [ [ self authenticateAndDelegateRequest: request ]
on: ZnRespond
do: [ :notification | notifi...etc...
- exception
- Error
- handlerAction
- [ :exception |
self debugMode
ifTrue: [ exception pass ]
ifFalse: [
self logServerH...etc...
- thisContext
- ZnManagingMultiThreadedServer(ZnSingleThreadedServer)>>handleRequestProtected:
- self
- a ZnManagingMultiThreadedServer(running 8080)
- request
- a ZnRequest(GET /pier/john-c-borden/smalltalk/pier/pier-components?_debugAction=_fullStack&_n&189&_s...etc...
- thisContext
- ZnManagingMultiThreadedServer(ZnSingleThreadedServer)>>handleRequest:timing:
- self
- a ZnManagingMultiThreadedServer(running 8080)
- request
- a ZnRequest(GET /pier/john-c-borden/smalltalk/pier/pier-components?_debugAction=_fullStack&_n&189&_s...etc...
- timing
- a ZnServerTransactionTiming
- response
- nil
- initialMilliseconds
- 24058209
- thisContext
- ZnManagingMultiThreadedServer(ZnMultiThreadedServer)>>executeOneRequestResponseOn:
- self
- a ZnManagingMultiThreadedServer(running 8080)
- stream
- a ZdcSocketStream
- request
- a ZnRequest(GET /pier/john-c-borden/smalltalk/pier/pier-components?_debugAction=_fullStack&_n&189&_s...etc...
- response
- nil
- timing
- a ZnServerTransactionTiming
- thisContext
- [
[ self executeOneRequestResponseOn: stream ] whileFalse ] in ZnManagingMultiThreadedServer(ZnM...etc...
- self
- a ZnManagingMultiThreadedServer(running 8080)
- stream
- a ZdcSocketStream
- thisContext
- [ activeProcess
psValueAt: index
put: anObject.
aBlock value ] in ZnCurrentServer(DynamicVar...etc...
- self
- a ZnCurrentServer
- anObject
- a ZnManagingMultiThreadedServer(running 8080)
- aBlock
- [
[ self executeOneRequestResponseOn: stream ] whileFalse ]
- activeProcess
- a Process in nil
- oldValue
- nil
- thisContext
- FullBlockClosure(BlockClosure)>>ensure:
- self
- [ activeProcess
psValueAt: index
put: anObject.
aBlock value ]
- aBlock
- [
activeProcess
psValueAt: index
put: oldValue ]
- complete
- nil
- returnValue
- nil
- thisContext
- ZnCurrentServer(DynamicVariable)>>value:during:
- self
- a ZnCurrentServer
- anObject
- a ZnManagingMultiThreadedServer(running 8080)
- aBlock
- [
[ self executeOneRequestResponseOn: stream ] whileFalse ]
- activeProcess
- a Process in nil
- oldValue
- nil
- thisContext
- ZnCurrentServer class(DynamicVariable class)>>value:during:
- self
- ZnCurrentServer
- anObject
- a ZnManagingMultiThreadedServer(running 8080)
- aBlock
- [
[ self executeOneRequestResponseOn: stream ] whileFalse ]
- thisContext
- ZnManagingMultiThreadedServer(ZnMultiThreadedServer)>>executeRequestResponseLoopOn:
- self
- a ZnManagingMultiThreadedServer(running 8080)
- stream
- a ZdcSocketStream
- thisContext
- [ self executeRequestResponseLoopOn: stream ] in [ [ self executeRequestResponseLoopOn: stream ]
e...etc...
- self
- a ZnManagingMultiThreadedServer(running 8080)
- listeningSocket
- a Socket[waitingForConnection]
- stream
- a ZdcSocketStream
- socket
- a Socket[connected]
- thisContext
- FullBlockClosure(BlockClosure)>>ensure:
- self
- [ self executeRequestResponseLoopOn: stream ]
- aBlock
- [ self logConnectionClosed: stream. self closeSocketStream: stream ]
- complete
- nil
- returnValue
- nil
- thisContext
- [ [ self executeRequestResponseLoopOn: stream ]
ensure: [ self logConnectionClosed: stream. self c...etc...
- self
- a ZnManagingMultiThreadedServer(running 8080)
- listeningSocket
- a Socket[waitingForConnection]
- stream
- a ZdcSocketStream
- socket
- a Socket[connected]
- thisContext
- FullBlockClosure(BlockClosure)>>ifCurtailed:
- self
- [ [ self executeRequestResponseLoopOn: stream ]
ensure: [ self logConnectionClosed: stream. self c...etc...
- aBlock
- [ socket destroy ]
- complete
- nil
- result
- nil
- thisContext
- [ [ [ self executeRequestResponseLoopOn: stream ]
ensure: [ self logConnectionClosed: stream. self...etc...
- self
- a ZnManagingMultiThreadedServer(running 8080)
- listeningSocket
- a Socket[waitingForConnection]
- stream
- a ZdcSocketStream
- socket
- a Socket[connected]
- thisContext
- [self value.
Processor terminateActive] in FullBlockClosure(BlockClosure)>>newProcess
- self
- [ [ [ self executeRequestResponseLoopOn: stream ]
ensure: [ self logConnectionClosed: stream. self...etc...