col:= 1 to: 10.
v := RTView new.
el:= RTBox elementsOn: col.
v add: el.
RTGridLayout on: el.
lines:=RTEdge 
	buildEdgesFromObjects: col 
	from: #yourself
	to: [ :num | num * 2 ]
	inView: v.
lines do: [ :edge | edge shape color: Color red ]. 
v