Hi,
On 13 Jun 2012, at 17:20, Alexandre Bergel wrote:
The arrow at the end of the line can be added as a convenience method. Perhaps something like this: edge + ROLine + ROArrow.
It wil be something like edge + (ROLine new addBeginning: ROArrow new)
The information about where the arrow should be placed in the ROArrow rather than in the ROLine. Like this you could just compose the two without the Line knowing anything about the Arrow.
As you propose it also makes sense, but the problem is that adding the Arrow decorator happens through a different mechanism (addBeginning:) than the regular one (addShape:).
Doru
Alexandre
On 12 Jun 2012, at 21:15, Usman Bhatti wrote:
Thanks Alex. But I think arrowed line was a good tool to show relationship between two entities without specifying the position of arrow. So, it will be good if you can keep it.
On Tue, Jun 12, 2012 at 6:54 PM, Alexandre Bergel alexandre.bergel@me.com wrote: Hi!
I know this has been on the wished list of many of you. The following script produces: <Screen Shot 2012-06-13 at 12.54.05 AM.png>
-=-=-=-=-=-=-=-=-=-=-=-= | view el1 el2 edge line | view := ROView new. el1 := ROElement new. el1 @RODraggable. el1 extent: 50@50. el1 + ROBox blue.
el2 := ROElement new. el2 @RODraggable. el2 extent: 50@50. el2 + ROBox green.
el1 translateTo: 0 @ 100.
edge := ROEdge from: el1 to: el2. line := ROLine new. line add: ROArrow new offset: 0.1. line add: ROArrow new offset: 0.5. edge + line.
view add: el1; add: el2; add: edge. view open -=-=-=-=-=-=-=-=-=-=-=-=
I will remove ROArrowedLine very soon then
Alexandre
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
Moose-dev mailing list Moose-dev@iam.unibe.ch https://www.iam.unibe.ch/mailman/listinfo/moose-dev
Moose-dev mailing list Moose-dev@iam.unibe.ch https://www.iam.unibe.ch/mailman/listinfo/moose-dev
-- www.tudorgirba.com
"Beauty is where we see it."
Moose-dev mailing list Moose-dev@iam.unibe.ch https://www.iam.unibe.ch/mailman/listinfo/moose-dev
-- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
Moose-dev mailing list Moose-dev@iam.unibe.ch https://www.iam.unibe.ch/mailman/listinfo/moose-dev
-- www.tudorgirba.com
"We cannot reach the flow of things unless we let go."