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 |