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