This commit is contained in:
ruidajo 2022-05-15 13:58:56 -05:00
commit 7fa248e4fa

View File

@ -0,0 +1,11 @@
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