layout builder

[akevalion]

We need a layout builder, to be set on CAGeometryShape

[akevalion]

v := CACompose new.
	
box := CAGeometryShape box 
	size: [:m | m asPoint ];
	background: Color lightGray.
box interaction popup.
	

elements :=  box elementsOn: (10 to: 200 by: 10).
elements forEach: [ :aNumber |
	CAGeometryShape box 
		size: 5 asPoint;
		background: Color blue;
		elementsOn: (1 to: 5).
].

v addAll: elements.
v root @ CADraggable.
v grid.
v