Updates:
Status: Fixed
Comment #1 on issue 904 by alexandr...(a)gmail.com: Roassal dragging subtrees
(feature contribution)
http://code.google.com/p/moose-technology/issues/detail?id=904
Hi Ben,
Thanks for your suggestion. I wrote a contribution inspired from your
example.
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.
].
view open
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
--
You received this message because this project is configured to send all
issue notifications to this address.
You may adjust your notification preferences at:
https://code.google.com/hosting/settings