!Room methodsFor: 'accessing-attributes'!
amountOfHeat
"Generated by MPOK 2.8 (fast)."
"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 (fast)."
"Set the value for the specified attribute"
| ret |
ret := amountOfHeatA.
amountOfHeatA := aValue.
^ret!
heatCapacity
"Generated by MPOK 2.8 (fast)."
"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 (fast)."
"Set the value for the specified attribute"
| ret |
ret := heatCapacityA.
heatCapacityA := aValue.
^ret!
interval
"Generated by MPOK 2.8 (fast)."
"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 (fast)."
"Set the value for the specified attribute"
| ret |
ret := intervalA.
intervalA := aValue.
^ret!
temperature
"Generated by MPOK 2.8 (fast)."
"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 (fast)."
"Set the value for the specified attribute"
| ret |
ret := temperatureA.
temperatureA := aValue.
^ret!
thermalResistance
"Generated by MPOK 2.8 (fast)."
"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 (fast)."
"Set the value for the specified attribute"
| ret |
ret := thermalResistanceA.
thermalResistanceA := aValue.
^ret!
timeOfLastComputation
"Generated by MPOK 2.8 (fast)."
"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 (fast)."
"Set the value for the specified attribute"
| ret |
ret := timeOfLastComputationA.
timeOfLastComputationA := aValue.
^ret!
volume
"Generated by MPOK 2.8 (fast)."
"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 (fast)."
"Set the value for the specified attribute"
| ret |
ret := volumeA.
volumeA := aValue.
^ret! !
To increase readability of this file, some HTML tags
have been included
(click here for the original file)