6 lines
111 B
Smalltalk
6 lines
111 B
Smalltalk
accessing
|
|
gtTextFor: aView
|
|
<gtView>
|
|
^ aView textEditor
|
|
title: 'STON';
|
|
text: [ STON toStringPretty: self ] |