Smalltalk › Frameworks & Tools › Moose

Re: [Pharo-users] Roassal2 orthogonal lines, attach points and self-lines.

_‹ Previous Topic Next Topic _›

Classic

List

Threaded

1 message

abergel

Re: [Pharo-users] Roassal2 orthogonal lines, attach points and self-lines.

Hi Peter!

I’ve just added the orthogonal vertical and horizontal lines in Roassal2. Here are some screenshots.

These last script has been made with:

-=-=-=-=-=-=-=-=-=-=-=-=

| v |

v := RTView new.

v addAll: ((RTEllipse new size: 20; color: (Color red alpha: 0.3)) elementsOn: (1 to: 20)).

shape := RTMultiLine new.

shape orthoVertical.

shape color: (Color blue alpha: 0.3).

RTEdge

buildEdgesFromObjects: (1 to: 20) from: [ :n | n // 3 ] to: #yourself using: shape inView: v.

v elements @ RTDraggable @ RTPopup.

RTTreeLayout on: v elements.

v open

-=-=-=-=-=-=-=-=-=-=-=-=

Cheers,

Alexandre

--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.

On Jul 26, 2014, at 3:57 PM, Peter Uhnák <[hidden email]> wrote:

Hi,

is there any support for orthogonal lines in Roassal2? I've seen something similar (ROOrthoVerticalLineShape), however nothing of that sort in Roassal2. I would imagine it to behave similarly to RTBezierLine - having controllingElements to specify the corners. (While ROOrtholines did it automatically I was looking for something more manual, so it can go in both directions - thus the controllingElements).

Second thing I wasn't able to figure out is whether it is possible to create line from element to itself. All *AttachPoint classes aren't really able to cope with that. The best result I got was from Vertical/Horizontal AttachPoints (combined with BezierLine), however I would like to be able to specify which side it would start on and end on. Ideally not just middle of sides, but arbitrary part of the shape (I imagine that might be hard for non-rectangular shapes).

Thanks,
Peter

_______________________________________________
Moose-dev mailing list
[hidden email]
https://www.iam.unibe.ch/mailman/listinfo/moose-dev