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)

Alexandre
  
Just wild speculation, how about using #- equivalent to #edgeTo: and/or using  #< and #> for arrows...

el1 - el2
el1 < - el2
el1 - > el2
el < - > el2
el <:0.1 <:0.5 - el2
el < large - thick > outline el2

  
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