WAMutableConfiguration

• clear
• clearValueForAttribute:
• initialize
• isMutable
• localValueAt:ifAbsent:
• localValues
• localValues:
• overrideAttribute:
• takeValue:forAttribute:
• valueAt:put:

InitialValue:

a Dictionary()

inferredType:

Dictionary

	values _ Dictionary new.

	values removeKey: anAttribute key ifAbsent: []

	super initialize.
	values _ Dictionary new

	^ true

	^ values at: aSymbol ifAbsent: errorBlock

	| dict |
	dict _ Dictionary new.
	self allAttributes do:
		[:attr | (self localValueAt: attr key ifAbsent: [nil])
			ifNotNilDo: [:value | dict at: attr key put: (attr stringForValue: value)]].
		
	^ dict

	self allAttributes do:
		[:attr | (aDictionary at: attr key ifAbsent: [nil])
			ifNotNilDo: [:string | self valueAt: attr key put: (attr valueFromString: string)]]

	self takeValue: (self valueForAttribute: anAttribute) forAttribute: anAttribute

	^ anObject ifNotNil: [values at: anAttribute key put: anObject]

	^ self takeValue: anObject forAttribute: (self attributeNamed: aSymbol)