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.