2022-05-04 01:50:20 +00:00
|
|
|
accessing
|
2022-05-15 18:56:39 +00:00
|
|
|
newestOf: userName
|
2022-05-04 01:50:20 +00:00
|
|
|
|
2022-05-15 18:56:39 +00:00
|
|
|
| user |
|
|
|
|
|
user := (TwitterUser storedInstances select: [ :each | each userName = userName ]) first.
|
2022-05-04 01:50:20 +00:00
|
|
|
self messages ifNil: [ ^ nil ].
|
|
|
|
|
self messages ifEmpty: [ ^ nil ].
|
2022-05-15 22:15:12 +00:00
|
|
|
user messages: self.
|
|
|
|
|
^ ((user tweets)
|
2022-05-15 18:56:39 +00:00
|
|
|
select: [ :tweet | tweet created = ((self collect: [ :each | each created ]) asSortedCollection last)]) first.
|
