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

	RTTreeLayout on: elements.
	v