WAInspector

• canInspect:
• children
• chooseObject:named:
• initialize
• renderContentOn:
• renderMembersOn:
• renderRowForObject:named:on:

• object
• object:

• on:

	^ anObject isNumber or: [(Array with: nil with: true with: false) includes: anObject]

	^ Array with: path

	path pushSegment: anObject name: aString

	path _ WAPath new

 
	html render: path.
	html heading: (self object printStringLimitedTo: 50).
	html text: 'Identity Hash: ', self object identityHash asString; break; break.
	self renderMembersOn: html.

 
	| members |
	members := self object inspectorFields.
	members isEmpty ifTrue: [^self].
	html bold: 'Members: '.
	html attributeAt: 'border' put: 1.
	html table: 
			[members associationsDo: 
					[:assoc | 
					self 
						renderRowForObject: assoc value
						named: assoc key
						on: html]]

	html tableRow: [
		html tableData: [ 
			(self canInspect: anObject)
				ifTrue: [html text: aString]
				ifFalse: [html anchorWithAction: [self chooseObject: anObject named: aString] text: aString ]
		].
		html tableData: [ html text: (anObject printStringLimitedTo: 100) ]
	]
	

	^ path currentSegment

 
	path pushSegment: anObject name: anObject printString

	^ self new object: anObject