12 lines
410 B
Smalltalk
12 lines
410 B
Smalltalk
accessing
|
|
getLocalMessages
|
|
"TO DO! This method should return messages from the local database"
|
|
| allTweets myTweets |
|
|
|
|
allTweets := Tweet storedInstances asOrderedCollection.
|
|
allTweets ifNil: [ ^ nil ].
|
|
myTweets := TweetsCollection new.
|
|
myTweets tweets: (allTweets select: [ :each | each timelines isNotEmpty and: [each timelines keys first = self userName] ] ).
|
|
self tweets: myTweets.
|
|
^ self tweets
|
|
|