Debug Full Stack Error: key not found * Dictionary(Object)>>error: self a Dictionary() temps aString 'key not found' inst vars tally 0 array #(nil nil nil nil nil) * Dictionary>>errorKeyNotFound self a Dictionary() temps inst vars tally 0 array #(nil nil nil nil nil) * [] in Dictionary>>at: {[self errorKeyNotFound]} self a Dictionary() temps key a MAStringDescription label: 'CSS Name' comment: nil inst vars tally 0 array #(nil nil nil nil nil) * Dictionary>>at:ifAbsent: self a Dictionary() temps key a MAStringDescription label: 'CSS Name' comment: nil aBlock [] in Dictionary>>at: {[self errorKeyNotFound]} assoc nil inst vars tally 0 array #(nil nil nil nil nil) * Dictionary>>at: self a Dictionary() temps key a MAStringDescription label: 'CSS Name' comment: nil inst vars tally 0 array #(nil nil nil nil nil) * PRTreeWidget(PRWidget)>>propertyAt: self a PRTreeWidget temps aKey a MAStringDescription label: 'CSS Name' comment: nil inst vars decoration a WAStateHolder(a PRTreeWidget) properties a Dictionary() context nil expanded a Set() * PRTreeWidget(PRWidget)>>readUsing: self a PRTreeWidget temps aDescription a MAStringDescription label: 'CSS Name' comment: nil inst vars decoration a WAStateHolder(a PRTreeWidget) properties a Dictionary() context nil expanded a Set() * PRTreeWidget(PRWidget)>>read: self a PRTreeWidget temps aSymbol #descriptionCssName inst vars decoration a WAStateHolder(a PRTreeWidget) properties a Dictionary() context nil expanded a Set() * PRTreeWidget(PRBoxWidget)>>cssName self a PRTreeWidget temps inst vars decoration a WAStateHolder(a PRTreeWidget) properties a Dictionary() context nil expanded a Set() * PRTreeWidget(PRBoxWidget)>>renderContentOn: self a PRTreeWidget temps html a WARenderCanvas inst vars decoration a WAStateHolder(a PRTreeWidget) properties a Dictionary() context nil expanded a Set() * PRTreeWidget(WAPresenter)>>renderWithContext: self a PRTreeWidget temps aRenderingContext a WARenderingContext html a WARenderCanvas callbacks a WACallbackRegistry inst vars decoration a WAStateHolder(a PRTreeWidget) properties a Dictionary() context nil expanded a Set() * [] in PRTreeWidget(WAComponent)>>renderOn: {[:each | each renderWithContext: aRenderer context]} self a PRTreeWidget temps aRenderer a WARenderCanvas each a PRTreeWidget inst vars decoration a WAStateHolder(a PRTreeWidget) properties a Dictionary() context nil expanded a Set() * PRTreeWidget(WAComponent)>>decorationChainDo: self a PRTreeWidget temps aBlock [] in PRTreeWidget(WAComponent)>>renderOn: {[:each | each renderWithContext: aRenderer context]} inst vars decoration a WAStateHolder(a PRTreeWidget) properties a Dictionary() context nil expanded a Set() * PRTreeWidget(WAComponent)>>renderOn: self a PRTreeWidget temps aRenderer a WARenderCanvas each a PRTreeWidget inst vars decoration a WAStateHolder(a PRTreeWidget) properties a Dictionary() context nil expanded a Set() * WARenderCanvas(WACanvas)>>render: self a WARenderCanvas temps anObject a PRTreeWidget inst vars currentBrush nil parentBrush a WADivTag painter a MarsNavigationWidget context a WARenderingContext callbacks a WACallbackRegistry * [] in MarsNavigationWidget>>renderWidgetOn: {[(self preferenceAt: #adminView) ifTrue: [self renderAdminView: html] if...]} self a MarsNavigationWidget temps html a WARenderCanvas inst vars decoration a WAStateHolder(a MarsNavigationWidget) properties a Dictionary(a MAToOneRelationDescription label: 'Navigation' comment: nil->nil ) context a PRContext stucture: 'Hondana' command: 'View' adminSpool a PRTreeWidget * BlockContext>>renderOn: self [] in MarsNavigationWidget>>renderWidgetOn: {[(self preferenceAt: #adminView) ifTrue: [self render...etc... temps aRenderer a WARenderCanvas inst vars sender BlockContext>>renderOn: pc 119 stackp 0 nargs 0 startpc 108 home MarsNavigationWidget>>renderWidgetOn: * WADivTag(WATagBrush)>>within: self a WADivTag temps aBlock [] in MarsNavigationWidget>>renderWidgetOn: {[(self preferenceAt: #adminView) ifTrue: [self render...etc... inst vars parent a WADivTag canvas a WARenderCanvas isClosed false attributes a WAHtmlAttributes * [] in WADivTag(WATagBrush)>>with: {[self within: aBlock]} self a WADivTag temps aBlock [] in MarsNavigationWidget>>renderWidgetOn: {[(self preferenceAt: #adminView) ifTrue: [self render...etc... inst vars parent a WADivTag canvas a WARenderCanvas isClosed false attributes a WAHtmlAttributes * BlockContext>>renderOn: self [] in WADivTag(WATagBrush)>>with: {[self within: aBlock]} temps aRenderer a WARenderCanvas inst vars sender BlockContext>>renderOn: pc 41 stackp 0 nargs 0 startpc 38 home WADivTag(WATagBrush)>>with: * WARenderCanvas(WACanvas)>>nest: self a WARenderCanvas temps aBlock [] in WADivTag(WATagBrush)>>with: {[self within: aBlock]} inst vars currentBrush nil parentBrush a WADivTag painter a MarsNavigationWidget context a WARenderingContext callbacks a WACallbackRegistry * WADivTag(WABrush)>>with: self a WADivTag temps aBlock [] in WADivTag(WATagBrush)>>with: {[self within: aBlock]} inst vars parent a WADivTag canvas a WARenderCanvas isClosed false attributes a WAHtmlAttributes * WADivTag(WATagBrush)>>with: self a WADivTag temps aBlock [] in MarsNavigationWidget>>renderWidgetOn: {[(self preferenceAt: #adminView) ifTrue: [self render...etc... inst vars parent a WADivTag canvas a WARenderCanvas isClosed false attributes a WAHtmlAttributes * [] in MarsNavigationWidget>>renderWidgetOn: {[html div class: #content; id: #navmenu; with: [(self preferenceAt: ...]} self a MarsNavigationWidget temps html a WARenderCanvas inst vars decoration a WAStateHolder(a MarsNavigationWidget) properties a Dictionary(a MAToOneRelationDescription label: 'Navigation' comment: nil->nil ) context a PRContext stucture: 'Hondana' command: 'View' adminSpool a PRTreeWidget * BlockContext>>renderOn: self [] in MarsNavigationWidget>>renderWidgetOn: {[html div class: #content; id: #navmenu; with: ...etc... temps aRenderer a WARenderCanvas inst vars sender BlockContext>>renderOn: pc 121 stackp 0 nargs 0 startpc 93 home MarsNavigationWidget>>renderWidgetOn: * WADivTag(WATagBrush)>>within: self a WADivTag temps aBlock [] in MarsNavigationWidget>>renderWidgetOn: {[html div class: #content; id: #navmenu; with: ...etc... inst vars parent nil canvas a WARenderCanvas isClosed false attributes a WAHtmlAttributes * [] in WADivTag(WATagBrush)>>with: {[self within: aBlock]} self a WADivTag temps aBlock [] in MarsNavigationWidget>>renderWidgetOn: {[html div class: #content; id: #navmenu; with: ...etc... inst vars parent nil canvas a WARenderCanvas isClosed false attributes a WAHtmlAttributes * BlockContext>>renderOn: self [] in WADivTag(WATagBrush)>>with: {[self within: aBlock]} temps aRenderer a WARenderCanvas inst vars sender BlockContext>>renderOn: pc 41 stackp 0 nargs 0 startpc 38 home WADivTag(WATagBrush)>>with: * WARenderCanvas(WACanvas)>>nest: self a WARenderCanvas temps aBlock [] in WADivTag(WATagBrush)>>with: {[self within: aBlock]} inst vars currentBrush nil parentBrush a WADivTag painter a MarsNavigationWidget context a WARenderingContext callbacks a WACallbackRegistry * WADivTag(WABrush)>>with: self a WADivTag temps aBlock [] in WADivTag(WATagBrush)>>with: {[self within: aBlock]} inst vars parent nil canvas a WARenderCanvas isClosed false attributes a WAHtmlAttributes * WADivTag(WATagBrush)>>with: self a WADivTag temps aBlock [] in MarsNavigationWidget>>renderWidgetOn: {[html div class: #content; id: #navmenu; with: ...etc... inst vars parent nil canvas a WARenderCanvas isClosed false attributes a WAHtmlAttributes * MarsNavigationWidget>>renderWidgetOn: self a MarsNavigationWidget temps html a WARenderCanvas inst vars decoration a WAStateHolder(a MarsNavigationWidget) properties a Dictionary(a MAToOneRelationDescription label: 'Navigation' comment: nil->nil ) context a PRContext stucture: 'Hondana' command: 'View' adminSpool a PRTreeWidget * MarsNavigationWidget(PRWidget)>>renderContentOn: self a MarsNavigationWidget temps html a WARenderCanvas inst vars decoration a WAStateHolder(a MarsNavigationWidget) properties a Dictionary(a MAToOneRelationDescription label: 'Navigation' comment: nil->nil ) context a PRContext stucture: 'Hondana' command: 'View' adminSpool a PRTreeWidget * MarsNavigationWidget(WAPresenter)>>renderWithContext: self a MarsNavigationWidget temps aRenderingContext a WARenderingContext html a WARenderCanvas callbacks a WACallbackRegistry inst vars decoration a WAStateHolder(a MarsNavigationWidget) properties a Dictionary(a MAToOneRelationDescription label: 'Navigation' comment: nil->nil ) context a PRContext stucture: 'Hondana' command: 'View' adminSpool a PRTreeWidget * [] in MarsNavigationWidget(WAComponent)>>renderOn: {[:each | each renderWithContext: aRenderer context]} self a MarsNavigationWidget temps aRenderer a WARenderCanvas each a MarsNavigationWidget inst vars decoration a WAStateHolder(a MarsNavigationWidget) properties a Dictionary(a MAToOneRelationDescription label: 'Navigation' comment: nil->nil ) context a PRContext stucture: 'Hondana' command: 'View' adminSpool a PRTreeWidget * MarsNavigationWidget(WAComponent)>>decorationChainDo: self a MarsNavigationWidget temps aBlock [] in MarsNavigationWidget(WAComponent)>>renderOn: {[:each | each renderWithContext: aRenderer conte...etc... inst vars decoration a WAStateHolder(a MarsNavigationWidget) properties a Dictionary(a MAToOneRelationDescription label: 'Navigation' comment: nil->nil ) context a PRContext stucture: 'Hondana' command: 'View' adminSpool a PRTreeWidget * MarsNavigationWidget(WAComponent)>>renderOn: self a MarsNavigationWidget temps aRenderer a WARenderCanvas each a MarsNavigationWidget inst vars decoration a WAStateHolder(a MarsNavigationWidget) properties a Dictionary(a MAToOneRelationDescription label: 'Navigation' comment: nil->nil ) context a PRContext stucture: 'Hondana' command: 'View' adminSpool a PRTreeWidget * WARenderCanvas(WACanvas)>>render: self a WARenderCanvas temps anObject a MarsNavigationWidget inst vars currentBrush nil parentBrush nil painter a MarsPierFrame context a WARenderingContext callbacks a WACallbackRegistry * PRViewRenderer>>visitComponent: self a PRViewRenderer temps anObject a PRComponent name: 'navigation' inst vars escaper nil component a MarsPierFrame html a WARenderCanvas visited an OrderedCollection(a PRPage name: 'environment' a PRComponent name: 'navigation') withinEnvironment true minimumHeaderLevel 1 currentHeaderLevel 1 * PRComponent>>accept: self a PRComponent name: 'navigation' temps aVisitor a PRViewRenderer inst vars properties nil decorations an Array(a PUSecurity) parent a PRPage name: 'environment' name 'navigation' title 'Navigation' tags #() componentClass MarsNavigationWidget settings a Dictionary() * PRComponent(Object)>>acceptDecorated: self a PRComponent name: 'navigation' temps aVisitor a PRViewRenderer inst vars properties nil decorations an Array(a PUSecurity) parent a PRPage name: 'environment' name 'navigation' title 'Navigation' tags #() componentClass MarsNavigationWidget settings a Dictionary() * [] in PRComponent(PRDecorated)>>acceptDecorated: {[:each | super acceptDecorated: aVisitor]} self a PRComponent name: 'navigation' temps aVisitor a PRViewRenderer each a PRComponent name: 'navigation' inst vars properties nil decorations an Array(a PUSecurity) parent a PRPage name: 'environment' name 'navigation' title 'Navigation' tags #() componentClass MarsNavigationWidget settings a Dictionary() * PRComponent(PRDecorated)>>decorationsDo:ownerDo: self a PRComponent name: 'navigation' 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 'navigation' title 'Navigation' tags #() componentClass MarsNavigationWidget settings a Dictionary() * PRComponent(PRDecorated)>>acceptDecorated: self a PRComponent name: 'navigation' temps aVisitor a PRViewRenderer each a PRComponent name: 'navigation' inst vars properties nil decorations an Array(a PUSecurity) parent a PRPage name: 'environment' name 'navigation' title 'Navigation' tags #() componentClass MarsNavigationWidget settings a Dictionary() * PRViewRenderer(PRVisitor)>>visit: self a PRViewRenderer temps anObject a PRComponent name: 'navigation' inst vars escaper nil component a MarsPierFrame html a WARenderCanvas visited an OrderedCollection(a PRPage name: 'environment' a PRComponent name: 'navigation') withinEnvironment true minimumHeaderLevel 1 currentHeaderLevel 1 * PRViewRenderer(PRDeepRenderer)>>visitInternalLinkEmbed: self a PRViewRenderer temps anObject a PRInternalLink inst vars escaper nil component a MarsPierFrame html a WARenderCanvas visited an OrderedCollection(a PRPage name: 'environment' a PRComponent name: 'navigation') 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 MarsPierFrame html a WARenderCanvas visited an OrderedCollection(a PRPage name: 'environment' a PRComponent name: 'navigation') 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 MarsPierFrame html a WARenderCanvas visited an OrderedCollection(a PRPage name: 'environment' a PRComponent name: 'navigation') withinEnvironment true minimumHeaderLevel 1 currentHeaderLevel 1 * PRViewRenderer>>visitInternalLinkEmbed: self a PRViewRenderer temps anObject a PRInternalLink inst vars escaper nil component a MarsPierFrame html a WARenderCanvas visited an OrderedCollection(a PRPage name: 'environment' a PRComponent name: 'navigation') 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 MarsPierFrame html a WARenderCanvas visited an OrderedCollection(a PRPage name: 'environment' a PRComponent name: 'navigation') 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: 'navigation' aBlock [] in PRViewRenderer(PRDeepRenderer)>>visitInternalLink: {[self visitInternalLinkEmbed: anObject]} inst vars escaper nil component a MarsPierFrame html a WARenderCanvas visited an OrderedCollection(a PRPage name: 'environment' a PRComponent name: 'navigation') withinEnvironment true minimumHeaderLevel 1 currentHeaderLevel 1 * PRViewRenderer(PRDeepRenderer)>>visitInternalLink: self a PRViewRenderer temps anObject a PRInternalLink inst vars escaper nil component a MarsPierFrame html a WARenderCanvas visited an OrderedCollection(a PRPage name: 'environment' a PRComponent name: 'navigation') withinEnvironment true minimumHeaderLevel 1 currentHeaderLevel 1 * PRInternalLink>>accept: self a PRInternalLink temps aVisitor a PRViewRenderer inst vars properties nil children #() reference 'navigation' embedded true owner a PRPage name: 'environment' target a PRComponent name: 'navigation' anchor nil * PRInternalLink(Object)>>acceptDecorated: self a PRInternalLink temps aVisitor a PRViewRenderer inst vars properties nil children #() reference 'navigation' embedded true owner a PRPage name: 'environment' target a PRComponent name: 'navigation' anchor nil * PRViewRenderer(PRVisitor)>>visit: self a PRViewRenderer temps anObject a PRInternalLink inst vars escaper nil component a MarsPierFrame html a WARenderCanvas visited an OrderedCollection(a PRPage name: 'environment' a PRComponent name: 'navigation') withinEnvironment true minimumHeaderLevel 1 currentHeaderLevel 1 * [] in PRViewRenderer(PRVisitor)>>visitAll: {[:each | self visit: each]} self a PRViewRenderer temps aCollection an Array(a PRInternalLink a PRInternalLink) each a PRInternalLink inst vars escaper nil component a MarsPierFrame html a WARenderCanvas visited an OrderedCollection(a PRPage name: 'environment' a PRComponent name: 'navigation') withinEnvironment true minimumHeaderLevel 1 currentHeaderLevel 1 * Array(SequenceableCollection)>>do: self an Array(a PRInternalLink a PRInternalLink) temps aBlock [] in PRViewRenderer(PRVisitor)>>visitAll: {[:each | self visit: each]} index 1 indexLimiT 2 * PRViewRenderer(PRVisitor)>>visitAll: self a PRViewRenderer temps aCollection an Array(a PRInternalLink a PRInternalLink) each a PRInternalLink inst vars escaper nil component a MarsPierFrame html a WARenderCanvas visited an OrderedCollection(a PRPage name: 'environment' a PRComponent name: 'navigation') withinEnvironment true minimumHeaderLevel 1 currentHeaderLevel 1 * PRViewRenderer(PRVisitor)>>visitDocumentGroup: self a PRViewRenderer temps anObject a PRParagraph inst vars escaper nil component a MarsPierFrame html a WARenderCanvas visited an OrderedCollection(a PRPage name: 'environment' a PRComponent name: 'navigation') withinEnvironment true minimumHeaderLevel 1 currentHeaderLevel 1 * PRViewRenderer(PRVisitor)>>visitParagraph: self a PRViewRenderer temps anObject a PRParagraph inst vars escaper nil component a MarsPierFrame html a WARenderCanvas visited an OrderedCollection(a PRPage name: 'environment' a PRComponent name: 'navigation') withinEnvironment true minimumHeaderLevel 1 currentHeaderLevel 1 * PRParagraph>>accept: self a PRParagraph temps aVisitor a PRViewRenderer inst vars properties nil children an Array(a PRInternalLink a PRInternalLink) * PRParagraph(Object)>>acceptDecorated: self a PRParagraph temps aVisitor a PRViewRenderer inst vars properties nil children an Array(a PRInternalLink a PRInternalLink) * PRViewRenderer(PRVisitor)>>visit: self a PRViewRenderer temps anObject a PRParagraph inst vars escaper nil component a MarsPierFrame html a WARenderCanvas visited an OrderedCollection(a PRPage name: 'environment' a PRComponent name: 'navigation') withinEnvironment true minimumHeaderLevel 1 currentHeaderLevel 1 * [] in PRViewRenderer(PRVisitor)>>visitAll: {[:each | self visit: each]} self a PRViewRenderer temps aCollection an Array(a PRParagraph) each a PRParagraph inst vars escaper nil component a MarsPierFrame html a WARenderCanvas visited an OrderedCollection(a PRPage name: 'environment' a PRComponent name: 'navigation') withinEnvironment true minimumHeaderLevel 1 currentHeaderLevel 1 * Array(SequenceableCollection)>>do: self an Array(a PRParagraph) temps aBlock [] in PRViewRenderer(PRVisitor)>>visitAll: {[:each | self visit: each]} index 1 indexLimiT 1 * PRViewRenderer(PRVisitor)>>visitAll: self a PRViewRenderer temps aCollection an Array(a PRParagraph) each a PRParagraph inst vars escaper nil component a MarsPierFrame html a WARenderCanvas visited an OrderedCollection(a PRPage name: 'environment' a PRComponent name: 'navigation') withinEnvironment true minimumHeaderLevel 1 currentHeaderLevel 1 * PRViewRenderer(PRVisitor)>>visitDocumentGroup: self a PRViewRenderer temps anObject a PRDocument inst vars escaper nil component a MarsPierFrame html a WARenderCanvas visited an OrderedCollection(a PRPage name: 'environment' a PRComponent name: 'navigation') withinEnvironment true minimumHeaderLevel 1 currentHeaderLevel 1 * PRViewRenderer(PRVisitor)>>visitDocument: self a PRViewRenderer temps anObject a PRDocument inst vars escaper nil component a MarsPierFrame html a WARenderCanvas visited an OrderedCollection(a PRPage name: 'environment' a PRComponent name: 'navigation') withinEnvironment true minimumHeaderLevel 1 currentHeaderLevel 1 * PRDocument>>accept: self a PRDocument temps aVisitor a PRViewRenderer inst vars properties nil children an Array(a PRParagraph) * PRDocument(Object)>>acceptDecorated: self a PRDocument temps aVisitor a PRViewRenderer inst vars properties nil children an Array(a PRParagraph) * PRViewRenderer(PRVisitor)>>visit: self a PRViewRenderer temps anObject a PRDocument inst vars escaper nil component a MarsPierFrame html a WARenderCanvas visited an OrderedCollection(a PRPage name: 'environment' a PRComponent name: 'navigation') withinEnvironment true minimumHeaderLevel 1 currentHeaderLevel 1 * PRViewRenderer(PRDeepRenderer)>>visitCase: self a PRViewRenderer temps anObject a PRPage name: 'environment' inst vars escaper nil component a MarsPierFrame html a WARenderCanvas visited an OrderedCollection(a PRPage name: 'environment' a PRComponent name: 'navigation') 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 MarsPierFrame html a WARenderCanvas visited an OrderedCollection(a PRPage name: 'environment' a PRComponent name: 'navigation') 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 MarsPierFrame html a WARenderCanvas visited an OrderedCollection(a PRPage name: 'environment' a PRComponent name: 'navigation') withinEnvironment true minimumHeaderLevel 1 currentHeaderLevel 1 * PRViewRenderer>>visitCase: self a PRViewRenderer temps anObject a PRPage name: 'environment' inst vars escaper nil component a MarsPierFrame html a WARenderCanvas visited an OrderedCollection(a PRPage name: 'environment' a PRComponent name: 'navigation') withinEnvironment true minimumHeaderLevel 1 currentHeaderLevel 1 * PRViewRenderer(PRVisitor)>>visitPage: self a PRViewRenderer temps anObject a PRPage name: 'environment' inst vars escaper nil component a MarsPierFrame html a WARenderCanvas visited an OrderedCollection(a PRPage name: 'environment' a PRComponent name: 'navigation') 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 #() 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 #() 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 #() 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 #() 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 #() document a PRDocument * PRViewRenderer(PRVisitor)>>visit: self a PRViewRenderer temps anObject a PRPage name: 'environment' inst vars escaper nil component a MarsPierFrame html a WARenderCanvas visited an OrderedCollection(a PRPage name: 'environment' a PRComponent name: 'navigation') withinEnvironment true minimumHeaderLevel 1 currentHeaderLevel 1 * PRViewRenderer(PRVisitor)>>start: self a PRViewRenderer temps anObject a PRPage name: 'environment' inst vars escaper nil component a MarsPierFrame html a WARenderCanvas visited an OrderedCollection(a PRPage name: 'environment' a PRComponent name: 'navigation') withinEnvironment true minimumHeaderLevel 1 currentHeaderLevel 1 * PRViewRenderer(PRDeepRenderer)>>start: self a PRViewRenderer temps anObject a PRPage name: 'environment' inst vars escaper nil component a MarsPierFrame html a WARenderCanvas visited an OrderedCollection(a PRPage name: 'environment' a PRComponent name: 'navigation') withinEnvironment true minimumHeaderLevel 1 currentHeaderLevel 1 * PRViewRenderer>>start: self a PRViewRenderer temps anObject a PRPage name: 'environment' inst vars escaper nil component a MarsPierFrame html a WARenderCanvas visited an OrderedCollection(a PRPage name: 'environment' a PRComponent name: 'navigation') withinEnvironment true minimumHeaderLevel 1 currentHeaderLevel 1 * PRViewRenderer(PRRenderer)>>start:in:on: self a PRViewRenderer temps anObject a PRPage name: 'environment' aComponent a MarsPierFrame aRenderer a WARenderCanvas inst vars escaper nil component a MarsPierFrame html a WARenderCanvas visited an OrderedCollection(a PRPage name: 'environment' a PRComponent name: 'navigation') withinEnvironment true minimumHeaderLevel 1 currentHeaderLevel 1 * MarsPierFrame>>renderContentOn: self a MarsPierFrame temps html a WARenderCanvas inst vars decoration a WAStateHolder(a MarsPierFrame) context a PRContext stucture: 'Hondana' command: 'View' * MarsPierFrame(WAPresenter)>>renderWithContext: self a MarsPierFrame temps aRenderingContext a WARenderingContext html a WARenderCanvas callbacks a WACallbackRegistry inst vars decoration a WAStateHolder(a MarsPierFrame) context a PRContext stucture: 'Hondana' command: 'View' * [] in MarsPierFrame(PRPierFrame)>>renderWithContext: {[super renderWithContext: aContext]} self a MarsPierFrame temps aContext a WARenderingContext inst vars decoration a WAStateHolder(a MarsPierFrame) context a PRContext stucture: 'Hondana' command: 'View' * BlockContext>>on:do: self [] in MarsPierFrame(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 MarsPierFrame(PRPierFrame)>>renderWithContext: * PRCurrentContext class>>use:during: self PRCurrentContext temps anObject a MarsPierFrame aBlock [] in MarsPierFrame(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 * MarsPierFrame(PRPierFrame)>>withContextDo: self a MarsPierFrame temps aBlock [] in MarsPierFrame(PRPierFrame)>>renderWithContext: {[super renderWithContext: aContext]} inst vars decoration a WAStateHolder(a MarsPierFrame) context a PRContext stucture: 'Hondana' command: 'View' * MarsPierFrame(PRPierFrame)>>renderWithContext: self a MarsPierFrame temps aContext a WARenderingContext inst vars decoration a WAStateHolder(a MarsPierFrame) context a PRContext stucture: 'Hondana' command: 'View' * [] in MarsPierFrame(WAComponent)>>renderOn: {[:each | each renderWithContext: aRenderer context]} self a MarsPierFrame temps aRenderer a WARenderCanvas each a MarsPierFrame inst vars decoration a WAStateHolder(a MarsPierFrame) context a PRContext stucture: 'Hondana' command: 'View' * MarsPierFrame(WAComponent)>>decorationChainDo: self a MarsPierFrame temps aBlock [] in MarsPierFrame(WAComponent)>>renderOn: {[:each | each renderWithContext: aRenderer context]} inst vars decoration a WAStateHolder(a MarsPierFrame) context a PRContext stucture: 'Hondana' command: 'View' * MarsPierFrame(WAComponent)>>renderOn: self a MarsPierFrame temps aRenderer a WARenderCanvas each a MarsPierFrame inst vars decoration a WAStateHolder(a MarsPierFrame) context a PRContext stucture: 'Hondana' command: 'View' * WARenderCanvas(WACanvas)>>render: self a WARenderCanvas temps anObject a MarsPierFrame 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 MarsPierFrame showHalos a WAStateHolder(false) processTime 0 renderTime nil 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 MarsPierFrame showHalos a WAStateHolder(false) processTime 0 renderTime nil 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 MarsPierFrame showHalos a WAStateHolder(false) processTime 0 renderTime nil deprecated a Dictionary() * Time class>>millisecondsToRun: self Time temps timedBlock [] in WAToolFrame>>renderChildOn: {[self deprecatedApi: [html render: contents] on: html]} initialMilliseconds 1652725 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 MarsPierFrame showHalos a WAStateHolder(false) processTime 0 renderTime nil 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 MarsPierFrame showHalos a WAStateHolder(false) processTime 0 renderTime nil 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: * WADivTag(WATagBrush)>>within: self a WADivTag temps aBlock [] in WAToolFrame>>renderContentOn: {[self renderChildOn: html]} inst vars parent nil canvas a WARenderCanvas isClosed false attributes a WAHtmlAttributes * [] in WADivTag(WATagBrush)>>with: {[self within: aBlock]} self a WADivTag temps aBlock [] in WAToolFrame>>renderContentOn: {[self renderChildOn: html]} inst vars parent nil canvas a WARenderCanvas isClosed false attributes a WAHtmlAttributes * BlockContext>>renderOn: self [] in WADivTag(WATagBrush)>>with: {[self within: aBlock]} temps aRenderer a WARenderCanvas inst vars sender BlockContext>>renderOn: pc 41 stackp 0 nargs 0 startpc 38 home WADivTag(WATagBrush)>>with: * WARenderCanvas(WACanvas)>>nest: self a WARenderCanvas temps aBlock [] in WADivTag(WATagBrush)>>with: {[self within: aBlock]} 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 within: aBlock]} inst vars parent nil canvas a WARenderCanvas isClosed false attributes a WAHtmlAttributes * WADivTag(WATagBrush)>>with: self a WADivTag temps aBlock [] in WAToolFrame>>renderContentOn: {[self renderChildOn: html]} inst vars parent nil canvas a WARenderCanvas isClosed false attributes a WAHtmlAttributes * WAToolFrame>>renderContentOn: self a WAToolFrame temps html a WARenderCanvas inst vars decoration a WAStateHolder(a WAToolFrame) contents a MarsPierFrame showHalos a WAStateHolder(false) processTime 0 renderTime nil 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 MarsPierFrame showHalos a WAStateHolder(false) processTime 0 renderTime nil deprecated a Dictionary() * [] in MarsRender(WARender)>>buildResponse {[:ea | ea renderWithContext: context]} self a MarsRender temps response a WAResponse document a WAHtmlStreamDocument 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 MarsRender(WARender)>>buildResponse {[:ea | ea renderWithContext: context]} inst vars decoration a WAStateHolder(a WAToolFrame) contents a MarsPierFrame showHalos a WAStateHolder(false) processTime 0 renderTime nil deprecated a Dictionary() * MarsRender(WARender)>>buildResponse self a MarsRender temps response a WAResponse document a WAHtmlStreamDocument ea a WAToolFrame inst vars root a WAToolFrame context a WARenderingContext request nil url a WAUrl * [] in MarsRender(WARender)>>render {[:u | url := u. self buildResponse]} self a MarsRender temps u a WAUrl inst vars root a WAToolFrame context a WARenderingContext request nil url a WAUrl * [] in MBSession(WASession)>>respond: {[:cc | url := self actionUrlForContinuation: cc. response := responseBlock...]} self a MBSession temps responseBlock [] in MarsRender(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: 'hondana' lastAccess 3354801994 expired false timeout 1800 continuations a WALRUCache escapeContinuation [] in MBSession(WASession)>>respond: {[:value | snapshotHolder contents: state snapshot. oldEscape...etc... monitor a WAProcessMonitor state a WAStateRegistry currentRequest a WARequest scripts nil jumpTo nil cookiesEnabled true scriptsOnResize nil randomKey 4 * ResponseContinuation class(Continuation class)>>currentDo: self ResponseContinuation temps aBlock [] in MBSession(WASession)>>respond: {[:cc | url := self actionUrlForContinuation: cc. response :=...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 * MBSession(WASession)>>respond: self a MBSession temps responseBlock [] in MarsRender(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: 'hondana' lastAccess 3354801994 expired false timeout 1800 continuations a WALRUCache escapeContinuation [] in MBSession(WASession)>>respond: {[:value | snapshotHolder contents: state snapshot. oldEscape...etc... monitor a WAProcessMonitor state a WAStateRegistry currentRequest a WARequest scripts nil jumpTo nil cookiesEnabled true scriptsOnResize nil randomKey 4 * MarsRender(WARender)>>render self a MarsRender temps u a WAUrl inst vars root a WAToolFrame context a WARenderingContext request nil url a WAUrl * [] in MarsRender(WARender)>>go {[self render]} self a MarsRender temps inst vars root a WAToolFrame context a WARenderingContext request nil url a WAUrl * BlockContext>>on:do: self [] in MarsRender(WARender)>>go {[self render]} temps exception WARenderNotification handlerAction [] in MarsRender(WARender)>>withRenderNowHandler: {[:n | n]} handlerActive true inst vars sender BlockContext>>on:do: pc 47 stackp 0 nargs 0 startpc 45 home MarsRender(WARender)>>go * MarsRender(WARender)>>withRenderNowHandler: self a MarsRender temps aBlock [] in MarsRender(WARender)>>go {[self render]} n nil inst vars root a WAToolFrame context a WARenderingContext request nil url a WAUrl * [] in MarsRender(WARender)>>go {[self withRenderNowHandler: [self render]. self shouldRedirect ifTrue: ...]} self a MarsRender temps inst vars root a WAToolFrame context a WARenderingContext request nil url a WAUrl * BlockContext>>on:do: self [] in MarsRender(WARender)>>go {[self withRenderNowHandler: [self render]. self shouldRedirect ...etc... temps exception WAPageExpired handlerAction [] in MarsRender(WARender)>>withPageExpiredHandler: {[:n | n]} handlerActive true inst vars sender BlockContext>>on:do: pc 49 stackp 0 nargs 0 startpc 39 home MarsRender(WARender)>>go * MarsRender(WARender)>>withPageExpiredHandler: self a MarsRender temps aBlock [] in MarsRender(WARender)>>go {[self withRenderNowHandler: [self render]. self shouldRedirect ...etc... n nil inst vars root a WAToolFrame context a WARenderingContext request nil url a WAUrl * MarsRender(WARender)>>go self a MarsRender temps inst vars root a WAToolFrame context a WARenderingContext request nil url a WAUrl * [] in MarsRenderLoop>>run {[(MarsRender new root: root) go]} self a MarsRenderLoop temps inst vars root a WAToolFrame * BlockContext>>repeat self [] in MarsRenderLoop>>run {[(MarsRender new root: root) go]} temps inst vars sender BlockContext>>repeat pc 39 stackp 0 nargs 0 startpc 34 home MarsRenderLoop>>run * MarsRenderLoop>>run self a MarsRenderLoop temps inst vars root a WAToolFrame * MarsPierMain>>start: self a MarsPierMain temps aRequest a WARequest root a MarsPierFrame each a PRTreeWidget inst vars context a PRContext stucture: 'Hondana' command: 'View' * MBSession(WASession)>>start: self a MBSession temps aRequest a WARequest inst vars parent a WAApplication named: 'hondana' lastAccess 3354801994 expired false timeout 1800 continuations a WALRUCache escapeContinuation [] in MBSession(WASession)>>respond: {[:value | snapshotHolder contents: state snapshot. oldEscape...etc... monitor a WAProcessMonitor state a WAStateRegistry currentRequest a WARequest scripts nil jumpTo nil cookiesEnabled true scriptsOnResize nil randomKey 4 * [] in MBSession(WASession)>>performRequest: {[^ self start: aRequest]} self a MBSession temps aRequest a WARequest key nil continuation nil inst vars parent a WAApplication named: 'hondana' lastAccess 3354801994 expired false timeout 1800 continuations a WALRUCache escapeContinuation [] in MBSession(WASession)>>respond: {[:value | snapshotHolder contents: state snapshot. oldEscape...etc... monitor a WAProcessMonitor state a WAStateRegistry currentRequest a WARequest scripts nil jumpTo nil cookiesEnabled true scriptsOnResize nil randomKey 4 * Dictionary>>at:ifAbsent: self a Dictionary() temps key '_c' aBlock [] in MBSession(WASession)>>performRequest: {[^ self start: aRequest]} assoc nil inst vars tally 0 array #(nil nil nil nil nil) * MBSession(WASession)>>performRequest: self a MBSession temps aRequest a WARequest key nil continuation nil inst vars parent a WAApplication named: 'hondana' lastAccess 3354801994 expired false timeout 1800 continuations a WALRUCache escapeContinuation [] in MBSession(WASession)>>respond: {[:value | snapshotHolder contents: state snapshot. oldEscape...etc... monitor a WAProcessMonitor state a WAStateRegistry currentRequest a WARequest scripts nil jumpTo nil cookiesEnabled true scriptsOnResize nil randomKey 4 * [] in MBSession(WASession)>>responseForRequest: {[self performRequest: aRequest]} self a MBSession temps aRequest a WARequest inst vars parent a WAApplication named: 'hondana' lastAccess 3354801994 expired false timeout 1800 continuations a WALRUCache escapeContinuation [] in MBSession(WASession)>>respond: {[:value | snapshotHolder contents: state snapshot. oldEscape...etc... monitor a WAProcessMonitor state a WAStateRegistry currentRequest a WARequest scripts nil jumpTo nil cookiesEnabled true scriptsOnResize nil randomKey 4 * BlockContext>>on:do: self [] in MBSession(WASession)>>responseForRequest: {[self performRequest: aRequest]} temps exception Error handlerAction [] in MBSession(WASession)>>withErrorHandler: {[:e | self errorHandler handleError: e. WAPageExpir...etc... handlerActive false inst vars sender BlockContext>>on:do: pc 58 stackp 0 nargs 0 startpc 55 home MBSession(WASession)>>responseForRequest: * [] in MBSession(WASession)>>withErrorHandler: {[aBlock on: Error do: [:e | self errorHandler handleError: e. WAP...]} self a MBSession temps aBlock [] in MBSession(WASession)>>responseForRequest: {[self performRequest: aRequest]} e Error: key not found w nil inst vars parent a WAApplication named: 'hondana' lastAccess 3354801994 expired false timeout 1800 continuations a WALRUCache escapeContinuation [] in MBSession(WASession)>>respond: {[:value | snapshotHolder contents: state snapshot. oldEscape...etc... monitor a WAProcessMonitor state a WAStateRegistry currentRequest a WARequest scripts nil jumpTo nil cookiesEnabled true scriptsOnResize nil randomKey 4 * BlockContext>>on:do: self [] in MBSession(WASession)>>withErrorHandler: {[aBlock on: Error do: [:e | self errorHandler...etc... temps exception Warning handlerAction [] in MBSession(WASession)>>withErrorHandler: {[:w | self errorHandler handleWarning: w. WAPageExp...etc... handlerActive true inst vars sender BlockContext>>on:do: pc 67 stackp 0 nargs 0 startpc 50 home MBSession(WASession)>>withErrorHandler: * MBSession(WASession)>>withErrorHandler: self a MBSession temps aBlock [] in MBSession(WASession)>>responseForRequest: {[self performRequest: aRequest]} e Error: key not found w nil inst vars parent a WAApplication named: 'hondana' lastAccess 3354801994 expired false timeout 1800 continuations a WALRUCache escapeContinuation [] in MBSession(WASession)>>respond: {[:value | snapshotHolder contents: state snapshot. oldEscape...etc... monitor a WAProcessMonitor state a WAStateRegistry currentRequest a WARequest scripts nil jumpTo nil cookiesEnabled true scriptsOnResize nil randomKey 4 * [] in MBSession(WASession)>>responseForRequest: {[self withErrorHandler: [self performRequest: aRequest]]} self a MBSession temps aRequest a WARequest inst vars parent a WAApplication named: 'hondana' lastAccess 3354801994 expired false timeout 1800 continuations a WALRUCache escapeContinuation [] in MBSession(WASession)>>respond: {[:value | snapshotHolder contents: state snapshot. oldEscape...etc... monitor a WAProcessMonitor state a WAStateRegistry currentRequest a WARequest scripts nil jumpTo nil cookiesEnabled true scriptsOnResize nil randomKey 4 * BlockContext>>on:do: self [] in MBSession(WASession)>>responseForRequest: {[self withErrorHandler: [self performRequest: aRe...etc... 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 MBSession(WASession)>>responseForRequest: * WACurrentSession class(WADynamicVariable class)>>use:during: self WACurrentSession temps anObject a MBSession aBlock [] in MBSession(WASession)>>responseForRequest: {[self withErrorHandler: [self performRequest: aRe...etc... 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 MBSession(WASession)>>responseForRequest: {[WACurrentSession use: self during: [self withErrorHandler: [self pe...]} self a MBSession temps aRequest a WARequest inst vars parent a WAApplication named: 'hondana' lastAccess 3354801994 expired false timeout 1800 continuations a WALRUCache escapeContinuation [] in MBSession(WASession)>>respond: {[:value | snapshotHolder contents: state snapshot. oldEscape...etc... monitor a WAProcessMonitor state a WAStateRegistry currentRequest a WARequest scripts nil jumpTo nil cookiesEnabled true scriptsOnResize nil randomKey 4 * [] in MBSession(WASession)>>withEscapeContinuation: {[:cc | escapeContinuation := cc. aBlock value. self pageIntentionallyLeft...]} self a MBSession temps aBlock [] in MBSession(WASession)>>responseForRequest: {[WACurrentSession use: self during: [self w...etc... cc an EscapeContinuation inst vars parent a WAApplication named: 'hondana' lastAccess 3354801994 expired false timeout 1800 continuations a WALRUCache escapeContinuation [] in MBSession(WASession)>>respond: {[:value | snapshotHolder contents: state snapshot. oldEscape...etc... monitor a WAProcessMonitor state a WAStateRegistry currentRequest a WARequest scripts nil jumpTo nil cookiesEnabled true scriptsOnResize nil randomKey 4 * EscapeContinuation class(Continuation class)>>currentDo: self EscapeContinuation temps aBlock [] in MBSession(WASession)>>withEscapeContinuation: {[:cc | escapeContinuation := cc. aBlock value...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 * MBSession(WASession)>>withEscapeContinuation: self a MBSession temps aBlock [] in MBSession(WASession)>>responseForRequest: {[WACurrentSession use: self during: [self w...etc... cc an EscapeContinuation inst vars parent a WAApplication named: 'hondana' lastAccess 3354801994 expired false timeout 1800 continuations a WALRUCache escapeContinuation [] in MBSession(WASession)>>respond: {[:value | snapshotHolder contents: state snapshot. oldEscape...etc... monitor a WAProcessMonitor state a WAStateRegistry currentRequest a WARequest scripts nil jumpTo nil cookiesEnabled true scriptsOnResize nil randomKey 4 * MBSession(WASession)>>responseForRequest: self a MBSession temps aRequest a WARequest inst vars parent a WAApplication named: 'hondana' lastAccess 3354801994 expired false timeout 1800 continuations a WALRUCache escapeContinuation [] in MBSession(WASession)>>respond: {[:value | snapshotHolder contents: state snapshot. oldEscape...etc... monitor a WAProcessMonitor state a WAStateRegistry currentRequest a WARequest scripts nil jumpTo nil cookiesEnabled true scriptsOnResize nil randomKey 4 * [] in MBSession(WASession)>>incomingRequest: {[self responseForRequest: aRequest]} self a MBSession temps aRequest a WARequest error nil inst vars parent a WAApplication named: 'hondana' lastAccess 3354801994 expired false timeout 1800 continuations a WALRUCache escapeContinuation [] in MBSession(WASession)>>respond: {[:value | snapshotHolder contents: state snapshot. oldEscape...etc... monitor a WAProcessMonitor state a WAStateRegistry currentRequest a WARequest scripts nil jumpTo nil cookiesEnabled true scriptsOnResize nil randomKey 4 * BlockContext>>on:do: self [] in MBSession(WASession)>>incomingRequest: {[self responseForRequest: aRequest]} temps exception Error handlerAction [] in MBSession(WASession)>>incomingRequest: {[:error | self errorHandler internalError: error]} handlerActive true inst vars sender BlockContext>>on:do: pc 98 stackp 0 nargs 0 startpc 95 home MBSession(WASession)>>incomingRequest: * [] in WAProcessMonitor>>critical:ifError: {[value := aBlock on: Error do: errorBlock]} self a WAProcessMonitor temps aBlock [] in MBSession(WASession)>>incomingRequest: {[self responseForRequest: aRequest]} errorBlock [] in MBSession(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 MBSession(WASession)>>incomingRequest: {[self responseForRequest: aRequest]} errorBlock [] in MBSession(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: