SCSeasideResponse

• cookies
• status

• initializeFromResponse:

• anchorWithId:
• anchorWithId:ifNone:
• anchorWithLabel:
• anchorWithLabel:ifNone:
• anchors
• anchorsWithLabel:
• bodyElement
• formWithId:
• formWithId:ifNone:
• forms
• fullStringContents
• stringTaggedWithId:

• fromResponse:

inferredType:

UndefinedObject

	^httpResponse cookies

	^httpResponse status

 
	| doc |
	anHttpResponse contents reset.
	httpResponse _ anHttpResponse.
	doc _ XMLDOMParser parseDocumentFrom: anHttpResponse contents.
	self
		initializeFromXMLElement: (doc elementAt: #html)

 
	^self
		anchorWithId: aString
		ifNone: []

 
	| res |
	res _ self elementWithId: aString ifNone: [].
	^res ifNil: aBlock ifNotNil: [SCSeasideAnchor fromXMLElement: res]

 
	^ self anchors detect: [:anchor | anchor label = aString] ifNone: []

	^ self anchors
		detect: [:anchor | anchor label = aString]
		ifNone: aBlock

	| result |
	result := OrderedCollection new.
	self 
		allElementsWithTag: #a
		in: xmlElement
		addTo: result.
	result := result select: [:each | each attributes includesKey: #href].
	^result collect: [:each | SCSeasideAnchor fromXMLElement: each]

 
	^ self anchors
		select: [:anchor | anchor label = aString]

	^ xmlElement
		elementAt: #body

 
	^ self formWithId: aString ifNone: []

 
	| res |
	res _ self
				elementWithId: aString
				ifNone: [].
	^ res
		ifNil: aBlock
		ifNotNil: [SCSeasideForm fromXMLElement: res]

	| result |
	result := OrderedCollection new.
	self 
		allElementsWithTag: #form
		in: xmlElement
		addTo: result.
	^result collect: [:each | SCSeasideForm fromXMLElement: each]

	^httpResponse contents contents

	^(self elementWithId: anId) contents first string

 
	^ self new initializeFromResponse: aResponse