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.