|famixClasses|
famixClasses := (FAMIXEntity withAllSubclasses select: [: aClass | aClass name
beginsWith: 'FAMIX']).
"view shape rectangle withText size: 10."
view shape: (UMLClassDiagram new umlShape).
view nodes: famixClasses.
view shape: (MOOrthoHorizontalLineShape new).
view edgesFrom: #superclass.
view horizontalDominanceTreeLayout horizontalGap: 20; verticalGap: 7.
Cheers,
Alexandre
On 13 Sep 2011, at 12:14, Usman Bhatti wrote:
Hi,
I am trying to replicate the figure present on the following webpage:
http://www.themoosebook.org/book/internals/famix/core
The purpose is to include the figure in the document describing Famix 3.0 in detail. So
far working through examples, I have been able to produce this script:
|famixClasses|
famixClasses := (FAMIXEntity withAllSubclasses select: [: aClass | aClass name
beginsWith: 'FAMIX']).
view shape rectangle withText size: 10.
view nodes: famixClasses.
view shape: (MOOrthoHorizontalLineShape new).
view edgesFrom: #superclass.
view horizontalDominanceTreeLayout horizontalGap: 20; verticalGap: 7.
I need help in removing Famix from the prefix of the class names and add attribute
information in a UML like format.
thanx
Usman
_______________________________________________
Moose-dev mailing list
Moose-dev(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel
http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.