!Room methodsFor: 'accessing-relations'!

activeObject
	"Generated by MPOK 2.8 (fine)."

	"Get the specified relation-object."

	^activeObjectR notNil
		ifTrue: [activeObjectR]
		ifFalse: [| specs |
			specs := self class specificationsForRelation: #activeObject.
			specs notNil
				ifTrue: [| type |
					type := specs at: #type.
					type == #Relation_partOfSuper
						ifTrue:[activeObjectR := Relation_partOfSuper newOn: specs.
							activeObjectR relationName: #activeObject.
							activeObjectR object: self]
						ifFalse: [activeObjectR := (Smalltalk at: type) newOn: specs].
					activeObjectR]
				ifFalse: [nil]]!

fromWalls
	"Generated by MPOK 2.8 (fine)."

	"Get the specified relation-object."

	^fromWallsR notNil
		ifTrue: [fromWallsR]
		ifFalse: [| specs |
			specs := self class specificationsForRelation: #fromWalls.
			specs notNil
				ifTrue: [| type |
					type := specs at: #type.
					type == #Relation_partOfSuper
						ifTrue:[fromWallsR := Relation_partOfSuper newOn: specs.
							fromWallsR relationName: #fromWalls.
							fromWallsR object: self]
						ifFalse: [fromWallsR := (Smalltalk at: type) newOn: specs].
					fromWallsR]
				ifFalse: [nil]]!

intoWalls
	"Generated by MPOK 2.8 (fine)."

	"Get the specified relation-object."

	^intoWallsR notNil
		ifTrue: [intoWallsR]
		ifFalse: [| specs |
			specs := self class specificationsForRelation: #intoWalls.
			specs notNil
				ifTrue: [| type |
					type := specs at: #type.
					type == #Relation_partOfSuper
						ifTrue:[intoWallsR := Relation_partOfSuper newOn: specs.
							intoWallsR relationName: #intoWalls.
							intoWallsR object: self]
						ifFalse: [intoWallsR := (Smalltalk at: type) newOn: specs].
					intoWallsR]
				ifFalse: [nil]]!

RoomEvent
	"Generated by MPOK 2.8 (fine)."

	"Get the specified relation-object."

	^RoomEventR notNil
		ifTrue: [RoomEventR]
		ifFalse: [| specs |
			specs := self class specificationsForRelation: #RoomEvent.
			specs notNil
				ifTrue: [| type |
					type := specs at: #type.
					type == #Relation_partOfSuper
						ifTrue:[RoomEventR := Relation_partOfSuper newOn: specs.
							RoomEventR relationName: #RoomEvent.
							RoomEventR object: self]
						ifFalse: [RoomEventR := (Smalltalk at: type) newOn: specs].
					RoomEventR]
				ifFalse: [nil]]!

Surfaces
	"Generated by MPOK 2.8 (fine)."

	"Get the specified relation-object."

	^SurfacesR notNil
		ifTrue: [SurfacesR]
		ifFalse: [| specs |
			specs := self class specificationsForRelation: #Surfaces.
			specs notNil
				ifTrue: [| type |
					type := specs at: #type.
					type == #Relation_partOfSuper
						ifTrue:[SurfacesR := Relation_partOfSuper newOn: specs.
							SurfacesR relationName: #Surfaces.
							SurfacesR object: self]
						ifFalse: [SurfacesR := (Smalltalk at: type) newOn: specs].
					SurfacesR]
				ifFalse: [nil]]! !

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

(click here for the original file)