Room subclass: #Environment
	instanceVariableNames: ''
	classVariableNames: ''
	poolDictionaries: ''
	category: 'BuildingSchema'
	keys: ''
	attributes: ''
	relations: ''!


"-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "!

Environment class
	instanceVariableNames: ''!



!Environment class methodsFor: 'instance creation'!

amountOfHeat: var1 heatCapacity: var2 interval: var3 temperature: var4 thermalResistance: var5 timeOfLastComputation: var6 volume: var7 
	"Generated by MPOK 2.8."

	"Get a new instance of this class and set the
	 keys and attributes to specified values (complex constructor)"

	| newInstance |
	newInstance := self new.
	newInstance amountOfHeat: var1.
	newInstance heatCapacity: var2.
	newInstance interval: var3.
	newInstance temperature: var4.
	newInstance thermalResistance: var5.
	newInstance timeOfLastComputation: var6.
	newInstance volume: var7.
	^newInstance! !

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

(click here for the original file)