19 Nov
2014
19 Nov
'14
9:08 p.m.
Hi!
I am not sure to understand. Why do you use a GraphBuilder?
I think I have spotted something. For example:
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
v := RTView new.
shape := RTShapeBuilder new.
shape shape: (RTEllipse new color: Color gray; size: 40).
el := (RTElement on: 1).
el + shape.
v add: el.
el @ RTDraggable.
el2 := (RTElement on: 2).
el2 + shape.
v add: el2.
el2 @ RTDraggable.
lineShape := (RTLine new color: Color red) "+ (RTSimpleArrowHead new color: Color
red)".
l := lineShape edgeFrom: el to: el2.
v add: l.
RTCellLayout on: b view elements.
v
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Uncommenting behaves oddly. I will look into this...
Alexandre
--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
On Nov 19, 2014, at 11:57 AM, jannik laval
<jannik.laval(a)gmail.com> wrote:
Hi Alex,
I have some problems with displaying edges.
I have difficulties to reproduce things outside my application. But I am trying to add
arrows. So when I do:
(RTLine new color: Color red) + (RTSimpleArrowHead new color: Color red),
the text that follow the + brake my visualization: the arrow is wrongly placed.
If I remove the + (RTSimpleArrowHead new color: Color red), it works fine.
When I tried to reproduce it, I created an example that does not work, I do not
understand why:
===
b := RTGraphBuilder new.
shape := RTShapeBuilder new.
shape shape: (RTEllipse new color: Color gray; size: 40).
el := (RTElement on: 1).
el + shape.
b view add: el.
el2 := (RTElement on: 2).
el2 + shape.
b view add: el2.
l := RTEdge from: el to: el2.
b view add: l.
RTCellLayout on: b view elements.
b build.
b open
===
--
~~Jannik Laval~~
École des Mines de Douai
Enseignant-chercheur
http://www.jannik-laval.eu <http://www.jannik-laval.eu/>
http://www.phratch.com <http://www.phratch.com/>
http://www.approchealpes.info <http://www.approchealpes.info/>
http://car.mines-douai.fr/ <http://car.mines-douai.fr/>