more work on composed shapes

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

more work on composed shapes

Alexandre Bergel-5
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
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

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
[hidden email]
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
Reply | Threaded
Open this post in threaded view
|

Re: more work on composed shapes

Tudor Girba-2
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 <[hidden email]> 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
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

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
[hidden email]
https://www.iam.unibe.ch/mailman/listinfo/moose-dev




--

"Every thing has its own flow"

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

Re: more work on composed shapes

abergel
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 <[hidden email]> 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 <[hidden email]> 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
> [hidden email]
> https://www.iam.unibe.ch/mailman/listinfo/moose-dev
>
>
>
>
> --
> www.tudorgirba.com
>
> "Every thing has its own flow"
> _______________________________________________
> 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
Reply | Threaded
Open this post in threaded view
|

Re: more work on composed shapes

Tudor Girba-2
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 <[hidden email]> 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 <[hidden email]> 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 <[hidden email]> 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
> [hidden email]
> https://www.iam.unibe.ch/mailman/listinfo/moose-dev
>
>
>
>
> --
> www.tudorgirba.com
>
> "Every thing has its own flow"
> _______________________________________________
> 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



--

"Every thing has its own flow"

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

Re: more work on composed shapes

Leo Perard
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 <[hidden email]> 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 <[hidden email]> 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 <[hidden email]> 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 <[hidden email]> 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
> [hidden email]
> https://www.iam.unibe.ch/mailman/listinfo/moose-dev
>
>
>
>
> --
> www.tudorgirba.com
>
> "Every thing has its own flow"
> _______________________________________________
> 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



--

"Every thing has its own flow"

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




--
Cheers,
Leo Perard
University of Lille 1

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

Re: more work on composed shapes

abergel
Hum… Edges are between elements… But thanks to the AttachPoint, this is easy to do:


-=-=-=-=-=-=-=-=-=-=
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: (RTShorterDistanceAttachPointAndCompositeShape new composedShapeSelection: #second))
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
-=-=-=-=-=-=-=-=-=-=

Here is a screenshot


I also started to work on a RTEdgeBuilder, but it is not finished...

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



On Jul 21, 2014, at 5:07 AM, Leo Perard <[hidden email]> wrote:

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 <[hidden email]> 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 <[hidden email]> 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 <[hidden email]> 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 <[hidden email]> 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
> [hidden email]
> https://www.iam.unibe.ch/mailman/listinfo/moose-dev
>
>
>
>
> --
> www.tudorgirba.com
>
> "Every thing has its own flow"
> _______________________________________________
> 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



--

"Every thing has its own flow"

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




--
Cheers,
Leo Perard
University of Lille 1
_______________________________________________
Moose-dev mailing list
[hidden email]
https://www.iam.unibe.ch/mailman/listinfo/moose-dev


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