Smalltalk › Frameworks & Tools › Moose

roassal2 in glamour (and gtinspector)

_‹ Previous Topic Next Topic _›

Classic

List

Threaded

4 messages Options

Tudor Girba-2

roassal2 in glamour (and gtinspector)

Hi,

I added last night a first version of an integration of Roassal2 into Glamour.

For example, try:

GLMCompositePresentation new

with: [ :c |

c roassal2

painting: [ :v :roassal2Presentation :entity |

v addAll: ((RTEllipse new color: Color purple; size: 10)

elementsOn: entity withAllSubclasses) @ RTDraggable.

RTEdge

buildEdgesFromObjects: entity withAllSubclasses

from: #superclass

to: #yourself

inView: v.

RTClusterLayout on: v elements edges: v edges.

v edges do: [ :e | e trachelShape pushBack ] ] ];

openOn: Collection

It's also integrated in GTInspector. For example, just inspect:

| v |

v := RTView new.

v addAll: ((RTEllipse new color: Color purple)

elementsOn: Collection withAllSubclasses).

RTEdge

buildEdgesFromObjects: Collection withAllSubclasses

from: #superclass

to: #yourself

inView: v.

RTClusterLayout on: v elements edges: v edges.

v edges do: [ :e | e trachelShape pushBack ].

(see attachment)

Cheers,

Doru

www.tudorgirba.com

"Every thing has its own flow"

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

Tudor Girba-2

Re: roassal2 in glamour (and gtinspector)

I would like to have the default canvas color to be white.

Alex, do you have anything against that?

Doru

On Thu, Feb 13, 2014 at 2:00 PM, Tudor Girba <[hidden email]> wrote:

Hi,

I added last night a first version of an integration of Roassal2 into Glamour.

For example, try:

GLMCompositePresentation new

with: [ :c |
c roassal2

painting: [ :v :roassal2Presentation :entity |
v addAll: ((RTEllipse new color: Color purple; size: 10)

elementsOn: entity withAllSubclasses) @ RTDraggable.
RTEdge
buildEdgesFromObjects: entity withAllSubclasses

from: #superclass
to: #yourself
inView: v.

RTClusterLayout on: v elements edges: v edges.
v edges do: [ :e | e trachelShape pushBack ] ] ];
openOn: Collection

It's also integrated in GTInspector. For example, just inspect:

| v |
v := RTView new.

v addAll: ((RTEllipse new color: Color purple)
elementsOn: Collection withAllSubclasses).
RTEdge
buildEdgesFromObjects: Collection withAllSubclasses

from: #superclass
to: #yourself
inView: v.
RTClusterLayout on: v elements edges: v edges.
v edges do: [ :e | e trachelShape pushBack ].
v

(see attachment)

Cheers,
Doru

--
www.tudorgirba.com

"Every thing has its own flow"

www.tudorgirba.com

"Every thing has its own flow"

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

abergel

Re: roassal2 in glamour (and gtinspector)

In reply to this post by Tudor Girba-2

Excellent!!!!!!
Just in time for the big demo I will do in a couple of hours!!!

Alexandre

On Feb 13, 2014, at 5:00 AM, Tudor Girba <[hidden email]> wrote:

> Hi,
>
> I added last night a first version of an integration of Roassal2 into Glamour.
>
> For example, try:
>
> GLMCompositePresentation new
> with: [ :c |
> c roassal2
> painting: [ :v :roassal2Presentation :entity |
> v addAll: ((RTEllipse new color: Color purple; size: 10)
> elementsOn: entity withAllSubclasses) @ RTDraggable.
> RTEdge
> buildEdgesFromObjects: entity withAllSubclasses
> from: #superclass
> to: #yourself
> inView: v.
> RTClusterLayout on: v elements edges: v edges.
> v edges do: [ :e | e trachelShape pushBack ] ] ];
> openOn: Collection
>
> It's also integrated in GTInspector. For example, just inspect:
>
> | v |
> v := RTView new.
> v addAll: ((RTEllipse new color: Color purple)
> elementsOn: Collection withAllSubclasses).
> RTEdge
> buildEdgesFromObjects: Collection withAllSubclasses
> from: #superclass
> to: #yourself
> inView: v.
> RTClusterLayout on: v elements edges: v edges.
> v edges do: [ :e | e trachelShape pushBack ].
> v
>
> (see attachment)
>
> <Playground-roassal2.png>
>
> Cheers,
> Doru
>
> --
> 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

abergel

Re: roassal2 in glamour (and gtinspector)

In reply to this post by Tudor Girba-2

> I would like to have the default canvas color to be white.
>
> Alex, do you have anything against that?

The idea of having a non-white background came from the fact that white is aggressive for the eyes.
Next semester, some people here will work on Palette, a mechanism to pick from an harmonious color set. Palette will probably offer a set of color normalizers.

TextMate is gray per default. InteliJ as well. Processing as well, everything is grayish like what we have now in Roassal2.

I am not against a white background, but I have the impression it goes not go in the right direction. What would be a nice default color palette ?

Alexandre

>
> On Thu, Feb 13, 2014 at 2:00 PM, Tudor Girba <[hidden email]> wrote:
> Hi,
>
> I added last night a first version of an integration of Roassal2 into Glamour.
>
> For example, try:
>
> GLMCompositePresentation new
> with: [ :c |
> c roassal2
> painting: [ :v :roassal2Presentation :entity |
> v addAll: ((RTEllipse new color: Color purple; size: 10)
> elementsOn: entity withAllSubclasses) @ RTDraggable.
> RTEdge
> buildEdgesFromObjects: entity withAllSubclasses
> from: #superclass
> to: #yourself
> inView: v.
> RTClusterLayout on: v elements edges: v edges.
> v edges do: [ :e | e trachelShape pushBack ] ] ];
> openOn: Collection
>
> It's also integrated in GTInspector. For example, just inspect:
>
> | v |
> v := RTView new.
> v addAll: ((RTEllipse new color: Color purple)
> elementsOn: Collection withAllSubclasses).
> RTEdge
> buildEdgesFromObjects: Collection withAllSubclasses
> from: #superclass
> to: #yourself
> inView: v.
> RTClusterLayout on: v elements edges: v edges.
> v edges do: [ :e | e trachelShape pushBack ].
> v
>
> (see attachment)
>
> <Playground-roassal2.png>
>
> Cheers,
> Doru
>
> --
> www.tudorgirba.com
>
> "Every thing has its own flow"
>
>
>
> --
> www.tudorgirba.com
>
> "Every thing has its own flow"
> _______________________________________________
> Moose-dev mailing list
> [hidden email]
> https://www.iam.unibe.ch/mailman/listinfo/moose-dev