WAAbstractHtmlBuilder

• document

• attributeAt:put:
• attributes
• attributes:
• closeTag:
• encodeCharacter:
• encodeText:
• html:
• labelFor:do:
• openTag:
• render:
• shouldCloseTag:
• tag:
• tag:do:
• text:

• cssClass:
• cssId:
• divClass:with:
• divNamed:with:
• spanClass:with:
• spanNamed:with:
• style:

• doesNotUnderstand:

• buttonForUrl:withText:
• buttonForUrl:withText:data:
• buttonWithType:named:value:do:
• fieldsetWithLegend:do:
• inputWithType:
• inputWithType:named:
• inputWithType:named:value:
• submitButtonWithText:

• scriptWithUrl:

• acronym:do:
• anchorWithMailto:
• anchorWithMailto:subject:
• anchorWithName:
• anchorWithUrl:do:
• anchorWithUrl:title:do:
• bold:
• break
• div:
• emphasis:
• formWithAction:do:
• formWithMethod:action:do:
• heading:
• heading:level:
• horizontalRule
• image:
• image:altText:
• image:width:height:
• image:width:height:altText:
• italic:
• list:
• list:do:
• listItem:
• orderedList:
• orderedList:do:
• paragraph
• paragraph:
• preformatted:
• script:
• space
• space:
• span:
• submitButton
• underline:
• unorderedList:

• anchorWithPopupUrl:extent:do:
• anchorWithPopupUrl:extent:text:
• anchorWithPopupUrl:name:extent:toggles:do:
• popupStringWithUrl:name:extent:toggles:
• toggleStringFor:

• labelForSelector:

• layoutTable:
• layoutTableOfWidth:do:
• spacerRow
• table:
• tableData:
• tableData:span:
• tableHeading:
• tableHeadings:
• tableRow:
• tableRowWith:
• tableRowWith:span:
• tableRowWith:with:
• tableRowWith:with:with:
• tableRowWithLabel:column:
• tableRowWithLabel:column:column:

• encode:
• initialize

inferredType:

UndefinedObject

InitialValue:

#($ $
$ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $! '"' $# $$ $% '&' $' $( $) $* $+ $, $- $. $/ $0 $1 $2 $3 $4 $5 $6 $7 $8 $9 $: $; '<' $= '>' $? $@ $A $B $C $D $E $F $G $H $I $J $K $L $M $N $O $P $Q $R $S $T $U $V $W $X $Y $Z $[ $\ $] $^ $_ $` $a $b $c $d $e $f $g $h $i $j $k $l $m $n $o $p $q $r $s $t $u $v $w $x $y $z ${ $| $} $~ $ $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $� $�)

inferredType:

Array

	self subclassResponsibility 

	self attributes at: aString put: anObject

	^ attributeBuffer ifNil: [attributeBuffer _ WAHtmlAttributes new]

	aCollection associationsDo: [:x | self attributeAt: x key put: x value]

	self document closeTag: aString 

	self html: ('&#', aCharacter asInteger asString, ';').  

	"deprecated"
	self text: anObject

	self document text: aString.

	self attributes at: 'for' put: idString.
	self tag: 'label' do: aBlock

	self document openTag: aString attributes: self attributes.
	attributeBuffer _ nil.

	anObject renderOn: self

	^ #(#hr #br #input #img #link)

	self openTag: aString.
	self closeTag: aString.

	self openTag: aString.
	self render: anObject.
	self closeTag: aString.

	self html: (self class encode: anObject)

	self attributeAt: 'class' put: aString

	self attributeAt: 'id' put: aString

	self cssClass: aString; div: anObject

	self cssId: aString; div: anObject

		self cssClass: aString; span: anObject

	self cssId: aString; span: anObject

	self attributeAt: 'style' put: aString

	| argCount |
	argCount _ aMessage arguments size.
	argCount = 0 ifTrue: [^ self tag: aMessage selector].
	argCount = 1 ifTrue: [^ self tag: aMessage selector allButLast do: aMessage argument].
	^ super doesNotUnderstand: aMessage

	self buttonForUrl: urlString withText: labelString data: #()

	self formWithMethod: 'GET' action: urlString do:
		[assocCollection do: 
			[:each | self
				inputWithType: 'hidden'
				named: each key asString
				value: each value].
		self submitButtonWithText: labelString]

	nameString ifNotNil:
		[self attributes
			at: 'name' put: nameString;
			at: 'id' ifAbsentPut: nameString].
	valueString ifNotNil: [self attributes value: valueString asString].
		
	self attributes type: typeString.
	
	self tag: 'button' do: aBlock.

	self tag: 'fieldset' do: [
		self tag: 'legend' do: aString.
		aBlock value.
	]

	self inputWithType: type named: nil

	
	self inputWithType: type named: name value: nil.

	name ifNotNil: [self attributes at: 'name' put: name].
	value ifNotNil: [self attributes value: value asString].
		
	self attributes type: type.
	
	self tag: 'input'.

	self attributes value: aString.
	self inputWithType: 'submit'

	self attributes
		at: 'type' put: 'text/javascript';
		at: 'src' put: urlString.
	self tag: 'script'.

	self attributes at: 'title' put: titleString.
	self tag: 'acronym' do: aBlock

	self anchorWithUrl: 'mailto:', emailString do: emailString

	self anchorWithUrl: 'mailto:', emailString, '?subject=', subjectString do: emailString

	self attributes name: aString.
	self tag: #a.

	self attributes href: urlString.
	self tag: 'a' do: aBlock.

	self attributes	title: titleString.
	self anchorWithUrl: urlString do: aBlock.

	self tag: 'b' do: aBlock.

	self tag: 'br'

	self tag: 'div' do: aBlock.

	self tag: 'em' do: aBlock.

	self formWithMethod: 'post' action: actionUrl do: aBlock

	self attributes method: methodString;
			action: actionUrl.
	self tag: 'form' do: aBlock

	self heading: aString level: 1

	self tag: 'h', aNumber asString do: anObject

	self tag: 'hr'

	self image: urlString altText: ''

	self attributeAt: 'alt' put: altString.
	self attributeAt: 'src' put: urlString.
	
	self tag: #img.

	self image: urlString width: width height: height altText: ''

	self attributeAt: 'width' put: width.
	self attributeAt: 'height' put: height.
	self attributeAt: 'border' put: 0.
	
	self image: urlString altText: altString

	self tag: 'i' do: aBlock.

	self list: aCollection do: [:x | self text: x]

	self unorderedList:
		[aCollection do:
			[:item |
			self listItem: [aBlock value: item]]]

	self tag: #li do: aBlock

	self tag: 'ol' do: aBlock

	self orderedList:
		[aCollection do:
			[:item |
			self listItem: [aBlock value: item]]]

	self tag: 'p'

	self tag: 'p' do: aBlock

	self tag: 'pre' do: anObject

	self tag: 'script' do: [self html: aString]

	self html: ' '

	aNumber timesRepeat: [self space]

	self tag: 'span' do: aBlock.

	self inputWithType: 'submit'

	self tag: 'u' do: aBlock.

	self tag: 'ul' do: aBlock

	self 
		anchorWithPopupUrl: urlString 
		name: ''''''
		extent: aPoint 
		toggles: #(menubar resizable scrollbars) 
		do: anObject

	self 
		anchorWithPopupUrl: urlString 
		extent: aPoint 
		do: aString

	self attributes
		at: 'onClick' 
		put: (self popupStringWithUrl: urlString name: nameString extent: aPoint toggles: aCollection), '; return false'.
	
	self anchorWithUrl: urlString do: anObject. 

	^ String streamContents:
		[:stream |
		stream 
			nextPutAll: 'window.open(';
			nextPut: $';
			nextPutAll: urlString;
			nextPut: $';
			nextPut: $,;
			nextPut: $';
			nextPutAll: nameString;
			nextPut: $';
			nextPut:$,;
			nextPut: $';
			nextPutAll: 'width=';
			nextPutAll: aPoint x asString;
			nextPutAll: ',height=';
			nextPutAll: aPoint y asString;
			nextPut: $,;
			nextPutAll: (self toggleStringFor: aCollection);
			nextPut: $';
			nextPutAll: ')']

	^ String streamContents:
		[:stream |
		aCollection 
			do: [:ea | stream nextPutAll: ea asString, '=yes']
			separatedBy: [stream nextPutAll: ',']]

	^ aSymbol asCapitalizedPhrase

	self attributes
		border: 0;
		cellspacing: 0;
		cellpadding: 0.
	self table: aBlock

	self attributes width: width.
	self layoutTable: aBlock

	self tableRowWith: [self space]

	self tag: 'table' do: aBlock

	self tag: 'td' do: aBlock

	aNumber > 0 ifTrue:
		[self attributes at: 'colspan' put: aNumber.
		self tableData: aBlock]

	self tag: 'th' do: aBlock

	self tableRow: [aCollection do: [:ea | self tableHeading: ea]]

	self tag: 'tr' do: aBlock

	self tableRow: [ self tableData: aBlock ]

	self tableRow: [ self tableData: aBlock span: aNumber]

	self tableRow: [ self tableData: aBlock; tableData: anotherBlock]

	self tableRow: [ self tableData: x; tableData: y; tableData: z]

	self tableRow: [
		self cssClass: 'label'.
		self tableData: anObject.
		self tableData: aBlock]

	self tableRow: [
		self cssClass: 'label'.
		self tableData: anObject.
		self tableData: aBlock; tableData: anotherBlock]

	| charOrString |
	^ String streamContents:
		[:s |
		anObject asString do:
			[:char |
			charOrString _ HtmlCharacters at: char asInteger + 1.
			charOrString isString
				ifTrue: [s nextPutAll: charOrString]
				ifFalse: [s nextPut: charOrString]]]

	"WAHtmlBuilder initialize"
	HtmlCharacters _ Array new: 256.
	
	0 to: 255 do: [:ea | HtmlCharacters at: ea + 1 put: ea asCharacter].
	
	#($" 'quot' $< 'lt' $& 'amp' $> 'gt') pairsDo:
		[:c :s | HtmlCharacters at: (c asInteger + 1) put: ('&',s,';') ]