GrafoscopioUtils/repository/Grafoscopio-Utils/MarkupFile.class.st
2020-05-02 22:53:56 +00:00

17 lines
435 B
Smalltalk

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