Comment #1 on issue 904 by alexandr...(a)gmail.com: Roassal dragging subtrees
Thanks for your suggestion. I wrote a contribution inspired from your
Fixed in 1.457 of Roassal. Try this:
| view elements |
view := ROView new.
0 to: 50 by: 10 do: [ :i |
elements := (ROBox green size: 10) elementsOn: (i to: i + 9).
elements do: [ :e | e @ RODraggable @ ROPopup ].
view addAll: elements.
ROLine buildEdgesFromElement: elements first from: #yourself toAll: [ :v |
(v + 1 to: v + 9) ].
ROTreeLayout on: elements.
(view elementFromModel: i) - ROBox + ROBox red.
(view elementFromModel: i)
@ ROAllConnectedNodeDraggable ;
translateBy: i * 15 @ 10.
You received this message because this project is configured to send all
issue notifications to this address.
You may adjust your notification preferences at: