Not the best way maybe:
������ | model refactoring1 refactoring2 browser |
������ model := RBNamespace onEnvironment: RBBrowserEnvironment new.
������ refactoring1 := RBAddClassRefactoring
������ ������ model: model
������ ������ addClass: #SomeClass
������ ������ superclass: #Object
������ ������ subclasses: {}
������ ������ category: #Category.
������ refactoring1 primitiveExecute.
������ refactoring2 := RBAddInstanceVariableRefactoring
������ ������ model: model
������ ������ variable: 'x'
������ ������ class: #SomeClass.
������ refactoring2 primitiveExecute.
������ browser := ChangesBrowser new.
������ browser changesTree roots: (model changes whatToDisplayIn: browser).
������ browser open