10 lines
236 B
Smalltalk
10 lines
236 B
Smalltalk
|
accessing
|
||
|
|
pageCursorFor: anUrl
|
||
|
|
|
||
|
|
| response value key |
|
||
|
|
response := Dictionary new.
|
||
|
|
value := self documentTreeFor: anUrl.
|
||
|
|
key := ((value xpath: '//a[.="Load more"]') @ 'href')stringValue.
|
||
|
|
^ response
|
||
|
|
at: key put: value;
|
||
|
|
yourself
|