WAWalkback

• debug
• exception:
• renderContentOn:
• renderObject:labelled:on:
• renderStackFrame:on:
• renderWalkbackOn:

	self answer

	exception _ anException

	html anchorWithAction: [self debug] text: 'Debug'.
	self renderWalkbackOn: html.

	| objectString |
	[objectString _ (SeasidePlatformSupport isProxy: anObject)
					ifTrue: [anObject printString]
					ifFalse: [anObject printStringLimitedTo: 100]]
		on: Error
		do: [:err | objectString _ '<font color="FF0000">&lt;error in printStringLimitedTo:&gt;</font>'].
	html tableRowWithLabel: aString column: objectString.

	| receiver |
	html listItem: [
		html text: aContext fullPrintString.
		html blockquote: [ html table: [
			receiver := aContext receiver.
			self renderObject: receiver labelled: 'self' on: html.
			html tableRowWith: [html bold: 'temps'] span: 2.
			aContext tempNames withIndexDo:
			[:name :index |
			self renderObject: (aContext tempAt: index) labelled: name on: html].
			receiver isNil ifFalse: [
				((SeasidePlatformSupport isProxy: receiver) not and: [receiver class instSize > 0]) ifTrue:
					[html tableRowWith: [html bold: 'inst vars'] span: 2.
					receiver class allInstVarNames withIndexDo:
					[:name :index |
					self renderObject: (receiver instVarAt: index) labelled: name on: html]]].
		]]
	]

	|context|
	html heading: exception description.
	html unorderedList: [
		context _ thisContext. 
		[context receiver isKindOf: Exception] whileFalse: [context _ context sender].
		[context receiver isKindOf: Exception] whileTrue: [context _ context sender].
		[context notNil] whileTrue: [
			self renderStackFrame: context on: html.
			context _ context sender].
	]