14 lines
474 B
Smalltalk
14 lines
474 B
Smalltalk
|
accessing
|
||
|
pageURLs: anInteger
|
||
|
|
||
|
| response nextPageLink previousPageLink dicTemp |
|
||
|
|
||
|
response := OrderedDictionary new.
|
||
|
response at: self userNameLink put: self documentTree.
|
||
|
previousPageLink := self userNameLink.
|
||
|
anInteger - 1 timesRepeat: [
|
||
|
nextPageLink := self userNameLink, (self pageCursorFor:previousPageLink) keys first.
|
||
|
response at: nextPageLink put: (self pageCursorFor:previousPageLink) values first.
|
||
|
previousPageLink := nextPageLink
|
||
|
].
|
||
|
^ response
|