11 lines
446 B
Smalltalk
11 lines
446 B
Smalltalk
|
accessing
|
||
|
updatedTweets
|
||
|
| currentTweetsPage response nextPageCursor |
|
||
|
|
||
|
currentTweetsPage := self collectRawTweetsFrom: self userNameLinkWithReplies upToPage: 2.
|
||
|
[ (currentTweetsPage collect: [ :tweet | tweet id ]) includes: self newestTweet id ] whileFalse: [
|
||
|
response addAll: currentTweetsPage.
|
||
|
nextPageCursor := currentTweetsPage nextCursor.
|
||
|
currentTweetsPage := self collectRawTweetsFrom: nextPageCursor upToPage: 2.
|
||
|
].
|
||
|
^ response
|