Ok this is pretty cool.

Now with the edges how can I say they have to attach to the box and not at the all shape (label + box) ?

v := RTView new.

shape := RTMultiCompositeShape new.

shape add: RTLabel new.

shape add: RTBox new.

es := shape elementsOn: RTShape withAllSubclasses.

v addAll: es.

RTEdge

buildEdgesFromObjects: RTShape withAllSubclasses

from: #superclass to: #yourself

using: (RTArrow new color: Color black; attachPoint: RTHorizontalAttachPoint new)

inView: v.

RTNest new

for: es

inShape: #second

add: [ :group :model | 

group addAll: ((RTBox new color: Color blue) elementsOn: model methods).

RTGridLayout on: group.

].

RTHorizontalTreeLayout on: es.

es @ RTPopup @ RTDraggable.

v open

On Sun, Jul 20, 2014 at 8:00 PM, Tudor Girba <tudor@tudorgirba.com> wrote:

Exactly. The goal should be to get a powerful enough composition mechanism such that we do not need hardcoded composite shapes.

Doru

On Sun, Jul 20, 2014 at 7:25 PM, Alexandre Bergel <alexandre.bergel@me.com> wrote:

Ok, no pb
I will probably rewrite the mondrian builder. It should now be simpler.
I am also thinking about using + between shapes to produce RTMultiCompositeShape. Other composite shape classes should be removed I think.

Alexandre

On Jul 20, 2014, at 11:17 AM, Tudor Girba <tudor@tudorgirba.com> wrote:

> Thanks for working on this!
>
> I will try to find some time to review this, but it will take a while.
>
> Cheers,
> Doru
>
>
>
>
> On Sun, Jul 20, 2014 at 3:07 PM, Alexandre Bergel <abergel@dcc.uchile.cl> wrote:
> Hi!
>
> Here is a new example:
>
> -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
> v := RTView new.
> shape := RTMultiCompositeShape new.
> shape add: RTLabel new.
> shape add: RTBox new.
> es := shape elementsOn: RTShape withAllSubclasses.
>
> v addAll: es.
>
> RTNest new
>       for: es
>       inShape: #second
>       add: [ :group :model |
>               group addAll: ((RTBox new color: Color blue) elementsOn: model methods).
>               RTGridLayout on: group.
>       ].
>
> RTFlowLayout new on: es.
> es @ RTPopup @ RTDraggable.
> v open
> -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

> <Screen Shot 2014-07-20 at 9.06.33 AM.png>

>
> The last release of Roassal2 should address the comments of Leo and Doru I think…
>
> Alexandre
> --
> _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
> Alexandre Bergel  http://www.bergel.eu
> ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
>
>
>
>
> _______________________________________________
> Moose-dev mailing list
> Moose-dev@iam.unibe.ch
> https://www.iam.unibe.ch/mailman/listinfo/moose-dev
>
>
>
>
> --
> www.tudorgirba.com
>
> "Every thing has its own flow"
> _______________________________________________
> 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

--

www.tudorgirba.com

"Every thing has its own flow"

_______________________________________________
Moose-dev mailing list
Moose-dev@iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev

--

Cheers,

Leo Perard

University of Lille 1

_______________________________________________
Moose-dev mailing list
Moose-dev@iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev