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: