12 lines
362 B
Smalltalk
12 lines
362 B
Smalltalk
accessing
|
|
exportProfileImageOn: fileReference
|
|
|
|
| file |
|
|
file := fileReference asFileReference.
|
|
file ensureDelete.
|
|
file exists ifFalse: [ file ensureCreateFile ].
|
|
file binaryWriteStreamDo: [ :stream |
|
|
stream nextPutAll: profileImageUrl retrieveContents ].
|
|
profileImageFile := file.
|
|
super class inform: 'Exported as: ', String cr, file fullName.
|
|
^ file |