WAComponent subclass: #DummyComponent
	instanceVariableNames: 'comp'
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Attributes-Test'!
!DummyComponent methodsFor: 'as yet unclassified' stamp: 'noha 4/3/2007 10:29'!
initialize
	| desc dummy |
	dummy := DummyObject new.
	desc := dummy description.
	desc componentRenderer: DummyRenderer.
	comp := desc asComponentOn: dummy.! !
!DummyComponent methodsFor: 'as yet unclassified' stamp: 'noha 4/3/2007 10:29'!
renderContentOn: html
	html render: comp! !
"-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "!
DummyComponent class
	instanceVariableNames: ''!
!DummyComponent class methodsFor: 'as yet unclassified' stamp: 'noha 4/3/2007 10:33'!
initialize
	super initialize.
	self registerAsApplication: 'attributes-test'! !

Object subclass: #DummyObject
	instanceVariableNames: 'dummy'
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Attributes-Test'!
!DummyObject methodsFor: 'as yet unclassified' stamp: 'noha 4/3/2007 10:15'!
dummy
	^ dummy! !
!DummyObject methodsFor: 'as yet unclassified' stamp: 'noha 4/3/2007 10:37'!
dummy: aDummy
	dummy := aDummy ! !
"-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "!
DummyObject class
	instanceVariableNames: ''!
!DummyObject class methodsFor: 'as yet unclassified' stamp: 'noha 4/3/2007 10:18'!
descriptionDummy
	| desc |
	desc := MAStringDescription selector: #dummy label: 'Dummy' priority: 10.
	desc attributes at: #dummyKey put: #dummyVal.
	^ desc! !

MAComponentRenderer subclass: #DummyRenderer
	instanceVariableNames: ''
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Attributes-Test'!
!DummyRenderer methodsFor: 'as yet unclassified' stamp: 'noha 4/3/2007 10:36'!
visitElementDescription: aDescription 
	| dummyVal |
	dummyVal := aDescription attributes
				at: #dummyKey
				ifAbsent: [''].
	html text: '(',aDescription asString, ') at: #dummyKey = ', dummyVal asString.
! !
DummyComponent initialize!