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