Fixing long standing bug regarding line separators.
This commit is contained in:
parent
4d0c56f10b
commit
c41cb4c2d2
@ -17,7 +17,7 @@ MarkupFile class >> exportAsFileOn: aFileReferenceOrFileName containing: text [
|
|||||||
file ensureDelete.
|
file ensureDelete.
|
||||||
file exists ifFalse: [ file ensureCreateFile ].
|
file exists ifFalse: [ file ensureCreateFile ].
|
||||||
file writeStreamDo: [ :stream |
|
file writeStreamDo: [ :stream |
|
||||||
stream nextPutAll: text withInternetLineEndings].
|
stream nextPutAll: text withUnixLineEndings].
|
||||||
self inform: 'Exported as: ', String cr, file fullName.
|
self inform: 'Exported as: ', String cr, file fullName.
|
||||||
^ file
|
^ file
|
||||||
]
|
]
|
||||||
|
Loading…
Reference in New Issue
Block a user