14 lines
430 B
Smalltalk
14 lines
430 B
Smalltalk
accessing
|
|
getLocalMessages
|
|
|
|
| allTweets myTweets tweetsWithAntecesor |
|
|
|
|
TweetsCollection storeDB.
|
|
allTweets := Tweet storedInstances asOrderedCollection.
|
|
allTweets ifNil: [ ^ nil ].
|
|
myTweets := TweetsCollection new.
|
|
tweetsWithAntecesor := allTweets select: [ :each | each timelines isNotEmpty and: [ each timelines keys first = self userName ]].
|
|
myTweets messages: tweetsWithAntecesor.
|
|
self messages: myTweets.
|
|
^ self
|
|
|