WADocumentHandler

• =
• document
• handleRequest:
• hash
• initializeWithDocument:mimeType:fileName:
• isActive
• mimeDocument
• mimeType
• response

• document:mimeType:fileName:

inferredType:

UndefinedObject

inferredType:

UndefinedObject

inferredType:

UndefinedObject

inferredType:

UndefinedObject

	^ (other species = self species
		and: [other document = self document])
		and: [other mimeType = self mimeType]

	^ document

	^ self response

	^ self document hash bitXor: self mimeType hash

	document _ anObject.
	mimeType _ mimeString.
	fileName _ fileString.

	^ true

	^ mimeDocument ifNil: [mimeDocument _ document asMIMEDocument ]

	^ mimeType

	| response |
	response _ WAResponse new.
	response contents: self mimeDocument contentStream text.
	response contentType: (mimeType ifNil: [self mimeDocument contentType]).
	response headerAt: 'Expires' put: 'Thu, 01 Jan 2095 12:00:00 GMT'.
	fileName ifNotNil: 
		[response headerAt: 'Content-Disposition' put: 'attachment; filename=' , fileName].
	^ response

	^ self basicNew initializeWithDocument: anObject mimeType: mimeString fileName: fileString