7 Nov
2013
7 Nov
'13
10:17 p.m.
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
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
