|v shape elements suelto rayo |
v := RTView new.
	shape := (RTBox new width: 100; height: 100) color: (Color blue alpha: 0.3).
	elements := shape elementsOn: (1 to: 3).
	v addAll: elements @ RTDraggable .
	elements @ RTPopup.

	RTTreeLayout on: elements.
	
	suelto := OrderedCollection new. 
	suelto add: (RTBox new width: 100; height: 100) element @ RTDraggable.
	v addAll: suelto.
	
	rayo := RTEdge from:(elements at: 3) to: (suelto at: 1).
	v add: (rayo + (RTGradientColoredLine new colors: (Array with: (Color blue alpha:0.3) with: (Color red alpha:0.9)); precision: 100; gradientColorShape)).
	
	
	v