2022-04-11 15:05:21 +00:00
|
|
|
accessing
|
|
|
|
getLocalMessages
|
2022-04-17 00:53:33 +00:00
|
|
|
|
2022-04-14 22:40:41 +00:00
|
|
|
| allTweets myTweets tweetsWithAntecesor |
|
2022-04-13 02:58:51 +00:00
|
|
|
|
2022-04-14 21:43:31 +00:00
|
|
|
TweetsCollection storeDB.
|
2022-04-13 02:58:51 +00:00
|
|
|
allTweets := Tweet storedInstances asOrderedCollection.
|
|
|
|
allTweets ifNil: [ ^ nil ].
|
|
|
|
myTweets := TweetsCollection new.
|
2022-04-14 22:40:41 +00:00
|
|
|
tweetsWithAntecesor := allTweets select: [ :each | each timelines isNotEmpty and: [ each timelines keys first = self userName ]].
|
|
|
|
myTweets messages: tweetsWithAntecesor.
|
|
|
|
self messages: myTweets.
|
2022-04-18 23:36:52 +00:00
|
|
|
^ self
|
2022-04-13 02:58:51 +00:00
|
|
|
|