migrating to roassal - MOArrowedOrthoVerticalLineShape

I am usings the code to produce the attached image.
  view shape: (MOArrowedOrthoVerticalLineShape new).
  view edges: inheritance from: #superclass to: #yourself.
    

This one gave me a hard time. Update Roassal and try the following:
-=-=-=-=-=-=-=-=-=-=-=-=
	view shape rectangle withText.
	view nodes: (ROShape withAllSubclasses). 
	view shape: (ROOrthoVerticalLineShape new add: (ROVerticalArrow new offset: 1 )).
	view edgesFrom: #superclass.
	view treeLayout. 
-=-=-=-=-=-=-=-=-=-=-=-=

In the example I have added many examples about arrowed edges.

  

And just to document something I got working... previously to hide lines while keeping the layout I was using...
  view shape: (MOStraightLineShape new color: Color white).
  view edgesFrom: [ :xx | xx - 1 ].
and now...
  (view edgesFrom: [ :xx | xx - 1 ] ) do: [ :edge | edge - ROEdge ] . 
    

Yep. An example was provided.

Cheers,
Alexandre
  

It works well.  Thanks for you effort.

Alexandre Bergel wrote:
>> I am usings the code to produce the attached image.
>>   view shape: (MOArrowedOrthoVerticalLineShape new).
>>   view edges: inheritance from: #superclass to: #yourself.
>>     
>
> This one gave me a hard time. Update Roassal and try the following:
> -=-=-=-=-=-=-=-=-=-=-=-=
> 	view shape rectangle withText.
> 	view nodes: (ROShape withAllSubclasses). 
> 	view shape: (ROOrthoVerticalLineShape new add: (ROVerticalArrow new offset: 1 )).
> 	view edgesFrom: #superclass.
> 	view treeLayout. 
> -=-=-=-=-=-=-=-=-=-=-=-=
>
> In the example I have added many examples about arrowed edges.
>
>   
>> And just to document something I got working... previously to hide lines while keeping the layout I was using...
>>   view shape: (MOStraightLineShape new color: Color white).
>>   view edgesFrom: [ :xx | xx - 1 ].
>> and now...
>>   (view edgesFrom: [ :xx | xx - 1 ] ) do: [ :edge | edge - ROEdge ] . 
>>     
>
> Yep. An example was provided.
>
> Cheers,
> Alexandre
>   

  

_______________________________________________
Moose-dev mailing list
[hidden email]
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
  

Roassal-BenComan.271.mcz (271K) Download Attachment