We tried
modelEditor := (RubSmalltalkMethodEditorModel new client: self).
widget := modelEditor newScrolledText.
widget
on: self
text: #sourceCodeFrom:
accept: #compileSource:notifying:
readSelection: #contentsSelectionFrom:
menu: #sourceCodeMenu:shifted:.
self addDependent: modelEditor.
self when: #sourceCodeFrom: send: #setText: to: modelEditor.
widget
beWrapped;
beForSmalltalkCode;
withLineNumbers;
setText: self sourceCode;
setTextSelector: #halt.
^ widget
