About the new PRWidgets

[Martial Boniou]

Lukas Renggli a écrit :
| Hi Martial,
| 
| > As a newbie in Magritte, I don't understand well how the new widgets
| > work in Pier. For my personal web site I'm programming in Pier, I
| > created a PRBoxWidget instance to encapsulate other widgets.
| 
| widgets are essentially just Seaside components, but instead of  
| #renderContentOn: you override #renderWidgetOn:. They also provide a  
| settings command so that administrators can configure them from the  
| web. It is also possible to plug in any Seaside component, e.g. the  
| Sushi Store, but these are not configurable from the web.

I had understood this yet, so It is probably something else.
I tried to edit environment and add a '+tools+<br/>' to add my own
widget in pier. And when I click on the link to create a new Component,
I get a DNU.

I attached the debug message.

--
Martial Boniou
-------------- next part --------------
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: '<table class="body"><tr><td class="boxes">' 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: '<table class="body"><tr><td class="boxes">' 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: '<table class="body"><tr><td class="boxes">' 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: '<table class="body"><tr><td class="boxes">' 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: '<table class="body"><tr><td class="boxes">' 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: