19 lines
466 B
Smalltalk
19 lines
466 B
Smalltalk
Class {
|
|
#name : #MarkupFile,
|
|
#superclass : #Object,
|
|
#instVars : [
|
|
'file'
|
|
],
|
|
#category : #'Grafoscopio-Utils'
|
|
}
|
|
|
|
{ #category : #persistence }
|
|
MarkupFile class >> exportAsFileOn: aFileReferenceOrFileName containing: contents [
|
|
| file |
|
|
file := aFileReferenceOrFileName asFileReference.
|
|
file exists ifFalse: [ file ensureCreateFile ].
|
|
file writeStreamDo: [ :stream |
|
|
stream nextPutAll: contents ].
|
|
self inform: 'Exported as: ', String cr, file fullName
|
|
]
|