Hi Werner,
With this I get my two Rectangles shapes in a view with their positions printed in popup.
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
view := RTView new.
coll:=Array with: (Rectangle origin: 500@500 corner: 510@520) with: (Rectangle origin: 505@504 corner: 511@522).
"Some colors"
n := RTMultiLinearColorForIdentity new objects: (coll).
"Integrating elements to the view"
coll do: [ :r | view add: ((RTBox new color: [ :value | n rtValue: r]; width: r width; height: r height) elementOn: r )].
"Moving elements to their position and add a popup to show the position"
view elements do: [ :e | e translateTo: e model center; @ (RTPopup text: [:el | el center])].
view inspect
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=