element := arrow element.
This is very odd line, why do you do this? You don't ask line shapes for
elements, because they have none, they are edges.
Didn't you mean to write this instead?
arrow := RTArrowedLine new
color: trans color;
withOffsetIfMultiple.
edge := arrow edgeFrom: efrom to: eto.
Gives me:
RTElement(Object)>>doesNotUnderstand: #to
RTShorterDistanceWithOffsetAttachPoint(RTAbstractShorterDistanceAttachPoint)>>basicStartingPointOf:
RTShorterDistanceWithOffsetAttachPoint>>basicStartingPointOf:
RTShorterDistanceWithOffsetAttachPoint(RTAttachPoint)>>startingPointOf:
RTLine(RTAbstractLine)>>updateFor:trachelShape:
RTLine(RTShape)>>trachelShapeFor:
RTArrowedLine>>trachelShapeFor:
RTElement(RTShapedObject)>>addShape:
RTArrowedLine(RTShape)>>element
LRPProgramVisualization>>buildTransition:withElements:forView:
---> Save our in-boxes!
http://emailcharter.org <---
Johan Fabry -
http://pleiad.cl/~jfabry
PLEIAD and RyCh labs - Computer Science Department (DCC) - University
of Chile
_______________________________________________
Moose-dev mailing list
Moose-dev(a)list.inf.unibe.ch
https://www.list.inf.unibe.ch/listinfo/moose-dev