!Room methodsFor: 'accessing-attributes'!

amountOfHeat
	"Generated by MPOK 2.8 (fine)."

	"Get the value of the specified attribute, if it is known by the receiver
	or one of its neighbours."

	^amountOfHeatA notNil
		ifTrue: [amountOfHeatA]
		ifFalse: [self searchForAttribute: #amountOfHeatA]!

amountOfHeat: aValue
	"Generated by MPOK 2.8 (fine)."

	"Set the value for the specified attribute"

	| type aClass ret |
	type := self class typeForAttribute: #amountOfHeatA.
	type isNil
		ifTrue: [ret := amountOfHeatA.
			amountOfHeatA := aValue]
		ifFalse: [aClass := Smalltalk at: type.
			(aValue behavesLike: aClass)
				ifTrue: [ret := amountOfHeatA.
					amountOfHeatA := aValue]
				ifFalse: [self mooseAttributeTypeError: type asString, ' expected']].
	^ret!

heatCapacity
	"Generated by MPOK 2.8 (fine)."

	"Get the value of the specified attribute, if it is known by the receiver
	or one of its neighbours."

	^heatCapacityA notNil
		ifTrue: [heatCapacityA]
		ifFalse: [self searchForAttribute: #heatCapacityA]!

heatCapacity: aValue
	"Generated by MPOK 2.8 (fine)."

	"Set the value for the specified attribute"

	| type aClass ret |
	type := self class typeForAttribute: #heatCapacityA.
	type isNil
		ifTrue: [ret := heatCapacityA.
			heatCapacityA := aValue]
		ifFalse: [aClass := Smalltalk at: type.
			(aValue behavesLike: aClass)
				ifTrue: [ret := heatCapacityA.
					heatCapacityA := aValue]
				ifFalse: [self mooseAttributeTypeError: type asString, ' expected']].
	^ret!

interval
	"Generated by MPOK 2.8 (fine)."

	"Get the value of the specified attribute, if it is known by the receiver
	or one of its neighbours."

	^intervalA notNil
		ifTrue: [intervalA]
		ifFalse: [self searchForAttribute: #intervalA]!

interval: aValue
	"Generated by MPOK 2.8 (fine)."

	"Set the value for the specified attribute"

	| type aClass ret |
	type := self class typeForAttribute: #intervalA.
	type isNil
		ifTrue: [ret := intervalA.
			intervalA := aValue]
		ifFalse: [aClass := Smalltalk at: type.
			(aValue behavesLike: aClass)
				ifTrue: [ret := intervalA.
					intervalA := aValue]
				ifFalse: [self mooseAttributeTypeError: type asString, ' expected']].
	^ret!

temperature
	"Generated by MPOK 2.8 (fine)."

	"Get the value of the specified attribute, if it is known by the receiver
	or one of its neighbours."

	^temperatureA notNil
		ifTrue: [temperatureA]
		ifFalse: [self searchForAttribute: #temperatureA]!

temperature: aValue
	"Generated by MPOK 2.8 (fine)."

	"Set the value for the specified attribute"

	| type aClass ret |
	type := self class typeForAttribute: #temperatureA.
	type isNil
		ifTrue: [ret := temperatureA.
			temperatureA := aValue]
		ifFalse: [aClass := Smalltalk at: type.
			(aValue behavesLike: aClass)
				ifTrue: [ret := temperatureA.
					temperatureA := aValue]
				ifFalse: [self mooseAttributeTypeError: type asString, ' expected']].
	^ret!

thermalResistance
	"Generated by MPOK 2.8 (fine)."

	"Get the value of the specified attribute, if it is known by the receiver
	or one of its neighbours."

	^thermalResistanceA notNil
		ifTrue: [thermalResistanceA]
		ifFalse: [self searchForAttribute: #thermalResistanceA]!

thermalResistance: aValue
	"Generated by MPOK 2.8 (fine)."

	"Set the value for the specified attribute"

	| type aClass ret |
	type := self class typeForAttribute: #thermalResistanceA.
	type isNil
		ifTrue: [ret := thermalResistanceA.
			thermalResistanceA := aValue]
		ifFalse: [aClass := Smalltalk at: type.
			(aValue behavesLike: aClass)
				ifTrue: [ret := thermalResistanceA.
					thermalResistanceA := aValue]
				ifFalse: [self mooseAttributeTypeError: type asString, ' expected']].
	^ret!

timeOfLastComputation
	"Generated by MPOK 2.8 (fine)."

	"Get the value of the specified attribute, if it is known by the receiver
	or one of its neighbours."

	^timeOfLastComputationA notNil
		ifTrue: [timeOfLastComputationA]
		ifFalse: [self searchForAttribute: #timeOfLastComputationA]!

timeOfLastComputation: aValue
	"Generated by MPOK 2.8 (fine)."

	"Set the value for the specified attribute"

	| type aClass ret |
	type := self class typeForAttribute: #timeOfLastComputationA.
	type isNil
		ifTrue: [ret := timeOfLastComputationA.
			timeOfLastComputationA := aValue]
		ifFalse: [aClass := Smalltalk at: type.
			(aValue behavesLike: aClass)
				ifTrue: [ret := timeOfLastComputationA.
					timeOfLastComputationA := aValue]
				ifFalse: [self mooseAttributeTypeError: type asString, ' expected']].
	^ret!

volume
	"Generated by MPOK 2.8 (fine)."

	"Get the value of the specified attribute, if it is known by the receiver
	or one of its neighbours."

	^volumeA notNil
		ifTrue: [volumeA]
		ifFalse: [self searchForAttribute: #volumeA]!

volume: aValue
	"Generated by MPOK 2.8 (fine)."

	"Set the value for the specified attribute"

	| type aClass ret |
	type := self class typeForAttribute: #volumeA.
	type isNil
		ifTrue: [ret := volumeA.
			volumeA := aValue]
		ifFalse: [aClass := Smalltalk at: type.
			(aValue behavesLike: aClass)
				ifTrue: [ret := volumeA.
					volumeA := aValue]
				ifFalse: [self mooseAttributeTypeError: type asString, ' expected']].
	^ret! !

To increase readability of this file, some HTML tags have been included

(click here for the original file)