Hi!

We have added a new builder, the punch card.

Consider the following script:

builder := ROPunchcardBuilder new.
builder addModels: (ROObject withAllSubclasses copyFrom: 3 to: 9).
builder addMetric: [ :c | c numberOfMethods + 5] namedAs: 'NOM'.
builder addMetric: [ :c | c numberOfVariables * 5 ] namedAs: 'NOA'.
builder addMetric: [ :c | c numberOfSubclasses * 5  ] namedAs: 'NOS'.
builder popupText: [ :class :metricName :value | 'The value of ', metricName, ' for ', class name, ' is ', value asString ].
builder minColor: Color green.
builder maxColor: Color red.
builder open.

It produce the following:

-- 
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel  http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.

_______________________________________________
Moose-dev mailing list
Moose-dev@iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev