Status: New Owner: ---- Labels: Type-Defect Priority-Medium Component-Roassal

New issue 1111 by alexandr...@gmail.com: RTExpandable does not work https://code.google.com/p/moose-technology/issues/detail?id=1111

Describe the problem: what do you get? what do you expect?

In case that an element is expanded with edges, everything is screwed up.

How to reproduce the problem: step by step if necessary

Try this: -=-=-=-=-=-=-=-= v := RTView new. v @ RTDraggableView.

"s := RTBox new width: [ :c | c numberOfVariables * 5 ]; height: #numberOfMethods." s := RTShapeBuilder new rectangle; width: [ :c | c numberOfVariables * 5 ]; height: #numberOfMethods. es := s elementsOn: RTShape withAllSubclasses.

v add: es. es @ RTPopup @ (RTLabelled new setAsHighlightable).

expand := (RTExpandable new group: [ :group :element | methods := (RTBox new color: Color red) elementsOn: element model methods. RTGridLayout on: methods. methods @ RTPopup. edges := RTEdgeBuilder new elements: methods; elementsToLookup: es; view: v; connectToAll: #dependentClasses. group addAll: methods; addAll: edges ]; afterBlock: [ RTTreeLayout on: es ] ). es @ expand.

eb := RTEdgeBuilder new. eb shape line; verticalAttachPoint. eb view: v; elements: es; connectFrom: #superclass. RTTreeLayout on: es. v -=-=-=-=-=-=-=-=

Additional information: platform, context which may impact the problem

Please fill in the labels with the following information: * Type-Defect, Type-Enhancement, Type-Engineering, Type-Review, Type-Other * Component-XXX