From VisualWorks® NonCommercial, 7.3 of December 3, 2004 on October 18, 2005 at 12:39:15 pm
CormasNS.Kernel.ScenarioBuilderInterface actions
addClass: className Attribut: attributName initPara: parameterInitialValue finalPara: parameterFinalValue step: parameterStep
self classesToAnalyse at: className ifAbsentPut: [Dictionary new].
(self classesToAnalyse at: className) at: attributName ifAbsent: [self nbOfParameters value: self nbOfParameters value + 1.].
(self classesToAnalyse at: className) at: attributName put: List new.
((self classesToAnalyse at: className) at: attributName)
add: parameterInitialValue.
((self classesToAnalyse at: className) at: attributName)
add: parameterFinalValue.
((self classesToAnalyse at: className) at: attributName)
add: parameterStep.
self isParameterSensitive: true.