WAConfiguration

• name

• addAncestorsTo:linearization:
• allAncestors
• allAncestorsDo:
• allPotentialAncestors
• ancestors
• potentialAncestors
• withAllAncestorsDo:

• allAttributes
• attributeNamed:
• attributes
• groupedAttributes

• initialize

• hasAttributeNamed:
• hasLocalValueForAttribute:
• hasMutableAncestry
• inheritsFrom:
• isDeletable
• isMutable

• attributesAndValuesDo:
• inheritedValueAndSourceAt:do:
• localValueAt:ifAbsent:
• lookupValueAt:
• valueAt:
• valueForAttribute:

• readUserConfigurationsFrom:
• writeUserConfigurationsOn:

• new

	^ self subclassResponsibility

	(linearCollection includes: self)
		ifTrue: [tempCollection do: [:ea | linearCollection add: ea before: self].
				tempCollection removeAllSuchThat: [:ea | true]]
		ifFalse: [tempCollection add: self.
				self ancestors isEmpty
					ifTrue: [linearCollection addAll: tempCollection.
							tempCollection removeAllSuchThat: [:ea | true]]
					ifFalse: [self ancestors do: [:ea | ea addAncestorsTo: tempCollection linearization: linearCollection]]]

	| temp linear |
	temp _ OrderedCollection new.
	linear _ OrderedCollection new.
	self addAncestorsTo: temp linearization: linear.
	^ linear allButFirst asArray

	self allAncestors do: aBlock

	^ #()

	^ #()

	^ self allPotentialAncestors reject: [:ea | ea = self or: [(self inheritsFrom: ea) or: [ea inheritsFrom: self]]]

	aBlock value: self.
	^ self allAncestorsDo: aBlock

	^ Array streamContents:
		[:s | 
		self withAllAncestorsDo: [:ea | s nextPutAll: ea attributes]]

	^ self allAttributes
		detect: [:ea | ea key = aSymbol]
		ifNone: [self error: 'No attribute named ', aSymbol printString]

	^ #()

	| dict sorted |
	dict _ Dictionary new.
	sorted _ SortedCollection sortBlock: [:a :b | a key <= b key].
	self allAttributes do:
		[:ea |
		(dict at: ea group ifAbsentPut: [SortedCollection sortBlock: [:a :b | a key <= b key]])
			add: ea].
	dict associationsDo:
		[:assoc |
		sorted add: assoc].
	^ sorted
		

	^ self allAttributes anySatisfy: [:ea | ea key = aSymbol]

	self localValueAt: anAttribute key ifAbsent: [^ false].
	^ true

	^ false

	^ self allAncestors anySatisfy: [:ea | ea = aConfiguration]
	
	

	^ false

	^ false

	^ self allAttributes do:
		[:ea |
		keyValueBlock value: ea value: (self valueForAttribute: ea)]

	self allAncestorsDo:
		[:ea |
		(ea localValueAt: aSymbol ifAbsent: [])
			ifNotNilDo: [:val | ^ aBlock value: val value: ea]].
	^ nil

	self subclassResponsibility

	^ self inheritedValueAndSourceAt: aSymbol do: [:value :source | value]

	^ self localValueAt: aSymbol ifAbsent: [self lookupValueAt: aSymbol]

	^ self valueAt: anAttribute key

	| ini |
	ini _ INIFile readFrom: aStream.
	self registeredConfigurationsDo:
		[:config |
		(ini includesSection: config name) ifTrue:
			[config clear.
			(ini section: config name) associationsDo:
				[:assoc | assoc value ifNotNil:
					[(config hasAttributeNamed: assoc key)
						ifTrue: [config valueAt: assoc key put: assoc value]]]]]

	| ini |
	ini _ INIFile new.
	self registry keysAndValuesDo:
		[:key :value | (ini section: key) addAll: value localValues].
	ini writeOn: aStream

	^ self basicNew initialize