6 lines
177 B
Smalltalk
6 lines
177 B
Smalltalk
|
accessing
|
||
|
|
storeContents
|
||
|
|
|
||
|
|
| objectString |
|
||
|
|
objectString := STON toStringPretty: self.
|
||
|
|
^ MarkupFile exportAsFileOn: self folder/ self userName, 'ston' containing: objectString.
|