12 lines
552 B
Smalltalk
12 lines
552 B
Smalltalk
accessing
|
|
avatarPicture
|
|
| response profileImgFile|
|
|
profileImgFile := self profileImageFile.
|
|
profileImgFile exists
|
|
ifTrue: [ ^ (ImageReadWriter formFromFileNamed: profileImgFile fullName) asElement ].
|
|
response := ZnClient new url: (self profileImageUrl); get; response.
|
|
response contentType = ZnMimeType imageJpeg
|
|
ifTrue: [ ^ (PluginBasedJPEGReadWriter gtFromBuffer: response contents) asElement ].
|
|
response contentType = ZnMimeType imagePng
|
|
ifTrue: [ ^ (PNGReadWriter gtFromBuffer: response contents) asElement ].
|
|
^ GtABContact new avatar |