Status: New
Owner: ----
Labels: Type-Defect Priority-Medium Component-Roassal
New issue 1111 by
[hidden email]: RTExpandable does not work
https://code.google.com/p/moose-technology/issues/detail?id=1111Describe 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_______________________________________________
Moose-dev mailing list
[hidden email]
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
Locked
