14 lines
387 B
Smalltalk
14 lines
387 B
Smalltalk
|
accessing
|
||
|
|
pageDocTrees: anInteger
|
||
|
|
|
||
|
|
| response nextPageLink previousPageLink |
|
||
|
|
|
||
|
|
response := OrderedDictionary new.
|
||
|
|
previousPageLink := self userNameLink.
|
||
|
|
response add: previousPageLink.
|
||
|
|
anInteger - 1 timesRepeat: [
|
||
|
|
nextPageLink := self userNameLink, (self pageCursorFor:previousPageLink) value.
|
||
|
|
response add: nextPageLink.
|
||
|
|
previousPageLink := nextPageLink
|
||
|
|
].
|
||
|
|
^ response
|