RTDirectedLine color change bug

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
2 messages Options
Reply | Threaded
Open this post in threaded view
|

RTDirectedLine color change bug

jfabry
Hi all,

I’d like to report a bug in Roassal: RTDirectedLine does not support the changing of its color. Below is Alex’ example of edge color changing where I substituted RTDirectedLine for RTLine. You will see that the ‘change color’ block no longer works.

| v es edges shape |
v := RTView new.
es := (RTEllipse new size: 20; color: (Color blue alpha: 0.4)) elementsOn: (1 to: 20).
RTCircleLayout new initialRadius: 100; on: es.
v addAll: es.

shape := RTDirectedLine new color: Color red.
edges := RTEdge
        buildEdgesFromObjects: (1 to: 20)
        from: [ :value | value // 2 ]
        to: #yourself
        using: shape
        inView: v.

v canvas addMenu: 'change color' callback: [  edges  do: [ :e | e trachelShape color: Color random ]. v signalUpdate ].
v open


---> Save our in-boxes! http://emailcharter.org <---

Johan Fabry   -   http://pleiad.cl/~jfabry
PLEIAD lab  -  Computer Science Department (DCC)  -  University of Chile


_______________________________________________
Moose-dev mailing list
[hidden email]
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
Reply | Threaded
Open this post in threaded view
|

Re: RTDirectedLine color change bug

abergel
Hi Johan,

Well spotted. I’ve just fixed it!
Update and you will be able to change color of bezier lines and directed lines...

Cheers,
Alexandre


On May 2, 2014, at 9:16 PM, Johan Fabry <[hidden email]> wrote:

> Hi all,
>
> I’d like to report a bug in Roassal: RTDirectedLine does not support the changing of its color. Below is Alex’ example of edge color changing where I substituted RTDirectedLine for RTLine. You will see that the ‘change color’ block no longer works.
>
> | v es edges shape |
> v := RTView new.
> es := (RTEllipse new size: 20; color: (Color blue alpha: 0.4)) elementsOn: (1 to: 20).
> RTCircleLayout new initialRadius: 100; on: es.
> v addAll: es.
>
> shape := RTDirectedLine new color: Color red.
> edges := RTEdge
> buildEdgesFromObjects: (1 to: 20)
> from: [ :value | value // 2 ]
> to: #yourself
> using: shape
> inView: v.
>
> v canvas addMenu: 'change color' callback: [  edges  do: [ :e | e trachelShape color: Color random ]. v signalUpdate ].
> v open
>
>
> ---> Save our in-boxes! http://emailcharter.org <---
>
> Johan Fabry   -   http://pleiad.cl/~jfabry
> PLEIAD lab  -  Computer Science Department (DCC)  -  University of Chile
>
>
> _______________________________________________
> Moose-dev mailing list
> [hidden email]
> https://www.iam.unibe.ch/mailman/listinfo/moose-dev

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




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