On Sep 1, 2018, at 2:31 AM, Hernán Morales Durand <hernan.morales@gmail.com> wrote:

Hi Alex,

I didn't posted yet because my workaround is unfinished, it needs more
work, but is a start (didn't tested for other cases, etc).

Note that it works connecting multiple edges:

| view shapes myElems |
view := RTView new.
myElems := 1 to: 7.
shapes := RTCompositeShape new
   add: (RTText new text: 'Long text message');
   add: (RTSVGPath new
  path: 'm 3.96875,9.2604167 h 31.75 V 25.135417 C 22.489583,23.8125
17.197917,34.395833 3.96875,27.78125 Z';
       fillColor: Color red;
       borderColor: Color black;
       borderWidth: 1.2;
       scale: 1.4);
   alignCenter;
   elementsOn: myElems.

RTEdgeBuilder new
  view: view;
  shape: (RTArrowedLine new
      color: Color white;
      yourself);
  elements: shapes;
   connectFrom: 2 to: 4;
   connectFrom: 2 to: 5;
   connectFrom: 2 to: 7;
   connectFrom: 1 to: 2;
   connectFrom: 3 to: 2;
   connectFrom: 6 to: 2.

RTTreeLayout new
  verticalGap: 30;
  horizontalGap: 30;
  applyOn: shapes.

view addAll: shapes.
view inspect.


But it doesn't work for connecting two composites:

| view shapes myElems |
view := RTView new.
view @ RTDraggableView.
myElems := 1 to: 2.
shapes := RTCompositeShape new
   add: (RTLabel new text: 'Test');
   add: (RTSVGPath new
       path: 'm 3.96875,9.2604167 h 31.75 V 25.135417 C
22.489583,23.8125 17.197917,34.395833 3.96875,27.78125 Z';
       fillColor: Color red;
       borderColor: Color black;
       borderWidth: 1.2;
       scale: 1.4);
   alignCenter;
   elementsOn: myElems.
RTEdgeBuilder new
   view: view;
   shape: (RTArrowedLine new
       color: Color white;
       yourself);
   elements: shapes;
   connectFrom: 1 to: 2.
RTTreeLayout new
   verticalGap: 30;
   horizontalGap: 10;
   applyOn: shapes.
view addAll: shapes.
view inspect.

Doing some experiments the following frightening modification aligns
the two labeled composites, obviously destroying all other cases:

alignFromCenterUsing: anElement

   | topX newX topY newY |

   topX := anElement encompassingRectangle center x.
   topY := anElement encompassingRectangle center y.
   elements do: [ :s |
       newX := topX + (s encompassingRectangle width / 2).
       newY := topY + (s encompassingRectangle height / 2).
       (s isKindOf: TRLabelShape)
           ifTrue: [ s translateTo: newX @ newY ]
           ifFalse: [ s translateTo: (topX / 2) @ (newY) ]
   ]

I would love to have more time to learn RTAlignment, but unfortunately
I'm on a deadline.
You may find the coded attached to this mail.

Cheers,

Hernán



2018-08-31 22:03 GMT-03:00 Alexandre Bergel <alexandre.bergel@me.com>:

Hi!

Just to make sure I have not missed anything. You told me on discord that you fixed the problem, don’t you? What is your solution?

Cheers,
Alexandre

On Aug 29, 2018, at 10:35 PM, Hernán Morales Durand <hernan.morales@gmail.com> wrote:

Hi Alex,

My problem using labeled elements is that adding another box, labeled text gets overlaped:

-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
| view shapes myElems |
view := RTView new.
myElems := 1 to: 3.
shapes := (RTSVGPath new
  path: 'm 3.96875,9.2604167 h 31.75 V 25.135417 C 22.489583,23.8125
17.197917,34.395833 3.96875,27.78125 Z';
  fillColor: Color red;
  borderColor: Color black;
  borderWidth: 1.2;
  scale: 1.4) elementsOn: myElems.
view addAll: shapes.
shapes @ (RTLabeled new text: 'Long text message').
RTEdgeBuilder new
  view: view;
  shape: (RTArrowedLine new
      color: Color black;
      yourself);
  elements: shapes;
  connectFrom: 1 to: 3.
RTTreeLayout new
  verticalGap: 30;
  horizontalGap: 30;
  applyOn: shapes.
view inspect.
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

Maybe another suggestion?

Cheers,

Hernán


2018-08-29 22:09 GMT-03:00 Alexandre Bergel <alexandre.bergel@me.com>:
Hi!

An easy thing to do, is to make the elements labeled. Which is different than creating a composite shape (I can detail why there are two ways to label elements).

-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
| view shapes myElems |
view := RTView new.
myElems := 1 to: 2.
shapes := (RTSVGPath new
  path: 'm 3.96875,9.2604167 h 31.75 V 25.135417 C 22.489583,23.8125
17.197917,34.395833 3.96875,27.78125 Z';
  fillColor: Color red;
  borderColor: Color black;
  borderWidth: 1.2;
  scale: 1.4) elementsOn: myElems.
view addAll: shapes.
shapes @ (RTLabeled new text: 'hello').
RTEdgeBuilder new
  view: view;
  shape: (RTArrowedLine new
      color: Color black;
      yourself);
  elements: shapes;
  connectFrom: 1 to: 2.
RTTreeLayout new
  verticalGap: 30;
  horizontalGap: 30;
  applyOn: shapes.
view inspect.
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

Here is the result
<Screenshot 2018-08-28 15.32.19.png>


Cheers,
Alexandre

On Aug 23, 2018, at 2:31 PM, Hernán Morales Durand <hernan.morales@gmail.com> wrote:

Hi,

When connecting two composite shapes with RTEdgeBuilder, the connector
position loose its center over the connecting shapes.

It's easier to explain with two scripts:

This one looks good, the connector (RTArrowedLine) is centered:

| view shapes myElems |
view := RTView new.
myElems := 1 to: 2.
shapes := (RTSVGPath new
  path: 'm 3.96875,9.2604167 h 31.75 V 25.135417 C 22.489583,23.8125
17.197917,34.395833 3.96875,27.78125 Z';
  fillColor: Color red;
  borderColor: Color black;
  borderWidth: 1.2;
  scale: 1.4) elementsOn: myElems.
view addAll: shapes.
RTEdgeBuilder new
  view: view;
  shape: (RTArrowedLine new
      color: Color white;
      yourself);
  elements: shapes;
  connectFrom: 1 to: 2.
RTTreeLayout new
  verticalGap: 30;
  horizontalGap: 30;
  applyOn: shapes.
view inspect.

However when adding a label in a composite, both label and arrow looks shifted:

| view shape shapes myElems |
view := RTView new.
myElems := 1 to: 2.
shape := RTCompositeShape new
  add: (RTLabel new text: 'Test');
  add: (RTSVGPath new
      path: 'm 3.96875,9.2604167 h 31.75 V 25.135417 C
22.489583,23.8125 17.197917,34.395833 3.96875,27.78125 Z';
      fillColor: Color red;
      borderColor: Color black;
      borderWidth: 1.2;
      scale: 1.4);
  vertical;
  yourself.
shapes := shape elementsOn: myElems.
view addAll: shapes.
RTEdgeBuilder new
  view: view;
  shape: (RTArrowedLine new
      color: Color white;
      yourself);
  elements: shapes;
  connectFrom: 1 to: 2.
RTTreeLayout new
  verticalGap: 30;
  horizontalGap: 30;
  applyOn: shapes.
view inspect.

Any idea how to align these shapes?

Cheers,

Hernán
_______________________________________________
Moose-dev mailing list
Moose-dev@list.inf.unibe.ch
https://www.list.inf.unibe.ch/listinfo/moose-dev

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


<Align_Test2.png>_______________________________________________
Moose-dev mailing list
Moose-dev@list.inf.unibe.ch
https://www.list.inf.unibe.ch/listinfo/moose-dev

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

<TRCompositeShape-alignCenter.st><RTCompositeShape-#RT-Extensions.st><RTAlignment-#RT-Extensions.st><Multiple_Composites.png><Two_Composites.png>_______________________________________________
Moose-dev mailing list
Moose-dev@list.inf.unibe.ch
https://www.list.inf.unibe.ch/listinfo/moose-dev