Create-accessors
createAccessors
self instVarNames do: [ :var |
self compile: var, String cr, ' ^ ', var.
self compile: var, ': aValue',
String cr, ' ^', var, ' := aValue'.
]
createAccessors
self instVarNames do: [ :var |
self compile: var, String cr, ' ^ ', var.
self compile: var, ': aValue',
String cr, ' ^', var, ' := aValue'.
]