Programatically generating accessors for a class
We first create a class with a few slots:
Object subclass: #Something instanceVariableNames: 'x y z' classVariableNames: '' package: 'Something'.
Then we script the refactoring:
model := RBNamespace new. Something instVarNames do: [ :name | (RBCreateAccessorsForVariableRefactoring model: model variable: name class: #Something classVariable: false) primitiveExecute ]. model