13 lines
421 B
Smalltalk
13 lines
421 B
Smalltalk
accessing
|
|
asDictionary
|
|
|
|
| tweets |
|
|
tweets := self messages.
|
|
^ { 'profile-card-avatar' -> self profileImageFile fullName.
|
|
'profile-card-fullname' -> self name .
|
|
'profile-card-username' -> self userName .
|
|
'profile-bio' -> self profileBio.
|
|
'messages-size' -> tweets size.
|
|
'messages-newest' -> tweets newest created asDate greaseString.
|
|
'messages-oldest' -> tweets oldest created asDate greaseString
|
|
} asDictionary |