[Moose-dev] Re: Issue 904 in moose-technology: Roassal dragging subtrees (feature contribution)

Updates: Status: Fixed

Comment #1 on issue 904 by alexandr...@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 -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=