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 ===
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
Hi
2014-11-19 21:08 GMT+01:00 Alexandre Bergel alexandre.bergel@me.com:
Hi!
I am not sure to understand. Why do you use a GraphBuilder?
For the example. I could use something else.
Cheers, Jannik
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@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.phratch.com http://www.approchealpes.info http://car.mines-douai.fr/