Hi guys,
I just saw with Usman when we tried to add a CompositeShape using the RTMondrianViewBuilder it is not working. Here the example :
| view elements | view := RTMondrianViewBuilder new. elements := (1 to: 10). view nodes: elements. view shape shape: (RTLine new color: Color red) + RTArrow new. view edges: elements from: #yourself toAll: elements. view horizontalLineLayout. view
If you comment "+ RTArrow new" everything is ok but with the CompositeShape it is not.
Tanks.
This is true that the composite shape does not work at all with the mondrian builder.
We will see how to fix this in the future…
Alexandre
On Apr 15, 2014, at 7:58 AM, Leo Perard leo.perard@gmail.com wrote:
Hi guys,
I just saw with Usman when we tried to add a CompositeShape using the RTMondrianViewBuilder it is not working. Here the example :
| view elements | view := RTMondrianViewBuilder new. elements := (1 to: 10). view nodes: elements. view shape shape: (RTLine new color: Color red) + RTArrow new. view edges: elements from: #yourself toAll: elements. view horizontalLineLayout. view
If you comment "+ RTArrow new" everything is ok but with the CompositeShape it is not.
Tanks.
-- Leo Perard _______________________________________________ Moose-dev mailing list Moose-dev@iam.unibe.ch https://www.iam.unibe.ch/mailman/listinfo/moose-dev
It works with the nodes. Something like that is ok/
view := RTMondrianViewBuilder new. view shape shape: (RTBox new color: Color green) + (RTLabel new text: 'Label'). view nodes: (1 to: 10). view open
We can have the composite shape. So I don't know if it is the RTArrow or RTLine which fails.
On Wed, Apr 16, 2014 at 12:02 AM, Alexandre Bergel alexandre.bergel@me.comwrote:
This is true that the composite shape does not work at all with the mondrian builder.
We will see how to fix this in the future…
Alexandre
On Apr 15, 2014, at 7:58 AM, Leo Perard leo.perard@gmail.com wrote:
Hi guys,
I just saw with Usman when we tried to add a CompositeShape using the
RTMondrianViewBuilder it is not working.
Here the example :
| view elements | view := RTMondrianViewBuilder new. elements := (1 to: 10). view nodes: elements. view shape shape: (RTLine new color: Color red) + RTArrow new. view edges: elements from: #yourself toAll: elements. view horizontalLineLayout. view
If you comment "+ RTArrow new" everything is ok but with the
CompositeShape it is not.
Tanks.
-- Leo Perard _______________________________________________ Moose-dev mailing list Moose-dev@iam.unibe.ch https://www.iam.unibe.ch/mailman/listinfo/moose-dev
-- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
Moose-dev mailing list Moose-dev@iam.unibe.ch https://www.iam.unibe.ch/mailman/listinfo/moose-dev
Apparently composite line shapes do not work It would be great if someone could have a look at it.
Alexandre
Hi I think I found why it is not working but I don't know how to fix it.
edges: objects from: fromBlock to: toBlock | es | self setLineShapeIfNecessary. es := RTEdge buildEdgesFromObjects: objects from: fromBlock to: toBlock using: self nodeShape inView: view scope: (RTGroup new addAll: topLevelNodes; yourself). topLevelEdges addAll: es. es do: #moveBehindItsExtremities. ^ es
this method call *setLineShapeIfNecessary.*
setLineShapeIfNecessary (self nodeShape class inheritsFrom: RTAbstractLine) ifFalse: [ self shape line ]
It will replace the shape of the RTEdge because we have a CompositeShape. Even if I put it in comment, there are still some bugs because of : *es do: #moveBehindItsExtremities.* Same here I was able to run an example with a CompositeShape with RTArrow for my edges but not able to apply a TreeLayout.
So I don't know how to fix it. But I think RTCompositeShape do not work as it should.
On Wed, Apr 16, 2014 at 12:59 AM, Alexandre Bergel alexandre.bergel@me.comwrote:
Apparently composite line shapes do not work It would be great if someone could have a look at it.
Alexandre
-- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
On Apr 15, 2014, at 7:34 PM, Leo Perard leo.perard@gmail.com wrote:
It works with the nodes. Something like that is ok/
view := RTMondrianViewBuilder new. view shape shape: (RTBox new color: Color green) + (RTLabel new text: 'Label'). view nodes: (1 to: 10). view open
We can have the composite shape. So I don't know if it is the RTArrow or RTLine which fails.
On Wed, Apr 16, 2014 at 12:02 AM, Alexandre Bergel < alexandre.bergel@me.com> wrote:
This is true that the composite shape does not work at all with the mondrian builder.
We will see how to fix this in the future…
Alexandre
On Apr 15, 2014, at 7:58 AM, Leo Perard leo.perard@gmail.com wrote:
Hi guys,
I just saw with Usman when we tried to add a CompositeShape using the
RTMondrianViewBuilder it is not working.
Here the example :
| view elements | view := RTMondrianViewBuilder new. elements := (1 to: 10). view nodes: elements. view shape shape: (RTLine new color: Color red) + RTArrow new. view edges: elements from: #yourself toAll: elements. view horizontalLineLayout. view
If you comment "+ RTArrow new" everything is ok but with the
CompositeShape it is not.
Tanks.
-- Leo Perard _______________________________________________ Moose-dev mailing list Moose-dev@iam.unibe.ch https://www.iam.unibe.ch/mailman/listinfo/moose-dev
-- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
Moose-dev mailing list Moose-dev@iam.unibe.ch https://www.iam.unibe.ch/mailman/listinfo/moose-dev
-- Leo Perard _______________________________________________ Moose-dev mailing list Moose-dev@iam.unibe.ch https://www.iam.unibe.ch/mailman/listinfo/moose-dev
Moose-dev mailing list Moose-dev@iam.unibe.ch https://www.iam.unibe.ch/mailman/listinfo/moose-dev
Just an idea: What about to instead of “inheritsFrom: RTAbstractLine” have “self nodeShape isLineShape”? And implement -=-=-=- CompositeShape>>isLineShape ^ shape1 isLineShape and: [ shape2 isLineShape ] -=-=-=-
Cheers, Jura
El 16-04-2014, a las 8:18, Leo Perard leo.perard@gmail.com escribió:
Hi I think I found why it is not working but I don't know how to fix it.
edges: objects from: fromBlock to: toBlock | es | self setLineShapeIfNecessary. es := RTEdge buildEdgesFromObjects: objects from: fromBlock to: toBlock using: self nodeShape inView: view scope: (RTGroup new addAll: topLevelNodes; yourself). topLevelEdges addAll: es. es do: #moveBehindItsExtremities. ^ es
this method call setLineShapeIfNecessary.
setLineShapeIfNecessary (self nodeShape class inheritsFrom: RTAbstractLine) ifFalse: [ self shape line ]
It will replace the shape of the RTEdge because we have a CompositeShape. Even if I put it in comment, there are still some bugs because of : es do: #moveBehindItsExtremities. Same here I was able to run an example with a CompositeShape with RTArrow for my edges but not able to apply a TreeLayout.
So I don't know how to fix it. But I think RTCompositeShape do not work as it should.
On Wed, Apr 16, 2014 at 12:59 AM, Alexandre Bergel alexandre.bergel@me.com wrote: Apparently composite line shapes do not work It would be great if someone could have a look at it.
Alexandre
-- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
On Apr 15, 2014, at 7:34 PM, Leo Perard leo.perard@gmail.com wrote:
It works with the nodes. Something like that is ok/
view := RTMondrianViewBuilder new. view shape shape: (RTBox new color: Color green) + (RTLabel new text: 'Label'). view nodes: (1 to: 10). view open
We can have the composite shape. So I don't know if it is the RTArrow or RTLine which fails.
On Wed, Apr 16, 2014 at 12:02 AM, Alexandre Bergel alexandre.bergel@me.com wrote: This is true that the composite shape does not work at all with the mondrian builder.
We will see how to fix this in the future…
Alexandre
On Apr 15, 2014, at 7:58 AM, Leo Perard leo.perard@gmail.com wrote:
Hi guys,
I just saw with Usman when we tried to add a CompositeShape using the RTMondrianViewBuilder it is not working. Here the example :
| view elements | view := RTMondrianViewBuilder new. elements := (1 to: 10). view nodes: elements. view shape shape: (RTLine new color: Color red) + RTArrow new. view edges: elements from: #yourself toAll: elements. view horizontalLineLayout. view
If you comment "+ RTArrow new" everything is ok but with the CompositeShape it is not.
Tanks.
-- Leo Perard _______________________________________________ Moose-dev mailing list Moose-dev@iam.unibe.ch https://www.iam.unibe.ch/mailman/listinfo/moose-dev
-- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
Moose-dev mailing list Moose-dev@iam.unibe.ch https://www.iam.unibe.ch/mailman/listinfo/moose-dev
-- Leo Perard _______________________________________________ Moose-dev mailing list Moose-dev@iam.unibe.ch https://www.iam.unibe.ch/mailman/listinfo/moose-dev
Moose-dev mailing list Moose-dev@iam.unibe.ch https://www.iam.unibe.ch/mailman/listinfo/moose-dev
-- Leo Perard _______________________________________________ Moose-dev mailing list Moose-dev@iam.unibe.ch https://www.iam.unibe.ch/mailman/listinfo/moose-dev
-
Alexandre Bergel -
Juraj Kubelka -
Leo Perard -
pharo4Stef＠free.fr