Should an edge be aware of whether it is part of layout or not?

edges used in a layout about roassal3 HOT 2 CLOSED

objectprofile commented on June 2, 2024

edges used in a layout

from roassal3.

Comments (2)

bergel commented on June 2, 2024

The method RSEdgeDrivenLayout>>addDefaultAttachPointToEdges needs to be updated

from roassal3.

bergel commented on June 2, 2024

In Roassal2 we needed it because of the declarative way of working with RTMondrian. In Roassal3 we will probably do not need it.

Here is an example:

classes := Collection withAllSubclasses.

v := RSView new.

classShape := RSShapeBuilder box
				width: [ :cls | cls instVarNames size * 3 max: 5];
				height: [ :cls | cls numberOfMethods max: 5 ].
				
compositeShape := RSShapeBuilder composite
						shapes: [ :cls |
							| g | 
							g := TSGroup new.
							g add: (RSShapeBuilder label elementOn: cls name).
							g add: (classShape elementOn: cls).
							RSVerticalLineLayout new center; on: g.
							g
							].
v addAll: (compositeShape elementsOn: classes).

RSEdgeBuilder line
			color: Color gray;
			attachPoint: (RSVerticalAttachPoint new);
			view: v;
			objects: classes;
			connectFrom: #superclass.


RSTreeLayout on: v elements.

v elements @ RSDraggable.

RSEdgeBuilder line
			color: Color blue trans;
			"attachPoint: (RSVerticalAttachPoint new);"
			view: v;
			objects: classes;
			connectToAll: #dependentClasses.

v @ RSControlsView.
v open