Pharo sample to show UML

Playground.st

| b classes targetClassNames |
classes := MooseModel root allModels first allClasses select: [:each | 
(each container mooseName beginsWith:'edu::' ) and: (each name endsWith: 'Optimizer') ].

"La doc sur les collections m'est toujours super utile: http://pharo.gforge.inria.fr/PBE1/PBE1ch10.html"
targetClassNames := Set withAll: #('CBMOptimizer','CBMSOptimizer','CBMUtilityOptimizer').

view := RTView new.
view @ RTZoomableView.

b := RTUMLClassBuilder new
   instanceVariables: #attributes;
   methodselector: #name;
   methodsNames: #methods;
	view: view.
    
b attributeShape color: Color black.
b methodShape color: Color brown.
b classNameShape color: Color black.
b lineShape arrowedLine color: Color blue.
b boxShape borderColor: Color black.
b addObjects: (classes select: [:c | targetClassNames includes: c name ]).
b layout tree.
b build.
^ b view