v := RTView new. shape := RTBox new color: (Color blue alpha: 0.3). elements := shape elementsOn: (1 to: 3). v addAll: elements. elements @ RTPopup. RTEdgeBuilder new view: v; objects: (1 to: 3) from: [ :i | i // 1 ]. RTTreeLayout on: elements. v