'From etoys2.1 of 26 July 2007 [latest update: #1569] on 30 August 2007 at 12:07:28 am'!
"Change Set:		FixInspectProperty-sw-yo
Date:			29 August 2007
Author:			Yoshiki Ohshima

Fixes inspect property in the debug menu."!


!Morph methodsFor: 'debug and other' stamp: 'yo 8/29/2007 23:51'!
inspectMorphsProperties
	"Open an inspector on the properties of the morph"

	extension ifNil: [^ self inform: 'no properties to inspect, sorry' translated].
	extension inspectAllPropertiesOf: self! !


!MorphExtension methodsFor: '*green' stamp: 'yo 8/30/2007 00:03'!
inspectAllPropertiesOf: aMorph
	"Open an Inspector on all the properties.  This lets you see them but not in the initial instance actually modify them."

	| aDict |
	aDict _ otherProperties
		ifNil:
			[IdentityDictionary new]
		ifNotNil:
			[otherProperties copy].
	((self class allInstVarNames reject: [:e | e = 'otherProperties']) collect: [:e | e asSymbol]) do:
		[:var | (self instVarNamed: var) ifNotNilDo:
			[:val | aDict add: (var -> val)]].

	aDict inspectWithLabel: 'Properties of ', aMorph defaultLabelForInspector! !