WAHtmlRenderer

• fileUploadWithValue:callback:
• passwordInputWithCallback:value:

• textInputOn:of:

• callbacks
• close
• context
• document
• initializeWithContext:callbacks:
• registry
• request
• response

• dateInputWithValue:callback:
• timeInputWithValue:callback:

• anchorWithAction:do:
• anchorWithAction:form:
• anchorWithAction:image:
• anchorWithAction:text:
• anchorWithCallback:do:
• booleanMenuWithValue:callback:
• booleanMenuWithValue:callback:labels:
• form:
• hiddenInputWithCallback:
• hiddenInputWithValue:callback:
• openAnchorWithAction:
• passwordInputWithCallback:
• passwordInputWithValue:callback:
• selectFromList:selected:callback:
• selectFromList:selected:callback:labels:
• selectFromList:selected:callback:labels:nilLabel:
• selectInputOn:of:list:
• submitButtonWithAction:text:
• textInputWithCallback:
• textInputWithValue:callback:
• textInputWithValue:callback:maxLength:
• unorderedList:selected:callback:
• unorderedList:selected:callback:labels:
• unorderedListOn:of:list:

• cancelButtonWithAction:
• checkboxWithValue:callback:
• defaultAction:
• fileUploadWithCallback:
• label:input:
• openSelect
• optionGroupWithLabel:do:
• optionWithLabel:callback:
• optionWithLabel:selected:callback:
• parseNumber:
• radioButtonInGroup:selected:callback:
• radioButtonInGroup:withValue:on:of:
• radioGroup
• submitButtonWithAction:
• submitButtonWithAction:do:
• submitButtonWithAction:image:
• textAreaWithValue:callback:
• urlForAction:
• urlForIdempotentAction:
• valueInputOfType:value:callback:

• anchorWithDocument:mimeType:fileName:text:
• anchorWithDocument:mimeType:text:
• anchorWithDocument:text:
• imageMapWithAction:form:
• imageWithForm:
• openAnchorWithDocument:mimeType:fileName:
• parseImageMap:
• urlForDocument:

• anchorWithAction:liveAction:text:
• anchorWithPopupAction:extent:do:
• anchorWithPopupAction:extent:text:
• anchorWithPopupAction:name:extent:toggles:do:
• anchorWithScript:do:
• autofocus:
• divWithShow:hide:do:
• ensureId
• selectFromList:selected:callback:labels:liveCallback:
• selectFromList:selected:callback:labels:other:label:
• textInputWithCallback:liveCallback:
• urlForLiveRequest:

• anchorOn:of:
• booleanMenuOn:of:
• callbackForSelector:of:
• checkboxOn:of:
• labelledRowForCheckboxOn:of:
• labelledRowForList:on:of:
• labelledRowForTextAreaOn:of:
• labelledRowForTextInputOn:of:
• labelledRowForTextInputOn:of:size:
• submitButtonOn:of:
• textAreaOn:of:

• context:callbacks:

inferredType:

UndefinedObject

inferredType:

UndefinedObject

 
	self
		inputWithType: 'file'
		named: (callbacks registerCallback: aBlock)
		value: aValue

	self
		valueInputOfType: 'password'
		value: v
		callback: callbackBlock

 
	self attributes at: 'id' ifAbsentPut: aSymbol.
	self
		textInputWithValue: (anObject perform: aSymbol)
		callback: (self callbackForSelector: aSymbol of: anObject)

	^ callbacks

	^ context

	^ context document

	context _ aRenderingContext.
	callbacks _ aCallbackStore.

	^ WACurrentSession value application 

	^ self context request

	^ self context response

	| values |
	aBlock fixTemps.
	
	values _ Array new: 3.
	self
		selectFromList: (1 to: 12)
		selected: aDate monthIndex 
		callback: [ :month | values at: 2 put: month ]
		labels: [:ea | Date nameOfMonth: ea].
	self space.
	self
		textInputWithValue: aDate dayOfMonth 
		callback: [ :day | values at: 1 put: day ]
		maxLength: 2.
	self space.
	self 
		textInputWithValue: aDate year
		callback: [ :year | values at: 3 put: year]
		maxLength: 4.
	self hiddenInputWithCallback:
		[aBlock value: (Date
				newDay: (values first min: (Date daysInMonth: values second forYear: values third))
				monthNumber: values second
				year: values third)].

	| values |
	aBlock fixTemps.
	values _ Array new: 2.
	self
		textInputWithValue: aTime hour
		callback: [:hour | values at: 1 put: hour]
		maxLength: 2.
	self space; text: ':'; space.
	self
		textInputWithValue: aTime minutes asTwoCharacterString
		callback: [:minute | values at: 2 put: minute asNumber]
		maxLength: 2.
	self hiddenInputWithCallback:
		[aBlock value:
			(Time
				hour: values first
				minute: (values second min: 59)
				second: 0)]
		
	
	

	self openAnchorWithAction: actionBlock.
	self render: linkBlock.
	self closeTag: 'a'.

	self anchorWithAction: actionBlock do: [self imageWithForm: aForm.]

	self anchorWithAction: actionBlock do: [self imageWithForm: aForm.]

	self anchorWithAction: actionBlock do: aString

	self anchorWithUrl: (self urlForIdempotentAction: actionBlock) do: linkBlock

	self booleanMenuWithValue: aBoolean callback: callbackBlock labels: #(Yes No)

	self
		selectFromList: (Array with: true with: false)
		selected: aBoolean
		callback: callbackBlock
		labels: [:b | b ifTrue: [labelArray first] ifFalse: [labelArray second]]

	self
		formWithMethod: 'post'
		action: context actionUrl urlString
		do: [
			self div: [
				context actionUrl parameters keysAndValuesDo:
				[:k :v |
				self inputWithType: 'hidden' named: k value: v].
			aBlock value
		]]

	self inputWithType: 'hidden' named: (self callbacks registerCallback: callbackBlock)

	self valueInputOfType: 'hidden'
		value: anObject
		callback: callbackBlock

	self
		attributeAt: 'href'
		put: (self urlForAction: actionBlock).
	self openTag: 'a'.

	self passwordInputWithValue: '' callback: callbackBlock

	self
		valueInputOfType: 'password'
		value: anObject
		callback: callbackBlock

	self selectFromList: aCollection selected: selectedObject callback: callbackBlock labels: [:i | i asString]

	self openSelect.
	callbackBlock fixTemps.

	aCollection do:
		[:item |
		self
			optionWithLabel: (labelsBlock value: item)
			selected: (item = selectedObject)
			callback: [callbackBlock value: item]].
	self closeTag: 'select'.

	self selectFromList: (Array with: nil), aCollection asArray
		selected: selectedObject
		callback: callbackBlock
		labels: [:ea | ea ifNil: [aString] ifNotNil: [labelsBlock value: ea]]

	self
		selectFromList: aCollection
		selected: (anObject perform: selectedSymbol)
		callback: (self callbackForSelector: selectedSymbol of: anObject)

	self attributeAt: 'value' put: aString.
	self submitButtonWithAction: aBlock

	self textInputWithValue: '' callback: callbackBlock

	self
		valueInputOfType: 'text'
		value: anObject
		callback: callbackBlock

	self attributes
		at: 'size' put: aNumber;
		at: 'maxlength' put: aNumber.
	self textInputWithValue: anObject callback: callbackBlock.

	self unorderedList: aCollection selected: anObject  callback: aBlock labels: [:ea | ea asString]

	aBlock fixTemps.
	self cssClass: 'options'.
	self unorderedList: [
		aCollection do:
			[:ea |
			self cssClass: 'option'.
			ea = anObject ifTrue: [self cssId: 'option-selected'].
			self listItem: [self anchorWithAction: [aBlock value: ea] text: (labelBlock value: ea)]].
	]

	self
		unorderedList: aCollection
		selected: (anObject perform: aSymbol)
		callback: (self callbackForSelector: aSymbol of: anObject)

	self attributes value: 'Cancel'.
	self inputWithType: 'submit' named: (self callbacks registerCancelActionCallback: aBlock)

   | value originalAttributes |
   value _ ValueHolder new.
   originalAttributes _ attributeBuffer.
   attributeBuffer _ nil.
   self
       hiddenInputWithCallback: [value contents: false].
   attributeBuffer _ originalAttributes.
   self attributeAt: 'checked' put: aBoolean.
   self
       valueInputOfType: 'checkbox'
       value: 'true'
       callback: [value contents: true].
   callbackBlock fixTemps.
   self
       hiddenInputWithCallback: [callbackBlock value: value contents]

	self
		inputWithType: 'hidden'
		named: (self callbacks registerDefaultActionCallback: actionBlock)

	aBlock fixTemps.
	self
		inputWithType: 'file'
		named: (self callbacks registerCallback: [:f | aBlock value: (f = '' ifFalse: [f])])

	| id |
	id _ 'id', self context advanceKey.
	self labelFor: id do:
		[self text: aString.
		self space.
		self cssId: id.
		aBlock value]

	| name |
	name _ self callbacks registerDispatchCallback.
	self attributes at: 'name' put: name.
	self openTag: 'select'.	

	self attributes at: 'label' put: aString.
	self tag: 'optgroup' do: aBlock

	self optionWithLabel: aString selected: false callback: aBlock

	self 
		attributeAt: 'selected' put: aBoolean;
		attributeAt: 'value' put: (self callbacks registerCallback: callbackBlock).
	
	self tag: 'option' do: labelString.

	^ [aString asNumber]
		on: Error
		do: [:e | aString]

	self attributeAt: 'checked' put: aBoolean.
	
	self inputWithType: 'radio' named: radioGroupKey value: (self callbacks registerCallback: callbackBlock)

	self
		radioButtonInGroup: radioGroupKey
		selected: (value = (anObject perform: aSelector))
		callback: [anObject perform: aSelector asMutator with: value]

	^ self callbacks registerDispatchCallback.

	self inputWithType: 'submit'
		named: (self callbacks registerActionCallback: actionBlock)

	self buttonWithType: 'submit'
		named: (self callbacks registerActionCallback: actionBlock)
		value: nil
		do: aBlock

	self attributes
		src: (self context urlForDocument: aForm);
		width: aForm width;
		height: aForm height.
	self inputWithType: 'image'
		named: (self callbacks registerImageCallback: actionBlock)

	|callback name |
	callback _ value
					ifNil: [[:v | callbackBlock value: (v = '' ifTrue: [nil] ifFalse: [v])]]
					ifNotNil: [callbackBlock].
	name _ self callbacks registerCallback: callback.
	self attributes
		at: 'name' put: name;
		at: 'rows' ifAbsentPut: [3];
		at: 'cols' ifAbsentPut: [25].
	
	self tag: 'textarea' do: value.

	| url |
	url _ context actionUrl withParameter:  (self callbacks registerActionCallback: actionBlock).
	^ url asString

	| url |
	url _ context actionUrl withParameter:  (self callbacks registerIdempotentActionCallback: actionBlock).
	^ url asString

	|updateKey callback value|
	value _ anObject.
	callback _ callbackBlock.
	anObject isNumber ifTrue:
		[anObject isFraction
			ifTrue:
				[value _ anObject asFloat asString.
				callback _ [:v | callbackBlock value:
									(v = value ifTrue: [anObject] ifFalse: [(self parseNumber: v)])]]
			ifFalse:
				[callback _ [:v | callbackBlock value: (self parseNumber: v)]]].
	anObject isNil ifTrue:
		[value _ ''.
		callback _ [:v | callbackBlock value: (v = '' ifTrue: [nil] ifFalse: [v])]].
					
	updateKey _ self callbacks registerCallback: callback.
	self inputWithType: typeString named: updateKey value: value.
	^ updateKey

	self openAnchorWithDocument: anObject mimeType: mimeType fileName: fileName.
	self text: aString.
	self closeTag: 'a'.

	self anchorWithDocument: anObject mimeType: mimeType fileName: nil text: aString

	self anchorWithDocument: anObject mimeType: nil text: aString

	|point pointKey url |
	aBlock fixTemps.
	point _ ValueHolder new.
	pointKey _ self callbacks registerCallback:
								[:ptString |
								point contents: (self parseImageMap: ptString)].
	url _ self urlForAction: [aBlock value: point contents].
	
	self
		attributeAt: 'href'
		put: url, '&', pointKey, '='.
	self tag: 'a' do: [
		self attributeAt: 'border' put: 0; attributeAt: 'ismap' put: true.
		self imageWithForm: aForm.
	]

	self image: (self context urlForDocument: aForm) width: aForm width height: aForm height

	self attributeAt: 'href' put: (self context urlForDocument: anObject mimeType: mimeType fileName: fileName).
	self openTag: #a.

	|s x y|
	('?*,*' match: aString) ifFalse: [^ nil].
	s _ aString readStream.
	s upTo: $?.
	x _ s upTo: $,.
	y _ s upToEnd.
	^ x asNumber @ y asNumber
	

	^ self context urlForDocument: anObject

	| uri id |
	id _ self ensureId.
	self anchorWithAction: actionBlock text: aString.
	uri _ self urlForLiveRequest: [:t :h | liveBlock value: h].
	self script: 'document.getElementById(',id printString,').onclick = liveUpdaterUri(',uri asString printString, ')'

	self
		anchorWithPopupUrl: (self urlForAction: aBlock)
		extent: aPoint
		do: anObject

	self
		anchorWithPopupAction: aBlock 
		extent: aPoint 
		do: aString

	self
		anchorWithPopupUrl: (self urlForAction: aBlock)
		name: nameString 
		extent: aPoint
		toggles: aCollection
		do: anObject

	self attributes at: 'onClick' put: aString.
	self anchorWithUrl: '#' do: linkBlock

	| id |
	id _ self ensureId.
	aBlock value.
	self script: 'document.getElementById("', id asString, '").focus()'

	| linkId divId onClick |
	linkId _ self context advanceKey.
	divId _ self context advanceKey.
	onClick _ 'swapDisplay(', linkId printString, ', ', divId printString, '); return false;'.
	self attributes id: linkId; style: 'display: block'.
	self anchorWithScript: onClick do: showLink.
	self attributes id: divId; style: 'display: none'.
	self div: [
		self anchorWithScript: onClick do: hideLink.
		self div: aBlock.
	]

	^ (self attributes at: 'id' ifAbsentPut: ['id', self context advanceKey]) value

	| uri id items |
	id _ self ensureId.
	items _ aCollection asArray.
	self selectFromList: items selected: anObject callback: callbackBlock labels: labelsBlock.
	uri _ self urlForLiveRequest: [:index :h | liveBlock value: (items at: index asInteger + 1 ifAbsent: []) value: h].
	self script: 'document.getElementById(',id printString,').onchange = liveSelect(',id printString,',',uri asString printString,')'

	| id other  |
	id _ 'id', self context advanceKey asString.
	other _ (self context nextKey asNumber + aCollection size + 1) asString.
	self attributes onChange: 'if(this.value == ', other printString, ') {document.getElementById(', id printString, ').style.display = "inline"; document.getElementById(', id printString, ').focus()} else {document.getElementById(', id printString, ').style.display = "none"}'.
	self
		selectFromList: (aCollection asArray copyWith: aString)
		selected: anObject
		callback: [:v | v = aString ifFalse: [aBlock value: v]]
		labels: [:ea | ea = aString ifTrue: [aString] ifFalse: [labelBlock value: ea]].
	self space.
	self cssId: id.
	self attributes style: 'display: none'.
	self textInputWithValue: nil callback: [:v | v ifNotNil: [otherBlock value: v]]

	| uri id |
	id _ self ensureId.
	self textInputWithValue: '' callback: callbackBlock.
	uri _ self urlForLiveRequest: liveBlock.
	self script: 'liveSearch(',id printString,',',uri asString printString,')'.
	

	| text response renderer document |
	^ WACurrentSession value actionUrlForContinuation:
		[:req |
		text _ req at: 's' ifAbsent: [].
		response _ WAResponse new.
		renderer _ WAHtmlRenderer
						context: self context copy
						callbacks: self callbacks.
		document _ WAHtmlStreamDocument new stream: response stream.
		renderer context document: document.
		aBlock value: text value: renderer.
		document close.
		WACurrentSession value returnResponse: response]

	self
		cssId: aSymbol;
		anchorWithAction: (MessageSend receiver: anObject selector: aSymbol)
		text: (self labelForSelector: aSymbol)

	self
		cssId: aSymbol;
		booleanMenuWithValue: (anObject perform: aSymbol)
		callback: (self callbackForSelector: aSymbol of: anObject)

	^ MessageSend receiver: anObject selector: (aSymbol copyWith: $:) asSymbol

	self
		checkboxWithValue: (anObject perform: aSymbol)
		callback: (self callbackForSelector: aSymbol of: anObject)

	self tableRowWithLabel: (self labelForSelector: aSymbol) column: 
		[self checkboxOn: aSymbol of: anObject]

	self tableRowWithLabel: (self labelForSelector: aSymbol) column: 
		[self
			selectFromList: aCollection
			selected: (anObject perform: aSymbol)
			callback: (self callbackForSelector: aSymbol of: anObject)]

	self tableRowWithLabel: (self labelForSelector: aSymbol) column: 
		[self textAreaOn: aSymbol of: anObject]

	self labelledRowForTextInputOn: aSymbol of: anObject size: nil

	self tableRowWithLabel: (self labelForSelector: aSymbol) column: 
		[sizeIntegerOrNil ifNotNil: [self attributeAt: #size put: sizeIntegerOrNil].
		self textInputOn: aSymbol of: anObject]

	self
		cssId: aSymbol;
		submitButtonWithAction: (MessageSend receiver: anObject selector: aSymbol)
		text: (self labelForSelector: aSymbol)

	self
		cssId: aSymbol;
		textAreaWithValue: (anObject perform: aSymbol)
		callback: (self callbackForSelector: aSymbol of: anObject)

	^ self basicNew initializeWithContext: aRenderingContext callbacks: aCallbackStore