7 lines
156 B
Smalltalk
7 lines
156 B
Smalltalk
accessing
|
|
exportInto: aFolder
|
|
| file |
|
|
file := aFolder / self id, 'ston'.
|
|
^ MarkupFile
|
|
exportAsFileOn: file
|
|
containing: (STON toStringPretty: self) |