Debug Full Stack
MessageNotUnderstood: Character>>default
Character(Object)>>doesNotUnderstand: #default
self $W
temps
aMessage default
inst vars
value 87
[] in PRComponent>>component {[each default]}
self a PRComponent name: 'tools'
temps
component a WAComponent
each $W
inst vars
properties nil
decorations an Array(a PUSecurity)
parent a PRPage name: 'environment'
name 'tools'
title 'Tools'
tags #()
componentClass nil
settings a Dictionary()
Dictionary>>at:ifAbsent:
self a Dictionary()
temps
key $W
aBlock [] in PRComponent>>component {[each default]}
assoc nil
inst vars
tally 0
array #(nil nil nil nil nil)
[] in PRComponent>>component {[:each | component write: (self settings at: each ifAbsent: [each ...]}
self a PRComponent name: 'tools'
temps
component a WAComponent
each $W
inst vars
properties nil
decorations an Array(a PUSecurity)
parent a PRPage name: 'environment'
name 'tools'
title 'Tools'
tags #()
componentClass nil
settings a Dictionary()
ByteSymbol(SequenceableCollection)>>do:
self #WAComponent
temps
aBlock [] in PRComponent>>component {[:each | component write: (self settings at: each ifAbsent: ...etc...
index 1
indexLimiT 11
PRComponent>>component
self a PRComponent name: 'tools'
temps
component a WAComponent
each $W
inst vars
properties nil
decorations an Array(a PUSecurity)
parent a PRPage name: 'environment'
name 'tools'
title 'Tools'
tags #()
componentClass nil
settings a Dictionary()
PRContext>>buildComponentFor:
self a PRContext stucture: 'Tools' command: 'Edit'
temps
aStructure a PRComponent name: 'tools'
inst vars
properties a Dictionary(#components->a Dictionary(a PRComponent name: 'commands'->a PRCommandsWidget a PRCompon...etc...
kernel a PRKernel name: 'Pier'
structure a PRComponent name: 'tools'
command a PREditCommand
enumerator a PRChildrenVisitor
[] in PRContext>>componentAt: {[self buildComponentFor: aStructure]}
self a PRContext stucture: 'Tools' command: 'Edit'
temps
aStructure a PRComponent name: 'tools'
inst vars
properties a Dictionary(#components->a Dictionary(a PRComponent name: 'commands'->a PRCommandsWidget a PRCompon...etc...
kernel a PRKernel name: 'Pier'
structure a PRComponent name: 'tools'
command a PREditCommand
enumerator a PRChildrenVisitor
[] in Dictionary>>at:ifAbsentPut: {[self at: key put: aBlock value]}
self a Dictionary(a PRComponent name: 'commands'->a PRCommandsWidget a PRComponent name: 'header'->a PRHe...etc...
temps
key a PRComponent name: 'tools'
aBlock [] in PRContext>>componentAt: {[self buildComponentFor: aStructure]}
inst vars
tally 5
array {nil . a PRComponent name: 'views'->a PRViewsWidget . nil . nil . nil . a PRComponent name: 'tree'->...etc...
Dictionary>>at:ifAbsent:
self a Dictionary(a PRComponent name: 'commands'->a PRCommandsWidget a PRComponent name: 'header'->a PRHe...etc...
temps
key a PRComponent name: 'tools'
aBlock [] in Dictionary>>at:ifAbsentPut: {[self at: key put: aBlock value]}
assoc nil
inst vars
tally 5
array {nil . a PRComponent name: 'views'->a PRViewsWidget . nil . nil . nil . a PRComponent name: 'tree'->...etc...
Dictionary>>at:ifAbsentPut:
self a Dictionary(a PRComponent name: 'commands'->a PRCommandsWidget a PRComponent name: 'header'->a PRHe...etc...
temps
key a PRComponent name: 'tools'
aBlock [] in PRContext>>componentAt: {[self buildComponentFor: aStructure]}
inst vars
tally 5
array {nil . a PRComponent name: 'views'->a PRViewsWidget . nil . nil . nil . a PRComponent name: 'tree'->...etc...
PRContext>>componentAt:
self a PRContext stucture: 'Tools' command: 'Edit'
temps
aStructure a PRComponent name: 'tools'
inst vars
properties a Dictionary(#components->a Dictionary(a PRComponent name: 'commands'->a PRCommandsWidget a PRCompon...etc...
kernel a PRKernel name: 'Pier'
structure a PRComponent name: 'tools'
command a PREditCommand
enumerator a PRChildrenVisitor
PRViewRenderer>>visitComponent:
self a PRViewRenderer
temps
anObject a PRComponent name: 'tools'
inst vars
escaper nil
component a PRPierFrame
html a WARenderCanvas
visited an OrderedCollection(a PRPage name: 'environment' a PRComponent name: 'tools')
withinEnvironment true
minimumHeaderLevel 1
currentHeaderLevel 1
PRComponent>>accept:
self a PRComponent name: 'tools'
temps
aVisitor a PRViewRenderer
inst vars
properties nil
decorations an Array(a PUSecurity)
parent a PRPage name: 'environment'
name 'tools'
title 'Tools'
tags #()
componentClass nil
settings a Dictionary()
PRComponent(Object)>>acceptDecorated:
self a PRComponent name: 'tools'
temps
aVisitor a PRViewRenderer
inst vars
properties nil
decorations an Array(a PUSecurity)
parent a PRPage name: 'environment'
name 'tools'
title 'Tools'
tags #()
componentClass nil
settings a Dictionary()
[] in PRComponent(PRDecorated)>>acceptDecorated: {[:each | super acceptDecorated: aVisitor]}
self a PRComponent name: 'tools'
temps
aVisitor a PRViewRenderer
each a PRComponent name: 'tools'
inst vars
properties nil
decorations an Array(a PUSecurity)
parent a PRPage name: 'environment'
name 'tools'
title 'Tools'
tags #()
componentClass nil
settings a Dictionary()
PRComponent(PRDecorated)>>decorationsDo:ownerDo:
self a PRComponent name: 'tools'
temps
aBlock [] in PRComponent(PRDecorated)>>acceptDecorated: {[:each | aVisitor visit: each]}
anOwnerBlock [] in PRComponent(PRDecorated)>>acceptDecorated: {[:each | super acceptDecorated: aVisitor]}
each a PUSecurity
inst vars
properties nil
decorations an Array(a PUSecurity)
parent a PRPage name: 'environment'
name 'tools'
title 'Tools'
tags #()
componentClass nil
settings a Dictionary()
PRComponent(PRDecorated)>>acceptDecorated:
self a PRComponent name: 'tools'
temps
aVisitor a PRViewRenderer
each a PRComponent name: 'tools'
inst vars
properties nil
decorations an Array(a PUSecurity)
parent a PRPage name: 'environment'
name 'tools'
title 'Tools'
tags #()
componentClass nil
settings a Dictionary()
PRViewRenderer(PRVisitor)>>visit:
self a PRViewRenderer
temps
anObject a PRComponent name: 'tools'
inst vars
escaper nil
component a PRPierFrame
html a WARenderCanvas
visited an OrderedCollection(a PRPage name: 'environment' a PRComponent name: 'tools')
withinEnvironment true
minimumHeaderLevel 1
currentHeaderLevel 1
PRViewRenderer(PRDeepRenderer)>>visitInternalLinkEmbed:
self a PRViewRenderer
temps
anObject a PRInternalLink
inst vars
escaper nil
component a PRPierFrame
html a WARenderCanvas
visited an OrderedCollection(a PRPage name: 'environment' a PRComponent name: 'tools')
withinEnvironment true
minimumHeaderLevel 1
currentHeaderLevel 1
[] in PRViewRenderer>>visitInternalLinkEmbed: {[super visitInternalLinkEmbed: anObject]}
self a PRViewRenderer
temps
anObject a PRInternalLink
inst vars
escaper nil
component a PRPierFrame
html a WARenderCanvas
visited an OrderedCollection(a PRPage name: 'environment' a PRComponent name: 'tools')
withinEnvironment true
minimumHeaderLevel 1
currentHeaderLevel 1
BlockContext>>ensure:
self [] in PRViewRenderer>>visitInternalLinkEmbed: {[super visitInternalLinkEmbed: anObject]}
temps
aBlock [] in PRViewRenderer>>keepHeaderLevelWhile: {[minimumHeaderLevel := previousHeaderLevel]}
returnValue nil
b nil
inst vars
sender BlockContext>>ensure:
pc 31
stackp 0
nargs 0
startpc 27
home PRViewRenderer>>visitInternalLinkEmbed:
PRViewRenderer>>keepHeaderLevelWhile:
self a PRViewRenderer
temps
aBlock [] in PRViewRenderer>>visitInternalLinkEmbed: {[super visitInternalLinkEmbed: anObject]}
previousHeaderLevel 1
inst vars
escaper nil
component a PRPierFrame
html a WARenderCanvas
visited an OrderedCollection(a PRPage name: 'environment' a PRComponent name: 'tools')
withinEnvironment true
minimumHeaderLevel 1
currentHeaderLevel 1
PRViewRenderer>>visitInternalLinkEmbed:
self a PRViewRenderer
temps
anObject a PRInternalLink
inst vars
escaper nil
component a PRPierFrame
html a WARenderCanvas
visited an OrderedCollection(a PRPage name: 'environment' a PRComponent name: 'tools')
withinEnvironment true
minimumHeaderLevel 1
currentHeaderLevel 1
[] in PRViewRenderer(PRDeepRenderer)>>visitInternalLink: {[self visitInternalLinkEmbed: anObject]}
self a PRViewRenderer
temps
anObject a PRInternalLink
inst vars
escaper nil
component a PRPierFrame
html a WARenderCanvas
visited an OrderedCollection(a PRPage name: 'environment' a PRComponent name: 'tools')
withinEnvironment true
minimumHeaderLevel 1
currentHeaderLevel 1
BlockContext>>ensure:
self [] in PRViewRenderer(PRDeepRenderer)>>visitInternalLink: {[self visitInternalLinkEmbed: anObject]}
temps
aBlock [] in PRViewRenderer(PRDeepRenderer)>>remember:while: {[visited removeLast]}
returnValue nil
b nil
inst vars
sender BlockContext>>ensure:
pc 82
stackp 0
nargs 0
startpc 79
home PRViewRenderer(PRDeepRenderer)>>visitInternalLink:
PRViewRenderer(PRDeepRenderer)>>remember:while:
self a PRViewRenderer
temps
anObject a PRComponent name: 'tools'
aBlock [] in PRViewRenderer(PRDeepRenderer)>>visitInternalLink: {[self visitInternalLinkEmbed: anObject]}
inst vars
escaper nil
component a PRPierFrame
html a WARenderCanvas
visited an OrderedCollection(a PRPage name: 'environment' a PRComponent name: 'tools')
withinEnvironment true
minimumHeaderLevel 1
currentHeaderLevel 1
PRViewRenderer(PRDeepRenderer)>>visitInternalLink:
self a PRViewRenderer
temps
anObject a PRInternalLink
inst vars
escaper nil
component a PRPierFrame
html a WARenderCanvas
visited an OrderedCollection(a PRPage name: 'environment' a PRComponent name: 'tools')
withinEnvironment true
minimumHeaderLevel 1
currentHeaderLevel 1
PRInternalLink>>accept:
self a PRInternalLink
temps
aVisitor a PRViewRenderer
inst vars
properties nil
children #()
reference 'tools'
embedded true
owner a PRPage name: 'environment'
target a PRComponent name: 'tools'
anchor nil
PRInternalLink(Object)>>acceptDecorated:
self a PRInternalLink
temps
aVisitor a PRViewRenderer
inst vars
properties nil
children #()
reference 'tools'
embedded true
owner a PRPage name: 'environment'
target a PRComponent name: 'tools'
anchor nil
PRViewRenderer(PRVisitor)>>visit:
self a PRViewRenderer
temps
anObject a PRInternalLink
inst vars
escaper nil
component a PRPierFrame
html a WARenderCanvas
visited an OrderedCollection(a PRPage name: 'environment' a PRComponent name: 'tools')
withinEnvironment true
minimumHeaderLevel 1
currentHeaderLevel 1
[] in PRViewRenderer(PRVisitor)>>visitAll: {[:each | self visit: each]}
self a PRViewRenderer
temps
aCollection an Array(a PRText text: '
' a PRInternalLink a PRText text:...etc...
each a PRInternalLink
inst vars
escaper nil
component a PRPierFrame
html a WARenderCanvas
visited an OrderedCollection(a PRPage name: 'environment' a PRComponent name: 'tools')
withinEnvironment true
minimumHeaderLevel 1
currentHeaderLevel 1
Array(SequenceableCollection)>>do:
self an Array(a PRText text: '' a PRInternalLink a PRText text:...etc...
temps
aBlock [] in PRViewRenderer(PRVisitor)>>visitAll: {[:each | self visit: each]}
index 4
indexLimiT 11
PRViewRenderer(PRVisitor)>>visitAll:
self a PRViewRenderer
temps
aCollection an Array(a PRText text: '' a PRInternalLink a PRText text:...etc...
each a PRInternalLink
inst vars
escaper nil
component a PRPierFrame
html a WARenderCanvas
visited an OrderedCollection(a PRPage name: 'environment' a PRComponent name: 'tools')
withinEnvironment true
minimumHeaderLevel 1
currentHeaderLevel 1
PRViewRenderer(PRVisitor)>>visitDocumentGroup:
self a PRViewRenderer
temps
anObject a PRParagraph
inst vars
escaper nil
component a PRPierFrame
html a WARenderCanvas
visited an OrderedCollection(a PRPage name: 'environment' a PRComponent name: 'tools')
withinEnvironment true
minimumHeaderLevel 1
currentHeaderLevel 1
PRViewRenderer(PRVisitor)>>visitParagraph:
self a PRViewRenderer
temps
anObject a PRParagraph
inst vars
escaper nil
component a PRPierFrame
html a WARenderCanvas
visited an OrderedCollection(a PRPage name: 'environment' a PRComponent name: 'tools')
withinEnvironment true
minimumHeaderLevel 1
currentHeaderLevel 1
PRViewRenderer>>visitParagraph:
self a PRViewRenderer
temps
anObject a PRParagraph
each nil
inst vars
escaper nil
component a PRPierFrame
html a WARenderCanvas
visited an OrderedCollection(a PRPage name: 'environment' a PRComponent name: 'tools')
withinEnvironment true
minimumHeaderLevel 1
currentHeaderLevel 1
PRParagraph>>accept:
self a PRParagraph
temps
aVisitor a PRViewRenderer
inst vars
properties nil
children an Array(a PRText text: '' a PRInternalLink a PRText text:...etc...
PRParagraph(Object)>>acceptDecorated:
self a PRParagraph
temps
aVisitor a PRViewRenderer
inst vars
properties nil
children an Array(a PRText text: '' a PRInternalLink a PRText text:...etc...
PRViewRenderer(PRVisitor)>>visit:
self a PRViewRenderer
temps
anObject a PRParagraph
inst vars
escaper nil
component a PRPierFrame
html a WARenderCanvas
visited an OrderedCollection(a PRPage name: 'environment' a PRComponent name: 'tools')
withinEnvironment true
minimumHeaderLevel 1
currentHeaderLevel 1
[] in PRViewRenderer(PRVisitor)>>visitAll: {[:each | self visit: each]}
self a PRViewRenderer
temps
aCollection an Array(a PRParagraph a PRParagraph)
each a PRParagraph
inst vars
escaper nil
component a PRPierFrame
html a WARenderCanvas
visited an OrderedCollection(a PRPage name: 'environment' a PRComponent name: 'tools')
withinEnvironment true
minimumHeaderLevel 1
currentHeaderLevel 1
Array(SequenceableCollection)>>do:
self an Array(a PRParagraph a PRParagraph)
temps
aBlock [] in PRViewRenderer(PRVisitor)>>visitAll: {[:each | self visit: each]}
index 2
indexLimiT 2
PRViewRenderer(PRVisitor)>>visitAll:
self a PRViewRenderer
temps
aCollection an Array(a PRParagraph a PRParagraph)
each a PRParagraph
inst vars
escaper nil
component a PRPierFrame
html a WARenderCanvas
visited an OrderedCollection(a PRPage name: 'environment' a PRComponent name: 'tools')
withinEnvironment true
minimumHeaderLevel 1
currentHeaderLevel 1
PRViewRenderer(PRVisitor)>>visitDocumentGroup:
self a PRViewRenderer
temps
anObject a PRDocument
inst vars
escaper nil
component a PRPierFrame
html a WARenderCanvas
visited an OrderedCollection(a PRPage name: 'environment' a PRComponent name: 'tools')
withinEnvironment true
minimumHeaderLevel 1
currentHeaderLevel 1
PRViewRenderer(PRVisitor)>>visitDocument:
self a PRViewRenderer
temps
anObject a PRDocument
inst vars
escaper nil
component a PRPierFrame
html a WARenderCanvas
visited an OrderedCollection(a PRPage name: 'environment' a PRComponent name: 'tools')
withinEnvironment true
minimumHeaderLevel 1
currentHeaderLevel 1
PRDocument>>accept:
self a PRDocument
temps
aVisitor a PRViewRenderer
inst vars
properties nil
children an Array(a PRParagraph a PRParagraph)
PRDocument(Object)>>acceptDecorated:
self a PRDocument
temps
aVisitor a PRViewRenderer
inst vars
properties nil
children an Array(a PRParagraph a PRParagraph)
PRViewRenderer(PRVisitor)>>visit:
self a PRViewRenderer
temps
anObject a PRDocument
inst vars
escaper nil
component a PRPierFrame
html a WARenderCanvas
visited an OrderedCollection(a PRPage name: 'environment' a PRComponent name: 'tools')
withinEnvironment true
minimumHeaderLevel 1
currentHeaderLevel 1
PRViewRenderer(PRDeepRenderer)>>visitCase:
self a PRViewRenderer
temps
anObject a PRPage name: 'environment'
inst vars
escaper nil
component a PRPierFrame
html a WARenderCanvas
visited an OrderedCollection(a PRPage name: 'environment' a PRComponent name: 'tools')
withinEnvironment true
minimumHeaderLevel 1
currentHeaderLevel 1
[] in PRViewRenderer>>visitCase: {[super visitCase: anObject]}
self a PRViewRenderer
temps
anObject a PRPage name: 'environment'
inst vars
escaper nil
component a PRPierFrame
html a WARenderCanvas
visited an OrderedCollection(a PRPage name: 'environment' a PRComponent name: 'tools')
withinEnvironment true
minimumHeaderLevel 1
currentHeaderLevel 1
BlockContext>>ensure:
self [] in PRViewRenderer>>visitCase: {[super visitCase: anObject]}
temps
aBlock [] in PRViewRenderer(PRDeepRenderer)>>remember:while: {[visited removeLast]}
returnValue nil
b nil
inst vars
sender BlockContext>>ensure:
pc 32
stackp 0
nargs 0
startpc 28
home PRViewRenderer>>visitCase:
PRViewRenderer(PRDeepRenderer)>>remember:while:
self a PRViewRenderer
temps
anObject a PRPage name: 'environment'
aBlock [] in PRViewRenderer>>visitCase: {[super visitCase: anObject]}
inst vars
escaper nil
component a PRPierFrame
html a WARenderCanvas
visited an OrderedCollection(a PRPage name: 'environment' a PRComponent name: 'tools')
withinEnvironment true
minimumHeaderLevel 1
currentHeaderLevel 1
PRViewRenderer>>visitCase:
self a PRViewRenderer
temps
anObject a PRPage name: 'environment'
inst vars
escaper nil
component a PRPierFrame
html a WARenderCanvas
visited an OrderedCollection(a PRPage name: 'environment' a PRComponent name: 'tools')
withinEnvironment true
minimumHeaderLevel 1
currentHeaderLevel 1
PRViewRenderer(PRVisitor)>>visitPage:
self a PRViewRenderer
temps
anObject a PRPage name: 'environment'
inst vars
escaper nil
component a PRPierFrame
html a WARenderCanvas
visited an OrderedCollection(a PRPage name: 'environment' a PRComponent name: 'tools')
withinEnvironment true
minimumHeaderLevel 1
currentHeaderLevel 1
PRPage>>accept:
self a PRPage name: 'environment'
temps
aVisitor a PRViewRenderer
inst vars
properties nil
decorations an Array(a PRHider a PUSecurity a PRChildren)
parent a PRPage name: 'pier'
name 'environment'
title 'Environment'
tags nil
document a PRDocument
PRPage(Object)>>acceptDecorated:
self a PRPage name: 'environment'
temps
aVisitor a PRViewRenderer
inst vars
properties nil
decorations an Array(a PRHider a PUSecurity a PRChildren)
parent a PRPage name: 'pier'
name 'environment'
title 'Environment'
tags nil
document a PRDocument
[] in PRPage(PRDecorated)>>acceptDecorated: {[:each | super acceptDecorated: aVisitor]}
self a PRPage name: 'environment'
temps
aVisitor a PRViewRenderer
each a PRPage name: 'environment'
inst vars
properties nil
decorations an Array(a PRHider a PUSecurity a PRChildren)
parent a PRPage name: 'pier'
name 'environment'
title 'Environment'
tags nil
document a PRDocument
PRPage(PRDecorated)>>decorationsDo:ownerDo:
self a PRPage name: 'environment'
temps
aBlock [] in PRPage(PRDecorated)>>acceptDecorated: {[:each | aVisitor visit: each]}
anOwnerBlock [] in PRPage(PRDecorated)>>acceptDecorated: {[:each | super acceptDecorated: aVisitor]}
each a PRChildren
inst vars
properties nil
decorations an Array(a PRHider a PUSecurity a PRChildren)
parent a PRPage name: 'pier'
name 'environment'
title 'Environment'
tags nil
document a PRDocument
PRPage(PRDecorated)>>acceptDecorated:
self a PRPage name: 'environment'
temps
aVisitor a PRViewRenderer
each a PRPage name: 'environment'
inst vars
properties nil
decorations an Array(a PRHider a PUSecurity a PRChildren)
parent a PRPage name: 'pier'
name 'environment'
title 'Environment'
tags nil
document a PRDocument
PRViewRenderer(PRVisitor)>>visit:
self a PRViewRenderer
temps
anObject a PRPage name: 'environment'
inst vars
escaper nil
component a PRPierFrame
html a WARenderCanvas
visited an OrderedCollection(a PRPage name: 'environment' a PRComponent name: 'tools')
withinEnvironment true
minimumHeaderLevel 1
currentHeaderLevel 1
PRViewRenderer(PRVisitor)>>start:
self a PRViewRenderer
temps
anObject a PRPage name: 'environment'
inst vars
escaper nil
component a PRPierFrame
html a WARenderCanvas
visited an OrderedCollection(a PRPage name: 'environment' a PRComponent name: 'tools')
withinEnvironment true
minimumHeaderLevel 1
currentHeaderLevel 1
PRViewRenderer(PRDeepRenderer)>>start:
self a PRViewRenderer
temps
anObject a PRPage name: 'environment'
inst vars
escaper nil
component a PRPierFrame
html a WARenderCanvas
visited an OrderedCollection(a PRPage name: 'environment' a PRComponent name: 'tools')
withinEnvironment true
minimumHeaderLevel 1
currentHeaderLevel 1
PRViewRenderer>>start:
self a PRViewRenderer
temps
anObject a PRPage name: 'environment'
inst vars
escaper nil
component a PRPierFrame
html a WARenderCanvas
visited an OrderedCollection(a PRPage name: 'environment' a PRComponent name: 'tools')
withinEnvironment true
minimumHeaderLevel 1
currentHeaderLevel 1
PRViewRenderer(PRRenderer)>>start:in:on:
self a PRViewRenderer
temps
anObject a PRPage name: 'environment'
aComponent a PRPierFrame
aRenderer a WARenderCanvas
inst vars
escaper nil
component a PRPierFrame
html a WARenderCanvas
visited an OrderedCollection(a PRPage name: 'environment' a PRComponent name: 'tools')
withinEnvironment true
minimumHeaderLevel 1
currentHeaderLevel 1
PRPierFrame>>renderContentOn:
self a PRPierFrame
temps
html a WARenderCanvas
inst vars
decoration a WAStateHolder(a PRPierFrame)
context a PRContext stucture: 'Tools' command: 'Edit'
PRPierFrame(WAPresenter)>>renderWithContext:
self a PRPierFrame
temps
aRenderingContext a WARenderingContext
html a WARenderCanvas
callbacks a WACallbackRegistry
inst vars
decoration a WAStateHolder(a PRPierFrame)
context a PRContext stucture: 'Tools' command: 'Edit'
[] in PRPierFrame>>renderWithContext: {[super renderWithContext: aContext]}
self a PRPierFrame
temps
aContext a WARenderingContext
inst vars
decoration a WAStateHolder(a PRPierFrame)
context a PRContext stucture: 'Tools' command: 'Edit'
BlockContext>>on:do:
self [] in PRPierFrame>>renderWithContext: {[super renderWithContext: aContext]}
temps
exception PRCurrentContext
handlerAction [] in PRCurrentContext class>>use:during: {[:notification | notification resume: anObject]}
handlerActive true
inst vars
sender BlockContext>>on:do:
pc 31
stackp 0
nargs 0
startpc 27
home PRPierFrame>>renderWithContext:
PRCurrentContext class>>use:during:
self PRCurrentContext
temps
anObject a PRPierFrame
aBlock [] in PRPierFrame>>renderWithContext: {[super renderWithContext: aContext]}
notification PRCurrentContext
inst vars
superclass Notification
methodDict a MethodDictionary()
format 140
instanceVariables nil
organization ('as yet unclassified')
subclasses nil
name #PRCurrentContext
classPool nil
sharedPools nil
environment a SystemDictionary(lots of globals)
category #'Pier-Model-Kernel'
traitComposition nil
localSelectors nil
PRPierFrame>>withContextDo:
self a PRPierFrame
temps
aBlock [] in PRPierFrame>>renderWithContext: {[super renderWithContext: aContext]}
inst vars
decoration a WAStateHolder(a PRPierFrame)
context a PRContext stucture: 'Tools' command: 'Edit'
PRPierFrame>>renderWithContext:
self a PRPierFrame
temps
aContext a WARenderingContext
inst vars
decoration a WAStateHolder(a PRPierFrame)
context a PRContext stucture: 'Tools' command: 'Edit'
[] in PRPierFrame(WAComponent)>>renderOn: {[:each | each renderWithContext: aRenderer context]}
self a PRPierFrame
temps
aRenderer a WARenderCanvas
each a PRPierFrame
inst vars
decoration a WAStateHolder(a PRPierFrame)
context a PRContext stucture: 'Tools' command: 'Edit'
PRPierFrame(WAComponent)>>decorationChainDo:
self a PRPierFrame
temps
aBlock [] in PRPierFrame(WAComponent)>>renderOn: {[:each | each renderWithContext: aRenderer context]}
inst vars
decoration a WAStateHolder(a PRPierFrame)
context a PRContext stucture: 'Tools' command: 'Edit'
PRPierFrame(WAComponent)>>renderOn:
self a PRPierFrame
temps
aRenderer a WARenderCanvas
each a PRPierFrame
inst vars
decoration a WAStateHolder(a PRPierFrame)
context a PRContext stucture: 'Tools' command: 'Edit'
WARenderCanvas(WACanvas)>>render:
self a WARenderCanvas
temps
anObject a PRPierFrame
inst vars
currentBrush nil
parentBrush a WADivTag
painter a WAToolFrame
context a WARenderingContext
callbacks a WACallbackRegistry
[] in WAToolFrame>>renderChildOn: {[html render: contents]}
self a WAToolFrame
temps
html a WARenderCanvas
inst vars
decoration a WAStateHolder(a WAToolFrame)
contents a PRPierFrame
showHalos a WAStateHolder(false)
processTime 132
renderTime 238
deprecated a Dictionary()
BlockContext>>on:do:
self [] in WAToolFrame>>renderChildOn: {[html render: contents]}
temps
exception WADeprecatedApi
handlerAction [] in WAToolFrame>>deprecatedApi:on: {[:notification | continuation := Continuation fromContext: no...etc...
handlerActive true
inst vars
sender BlockContext>>on:do:
pc 82
stackp 0
nargs 0
startpc 79
home WAToolFrame>>renderChildOn:
WAToolFrame>>deprecatedApi:on:
self a WAToolFrame
temps
aBlock [] in WAToolFrame>>renderChildOn: {[html render: contents]}
html a WARenderCanvas
notification nil
continuation nil
inst vars
decoration a WAStateHolder(a WAToolFrame)
contents a PRPierFrame
showHalos a WAStateHolder(false)
processTime 132
renderTime 238
deprecated a Dictionary()
[] in WAToolFrame>>renderChildOn: {[self deprecatedApi: [html render: contents] on: html]}
self a WAToolFrame
temps
html a WARenderCanvas
inst vars
decoration a WAStateHolder(a WAToolFrame)
contents a PRPierFrame
showHalos a WAStateHolder(false)
processTime 132
renderTime 238
deprecated a Dictionary()
Time class>>millisecondsToRun:
self Time
temps
timedBlock [] in WAToolFrame>>renderChildOn: {[self deprecatedApi: [html render: contents] on: html]}
initialMilliseconds 1796512
inst vars
superclass Magnitude
methodDict a MethodDictionary(#<->a CompiledMethod (1822) #=->a CompiledMethod (244) #addSeconds:->a CompiledMe...etc...
format 134
instanceVariables #('seconds' 'nanos')
organization ('ansi protocol' < = duration hash hour hour12 hour24 meridianAbbreviation minute second) ('printing...etc...
subclasses nil
name #Time
classPool nil
sharedPools an OrderedCollection(ChronologyConstants)
environment a SystemDictionary(lots of globals)
category #'Kernel-Chronology'
traitComposition nil
localSelectors nil
WAToolFrame>>renderChildOn:
self a WAToolFrame
temps
html a WARenderCanvas
inst vars
decoration a WAStateHolder(a WAToolFrame)
contents a PRPierFrame
showHalos a WAStateHolder(false)
processTime 132
renderTime 238
deprecated a Dictionary()
[] in WAToolFrame>>renderContentOn: {[self renderChildOn: html]}
self a WAToolFrame
temps
html a WARenderCanvas
inst vars
decoration a WAStateHolder(a WAToolFrame)
contents a PRPierFrame
showHalos a WAStateHolder(false)
processTime 132
renderTime 238
deprecated a Dictionary()
BlockContext>>renderOn:
self [] in WAToolFrame>>renderContentOn: {[self renderChildOn: html]}
temps
aRenderer a WARenderCanvas
inst vars
sender BlockContext>>renderOn:
pc 59
stackp 0
nargs 0
startpc 56
home WAToolFrame>>renderContentOn:
[] in WADivTag(WATagBrush)>>with: {[self before. aBlock renderOn: canvas. self after]}
self a WADivTag
temps
aBlock [] in WAToolFrame>>renderContentOn: {[self renderChildOn: html]}
inst vars
canvas a WARenderCanvas
parent nil
closed false
attributes a WAHtmlAttributes('id'->'frameContent' )
BlockContext>>renderOn:
self [] in WADivTag(WATagBrush)>>with: {[self before. aBlock renderOn: canvas. self after]}
temps
aRenderer a WARenderCanvas
inst vars
sender BlockContext>>renderOn:
pc 52
stackp 0
nargs 0
startpc 46
home WADivTag(WATagBrush)>>with:
WARenderCanvas(WACanvas)>>nest:
self a WARenderCanvas
temps
aBlock [] in WADivTag(WATagBrush)>>with: {[self before. aBlock renderOn: canvas. self after]}
inst vars
currentBrush nil
parentBrush a WADivTag
painter a WAToolFrame
context a WARenderingContext
callbacks a WACallbackRegistry
WADivTag(WABrush)>>with:
self a WADivTag
temps
aBlock [] in WADivTag(WATagBrush)>>with: {[self before. aBlock renderOn: canvas. self after]}
inst vars
canvas a WARenderCanvas
parent nil
closed false
attributes a WAHtmlAttributes('id'->'frameContent' )
WADivTag(WATagBrush)>>with:
self a WADivTag
temps
aBlock [] in WAToolFrame>>renderContentOn: {[self renderChildOn: html]}
inst vars
canvas a WARenderCanvas
parent nil
closed false
attributes a WAHtmlAttributes('id'->'frameContent' )
WAToolFrame>>renderContentOn:
self a WAToolFrame
temps
html a WARenderCanvas
inst vars
decoration a WAStateHolder(a WAToolFrame)
contents a PRPierFrame
showHalos a WAStateHolder(false)
processTime 132
renderTime 238
deprecated a Dictionary()
WAToolFrame(WAPresenter)>>renderWithContext:
self a WAToolFrame
temps
aRenderingContext a WARenderingContext
html a WARenderCanvas
callbacks a WACallbackRegistry
inst vars
decoration a WAStateHolder(a WAToolFrame)
contents a PRPierFrame
showHalos a WAStateHolder(false)
processTime 132
renderTime 238
deprecated a Dictionary()
[] in WARender>>buildResponse {[:ea | ea renderWithContext: context]}
self a WARender
temps
response a WAResponse
document a WAHtmlStreamDocument
htmlRoot a WAHtmlRoot
ea a WAToolFrame
inst vars
root a WAToolFrame
context a WARenderingContext
request nil
url a WAUrl
WAToolFrame(WAComponent)>>decorationChainDo:
self a WAToolFrame
temps
aBlock [] in WARender>>buildResponse {[:ea | ea renderWithContext: context]}
inst vars
decoration a WAStateHolder(a WAToolFrame)
contents a PRPierFrame
showHalos a WAStateHolder(false)
processTime 132
renderTime 238
deprecated a Dictionary()
WARender>>buildResponse
self a WARender
temps
response a WAResponse
document a WAHtmlStreamDocument
htmlRoot a WAHtmlRoot
ea a WAToolFrame
inst vars
root a WAToolFrame
context a WARenderingContext
request nil
url a WAUrl
[] in WARender>>render {[:u | url := u. self buildResponse]}
self a WARender
temps
u a WAUrl
inst vars
root a WAToolFrame
context a WARenderingContext
request nil
url a WAUrl
[] in WASession>>respond: {[:cc | url := self actionUrlForContinuation: cc. response := responseBlock...]}
self a WASession
temps
responseBlock [] in WARender>>render {[:u | url := u. self buildResponse]}
request nil
snapshotHolder a ValueHolder
response nil
oldEscape an EscapeContinuation
value nil
cc a ResponseContinuation
url a WAUrl
inst vars
parent a WAApplication named: 'pier'
lastAccess 3354453064
expired false
timeout 600
continuations a WALRUCache
escapeContinuation [] in WASession>>respond: {[:value | snapshotHolder contents: state snapshot. oldEscape value: val...etc...
monitor a WAProcessMonitor
state a WAStateRegistry
currentRequest a WARequest
scripts nil
jumpTo nil
cookiesEnabled true
ResponseContinuation class(Continuation class)>>currentDo:
self ResponseContinuation
temps
aBlock [] in WASession>>respond: {[:cc | url := self actionUrlForContinuation: cc. response := responseBl...etc...
inst vars
superclass Continuation
methodDict a MethodDictionary()
format 132
instanceVariables nil
organization ('as yet unclassified')
subclasses nil
name #ResponseContinuation
classPool nil
sharedPools nil
environment a SystemDictionary(lots of globals)
category #'Seaside-Continuations'
traitComposition nil
localSelectors nil
WASession>>respond:
self a WASession
temps
responseBlock [] in WARender>>render {[:u | url := u. self buildResponse]}
request nil
snapshotHolder a ValueHolder
response nil
oldEscape an EscapeContinuation
value nil
cc a ResponseContinuation
url a WAUrl
inst vars
parent a WAApplication named: 'pier'
lastAccess 3354453064
expired false
timeout 600
continuations a WALRUCache
escapeContinuation [] in WASession>>respond: {[:value | snapshotHolder contents: state snapshot. oldEscape value: val...etc...
monitor a WAProcessMonitor
state a WAStateRegistry
currentRequest a WARequest
scripts nil
jumpTo nil
cookiesEnabled true
WARender>>render
self a WARender
temps
u a WAUrl
inst vars
root a WAToolFrame
context a WARenderingContext
request nil
url a WAUrl
[] in WARender>>go {[self render]}
self a WARender
temps
inst vars
root a WAToolFrame
context a WARenderingContext
request nil
url a WAUrl
BlockContext>>on:do:
self [] in WARender>>go {[self render]}
temps
exception WARenderNotification
handlerAction [] in WARender>>withRenderNowHandler: {[:n | n]}
handlerActive true
inst vars
sender BlockContext>>on:do:
pc 47
stackp 0
nargs 0
startpc 45
home WARender>>go
WARender>>withRenderNowHandler:
self a WARender
temps
aBlock [] in WARender>>go {[self render]}
n nil
inst vars
root a WAToolFrame
context a WARenderingContext
request nil
url a WAUrl
[] in WARender>>go {[self withRenderNowHandler: [self render]. self shouldRedirect ifTrue: ...]}
self a WARender
temps
inst vars
root a WAToolFrame
context a WARenderingContext
request nil
url a WAUrl
BlockContext>>on:do:
self [] in WARender>>go {[self withRenderNowHandler: [self render]. self shouldRedirect ifTrue: ...]...etc...
temps
exception WAPageExpired
handlerAction [] in WARender>>withPageExpiredHandler: {[:n | n]}
handlerActive true
inst vars
sender BlockContext>>on:do:
pc 49
stackp 0
nargs 0
startpc 39
home WARender>>go
WARender>>withPageExpiredHandler:
self a WARender
temps
aBlock [] in WARender>>go {[self withRenderNowHandler: [self render]. self shouldRedirect ifTrue: ...]...etc...
n nil
inst vars
root a WAToolFrame
context a WARenderingContext
request nil
url a WAUrl
WARender>>go
self a WARender
temps
inst vars
root a WAToolFrame
context a WARenderingContext
request nil
url a WAUrl
[] in WARenderLoop>>run {[(WARender new root: root) go]}
self a WARenderLoop
temps
inst vars
root a WAToolFrame
BlockContext>>repeat
self [] in WARenderLoop>>run {[(WARender new root: root) go]}
temps
inst vars
sender BlockContext>>repeat
pc 39
stackp 0
nargs 0
startpc 34
home WARenderLoop>>run
WARenderLoop>>run
self a WARenderLoop
temps
inst vars
root a WAToolFrame
PRPierMain(WARenderLoopMain)>>start:
self a PRPierMain
temps
aRequest a WARequest
root a PRPierFrame
ea a PRHeaderWidget
inst vars
context a PRContext stucture: 'Pier' command: 'View'
PRPierMain>>start:
self a PRPierMain
temps
aRequest a WARequest
inst vars
context a PRContext stucture: 'Pier' command: 'View'
WASession>>start:
self a WASession
temps
aRequest a WARequest
inst vars
parent a WAApplication named: 'pier'
lastAccess 3354453064
expired false
timeout 600
continuations a WALRUCache
escapeContinuation [] in WASession>>respond: {[:value | snapshotHolder contents: state snapshot. oldEscape value: val...etc...
monitor a WAProcessMonitor
state a WAStateRegistry
currentRequest a WARequest
scripts nil
jumpTo nil
cookiesEnabled true
[] in WASession>>performRequest: {[^ self start: aRequest]}
self a WASession
temps
aRequest a WARequest
key nil
continuation nil
inst vars
parent a WAApplication named: 'pier'
lastAccess 3354453064
expired false
timeout 600
continuations a WALRUCache
escapeContinuation [] in WASession>>respond: {[:value | snapshotHolder contents: state snapshot. oldEscape value: val...etc...
monitor a WAProcessMonitor
state a WAStateRegistry
currentRequest a WARequest
scripts nil
jumpTo nil
cookiesEnabled true
Dictionary>>at:ifAbsent:
self a Dictionary()
temps
key '_k'
aBlock [] in WASession>>performRequest: {[^ self start: aRequest]}
assoc nil
inst vars
tally 0
array #(nil nil nil nil nil)
WASession>>performRequest:
self a WASession
temps
aRequest a WARequest
key nil
continuation nil
inst vars
parent a WAApplication named: 'pier'
lastAccess 3354453064
expired false
timeout 600
continuations a WALRUCache
escapeContinuation [] in WASession>>respond: {[:value | snapshotHolder contents: state snapshot. oldEscape value: val...etc...
monitor a WAProcessMonitor
state a WAStateRegistry
currentRequest a WARequest
scripts nil
jumpTo nil
cookiesEnabled true
[] in WASession>>responseForRequest: {[self performRequest: aRequest]}
self a WASession
temps
aRequest a WARequest
inst vars
parent a WAApplication named: 'pier'
lastAccess 3354453064
expired false
timeout 600
continuations a WALRUCache
escapeContinuation [] in WASession>>respond: {[:value | snapshotHolder contents: state snapshot. oldEscape value: val...etc...
monitor a WAProcessMonitor
state a WAStateRegistry
currentRequest a WARequest
scripts nil
jumpTo nil
cookiesEnabled true
BlockContext>>on:do:
self [] in WASession>>responseForRequest: {[self performRequest: aRequest]}
temps
exception Error
handlerAction [] in WASession>>withErrorHandler: {[:e | self errorHandler handleError: e. WAPageExpired raiseSig...etc...
handlerActive false
inst vars
sender BlockContext>>on:do:
pc 58
stackp 0
nargs 0
startpc 55
home WASession>>responseForRequest:
[] in WASession>>withErrorHandler: {[aBlock on: Error do: [:e | self errorHandler handleError: e. WAP...]}
self a WASession
temps
aBlock [] in WASession>>responseForRequest: {[self performRequest: aRequest]}
e MessageNotUnderstood: Character>>default
w nil
inst vars
parent a WAApplication named: 'pier'
lastAccess 3354453064
expired false
timeout 600
continuations a WALRUCache
escapeContinuation [] in WASession>>respond: {[:value | snapshotHolder contents: state snapshot. oldEscape value: val...etc...
monitor a WAProcessMonitor
state a WAStateRegistry
currentRequest a WARequest
scripts nil
jumpTo nil
cookiesEnabled true
BlockContext>>on:do:
self [] in WASession>>withErrorHandler: {[aBlock on: Error do: [:e | self errorHandler handleErro...etc...
temps
exception Warning
handlerAction [] in WASession>>withErrorHandler: {[:w | self errorHandler handleWarning: w. WAPageExpired raiseS...etc...
handlerActive true
inst vars
sender BlockContext>>on:do:
pc 67
stackp 0
nargs 0
startpc 50
home WASession>>withErrorHandler:
WASession>>withErrorHandler:
self a WASession
temps
aBlock [] in WASession>>responseForRequest: {[self performRequest: aRequest]}
e MessageNotUnderstood: Character>>default
w nil
inst vars
parent a WAApplication named: 'pier'
lastAccess 3354453064
expired false
timeout 600
continuations a WALRUCache
escapeContinuation [] in WASession>>respond: {[:value | snapshotHolder contents: state snapshot. oldEscape value: val...etc...
monitor a WAProcessMonitor
state a WAStateRegistry
currentRequest a WARequest
scripts nil
jumpTo nil
cookiesEnabled true
[] in WASession>>responseForRequest: {[self withErrorHandler: [self performRequest: aRequest]]}
self a WASession
temps
aRequest a WARequest
inst vars
parent a WAApplication named: 'pier'
lastAccess 3354453064
expired false
timeout 600
continuations a WALRUCache
escapeContinuation [] in WASession>>respond: {[:value | snapshotHolder contents: state snapshot. oldEscape value: val...etc...
monitor a WAProcessMonitor
state a WAStateRegistry
currentRequest a WARequest
scripts nil
jumpTo nil
cookiesEnabled true
BlockContext>>on:do:
self [] in WASession>>responseForRequest: {[self withErrorHandler: [self performRequest: aRequest]]}
temps
exception WACurrentSession
handlerAction [] in WACurrentSession class(WADynamicVariable class)>>use:during: {[:n | n resume: anObject]}
handlerActive true
inst vars
sender BlockContext>>on:do:
pc 60
stackp 0
nargs 0
startpc 49
home WASession>>responseForRequest:
WACurrentSession class(WADynamicVariable class)>>use:during:
self WACurrentSession
temps
anObject a WASession
aBlock [] in WASession>>responseForRequest: {[self withErrorHandler: [self performRequest: aRequest]]}
n WACurrentSession
inst vars
superclass WADynamicVariable
methodDict a MethodDictionary()
format 140
instanceVariables nil
organization ('as yet unclassified')
subclasses nil
name #WACurrentSession
classPool nil
sharedPools nil
environment a SystemDictionary(lots of globals)
category #'Seaside-Session'
traitComposition nil
localSelectors nil
[] in WASession>>responseForRequest: {[WACurrentSession use: self during: [self withErrorHandler: [self pe...]}
self a WASession
temps
aRequest a WARequest
inst vars
parent a WAApplication named: 'pier'
lastAccess 3354453064
expired false
timeout 600
continuations a WALRUCache
escapeContinuation [] in WASession>>respond: {[:value | snapshotHolder contents: state snapshot. oldEscape value: val...etc...
monitor a WAProcessMonitor
state a WAStateRegistry
currentRequest a WARequest
scripts nil
jumpTo nil
cookiesEnabled true
[] in WASession>>withEscapeContinuation: {[:cc | escapeContinuation := cc. aBlock value. self pageIntentionallyLeft...]}
self a WASession
temps
aBlock [] in WASession>>responseForRequest: {[WACurrentSession use: self during: [self withErrorHan...etc...
cc an EscapeContinuation
inst vars
parent a WAApplication named: 'pier'
lastAccess 3354453064
expired false
timeout 600
continuations a WALRUCache
escapeContinuation [] in WASession>>respond: {[:value | snapshotHolder contents: state snapshot. oldEscape value: val...etc...
monitor a WAProcessMonitor
state a WAStateRegistry
currentRequest a WARequest
scripts nil
jumpTo nil
cookiesEnabled true
EscapeContinuation class(Continuation class)>>currentDo:
self EscapeContinuation
temps
aBlock [] in WASession>>withEscapeContinuation: {[:cc | escapeContinuation := cc. aBlock value. self pag...etc...
inst vars
superclass Continuation
methodDict a MethodDictionary()
format 132
instanceVariables nil
organization ('as yet unclassified')
subclasses nil
name #EscapeContinuation
classPool nil
sharedPools nil
environment a SystemDictionary(lots of globals)
category #'Seaside-Continuations'
traitComposition nil
localSelectors nil
WASession>>withEscapeContinuation:
self a WASession
temps
aBlock [] in WASession>>responseForRequest: {[WACurrentSession use: self during: [self withErrorHan...etc...
cc an EscapeContinuation
inst vars
parent a WAApplication named: 'pier'
lastAccess 3354453064
expired false
timeout 600
continuations a WALRUCache
escapeContinuation [] in WASession>>respond: {[:value | snapshotHolder contents: state snapshot. oldEscape value: val...etc...
monitor a WAProcessMonitor
state a WAStateRegistry
currentRequest a WARequest
scripts nil
jumpTo nil
cookiesEnabled true
WASession>>responseForRequest:
self a WASession
temps
aRequest a WARequest
inst vars
parent a WAApplication named: 'pier'
lastAccess 3354453064
expired false
timeout 600
continuations a WALRUCache
escapeContinuation [] in WASession>>respond: {[:value | snapshotHolder contents: state snapshot. oldEscape value: val...etc...
monitor a WAProcessMonitor
state a WAStateRegistry
currentRequest a WARequest
scripts nil
jumpTo nil
cookiesEnabled true
[] in WASession>>incomingRequest: {[self responseForRequest: aRequest]}
self a WASession
temps
aRequest a WARequest
error nil
inst vars
parent a WAApplication named: 'pier'
lastAccess 3354453064
expired false
timeout 600
continuations a WALRUCache
escapeContinuation [] in WASession>>respond: {[:value | snapshotHolder contents: state snapshot. oldEscape value: val...etc...
monitor a WAProcessMonitor
state a WAStateRegistry
currentRequest a WARequest
scripts nil
jumpTo nil
cookiesEnabled true
BlockContext>>on:do:
self [] in WASession>>incomingRequest: {[self responseForRequest: aRequest]}
temps
exception Error
handlerAction [] in WASession>>incomingRequest: {[:error | self errorHandler internalError: error]}
handlerActive true
inst vars
sender BlockContext>>on:do:
pc 98
stackp 0
nargs 0
startpc 95
home WASession>>incomingRequest:
[] in WAProcessMonitor>>critical:ifError: {[value := aBlock on: Error do: errorBlock]}
self a WAProcessMonitor
temps
aBlock [] in WASession>>incomingRequest: {[self responseForRequest: aRequest]}
errorBlock [] in WASession>>incomingRequest: {[:error | self errorHandler internalError: error]}
value a WAResponse
inst vars
mutex a Semaphore()
process a Process in nil
responseSem a Semaphore(a Process in [] in WAProcessMonitor>>critical:ifError: {[responseSem := Semaphore new. ...etc...
BlockContext>>ensure:
self [] in WAProcessMonitor>>critical:ifError: {[value := aBlock on: Error do: errorBlock]}
temps
aBlock [] in WAProcessMonitor>>critical:ifError: {[responseSem signal]}
returnValue nil
b nil
inst vars
sender BlockContext>>ensure:
pc 68
stackp 0
nargs 0
startpc 64
home WAProcessMonitor>>critical:ifError:
[] in WAProcessMonitor>>critical:ifError: {[[value := aBlock on: Error do: errorBlock] ensure: [responseSem signal]]}
self a WAProcessMonitor
temps
aBlock [] in WASession>>incomingRequest: {[self responseForRequest: aRequest]}
errorBlock [] in WASession>>incomingRequest: {[:error | self errorHandler internalError: error]}
value a WAResponse
inst vars
mutex a Semaphore()
process a Process in nil
responseSem a Semaphore(a Process in [] in WAProcessMonitor>>critical:ifError: {[responseSem := Semaphore new. ...etc...
[] in BlockContext>>newProcess {[self value. Processor terminateActive]}
self [] in WAProcessMonitor>>critical:ifError: {[[value := aBlock on: Error do: errorBlock] ensure: [re...etc...
temps
inst vars
sender [] in BlockContext>>newProcess {[self value. Processor terminateActive]}
pc 80
stackp 0
nargs 0
startpc 59
home WAProcessMonitor>>critical:ifError: |
|
|
|
|