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. |