[Moose-dev] Issue 1111 in moose-technology: RTExpandable does not work

Status: New Owner: ---- Labels: Type-Defect Priority-Medium Component-Roassal New issue 1111 by alexandr...(a)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 -- You received this message because this project is configured to send all issue notifications to this address. You may adjust your notification preferences at: https://code.google.com/hosting/settings