Changing arrow head types in RTMondrian

I'd like my visualizations showing inheritance to be UML-like. That is, I'd like arrow heads to be empty. I found some classes (RTEmptyArrowHead, etc.) and thought they might be the answer. However, I can't get it to work in the following code. Do those classes work?

I'm using Moose suite 6.0 on Windows 10.

| b line |
b := RTMondrian new.
b shape circle size: 3.
b nodes: RTShape withAllSubclasses.

"b shape arrowedLine withShorterDistanceAttachPoint."
line := RTEmptyArrow new.
b shape line withShorterDistanceAttachPoint.

b edgesFrom: #superclass.
b layout forceWithCharge: -500.
b build.
^ b view

On Mon, Sep 12, 2016 at 5:10 AM, Fuhrmanator <[hidden email]> wrote:
I'm not a Roassal expert to provide a final answer,
but just to shortcut things in case there is a typo in the line above,
"line" is a variable and can't be sent as a message to the object
returned by #shape.
Are you getting any error message like "MessagenotUnderstood: XXXX>>line"  ?

cheers -ben

>
>
> b edgesFrom: #superclass.
> b layout forceWithCharge: -500.
> b build.
> ^ b view
>
> <http://forum.world.st/file/n4915133/RTEmptyArrowAttempt.png>
_______________________________________________
Moose-dev mailing list
[hidden email]
https://www.list.inf.unibe.ch/listinfo/moose-dev

On Sun, Sep 11, 2016 at 02:10:25PM -0700, Fuhrmanator wrote:
> I'd like my visualizations showing inheritance to be UML-like. That is, I'd
> like arrow heads to be empty. I found some classes (RTEmptyArrowHead, etc.)
> and thought they might be the answer. However, I can't get it to work in the
> following code. Do those classes work?

Hi,

use can use `#head:` for `arrowedLine`, or `#headStart:`/`#headEnd` for `doubleArrowedLine`.

Note that you are `connect(ing)From: #superclass`, so you would have to reverse it if you want to use the `arrowedLine` (because the line points to the subclass), or use the `doubleArrowedLine`.

E.g.

| b |
b := RTMondrian new.
b shape circle size: 3.
b nodes: RTShape withAllSubclasses.

"b shape arrowedLine
        withShorterDistanceAttachPoint;
        head: RTEmptyNarrowArrow asHead."

"or"

b shape doubleArrowedLine
        withShorterDistanceAttachPoint;
        headStart: RTEmptyNarrowArrow asHead;
        headEnd: RTNoShape new.

b edges connectFrom: #superclass.

b layout forceWithCharge: -500.
b build.
^ b view

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

Thanks for all the pointers. Here's a working solution with the right direction for inheritance:

| b |
b := RTMondrian new.
b shape circle size: 20.
b nodes: RTShape withAllSubclasses.

b shape arrowedLine
        head: RTEmptyNarrowArrow asHead; "See other RTLineDecorationShape"
        withShorterDistanceAttachPoint;
                  color: (Color blue alpha:0.4).

b edges connectTo: #superclass.

b layout
        forceWithCharge: -500.

b build.
^ b view

Hi,

You seem to be having some fine!

Please keep the questions coming.

Cheers,
Doru


--
www.tudorgirba.com
www.feenk.com

"It's not how it is, it is how we see it."

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