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