12 lines
555 B
Smalltalk
12 lines
555 B
Smalltalk
accessing
|
|
downloadProfileImage
|
|
|
|
self remoteIsFound
|
|
ifTrue: [ ^ self exportProfileImageOn: self folder / 'profile-image', 'jpg' ]
|
|
ifFalse: [ | tempFile |
|
|
tempFile := (self folder / 'profile-image', 'jpg') asFileReference.
|
|
tempFile ensureCreateFile.
|
|
tempFile binaryWriteStreamDo: [ :stream |
|
|
stream nextPutAll: 'https://mutabit.com/repos.fossil/mutabit/uv/wiki/commons/twitter-user-image-default.jpg' asUrl retrieveContents.
|
|
super class inform: 'Exported as: ', String cr, tempFile fullName.
|
|
^ self folder / 'profile-image', 'jpg' ]] |