'From VisualWorks® NonCommercial, Release 5i.4 of August 9, 2001 on June 13, 2002 at 2:47:40 pm'!


!CormasNS.Kernel.SpaceModel methodsFor: 'grid cells aggregation'!

createAggregate: compoundEntity from: aSet 
	| aggregate |
	aggregate := compoundEntity new init.
	aggregate view: self vue.
	aggregate addComponents: aSet asOrderedCollection.
	aggregate setSurround.
	(self spatialEntities at: compoundEntity name)
		add: aggregate.
	^aggregate! !