WAHtmlCanvas

• document
• tag:

• encodeCharacter:
• html:
• text:

• heading:
• heading:level:
• space

• anchor
• blockquote
• blockquote:
• bold
• bold:
• break
• code
• code:
• div
• div:
• form
• form:
• horizontalRule
• italic
• italic:
• listItem
• listItem:
• paragraph
• paragraph:
• preformatted
• preformatted:
• script
• script:
• small
• small:
• span
• span:
• table
• table:
• tableData
• tableData:
• tableRow
• tableRow:
• unorderedList
• unorderedList:

• generateTags
• patternFor:
• tags

inferredType:

UndefinedObject

	self subclassResponsibility

	^ self brush: (WAGenericTag tag: aString)

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

	self flush.
	self document text: aString asString

	self html: (WAAbstractHtmlBuilder encode: anObject)

	self heading: aBlock level: 1

	(self tag: 'h', aNumber asString) with: aBlock

	self html: ' '

	^ self brush: WAAnchorTag new

	^ self tag: 'blockquote'

	self blockquote with: aBlock

	^ self tag: 'b'

	self bold with: aBlock

	^ self tag: 'br'

	^ self tag: 'code'

	self code with: aBlock

	^ self tag: 'div'

	self div with: aBlock

	^ self brush: WAFormTag new

	self form with: aBlock

	^ self tag: 'hr'

	^ self tag: 'i'

	self italic with: aBlock

	^ self tag: 'li'

	self listItem with: aBlock

	^ self tag: 'p'

	self paragraph with: aBlock

	^ self tag: 'pre'

	self preformatted with: aBlock

	^ self tag: 'script'

	self script with: aBlock

	^ self tag: 'small'

	self small with: aBlock

	^ self tag: 'span'

	self span with: aBlock

	^ self tag: 'table'

	self table with: aBlock

	^ self tag: 'td'

	self tableData with: aBlock

	^ self tag: 'tr'

	self tableRow with: aBlock

	^ self tag: 'ul'

	self unorderedList with: aBlock

	self tags do:
		[:pair |
		self compile: pair second, '
	^ self ', (self patternFor: pair first)
			classified: 'html-generated'.
		pair size = 3 ifTrue:
			[self compile: pair third, ' aBlock
	self ', pair second, ' with: aBlock'
			classified: 'html-generated']]

	WATagBrush allSubclassesDo: [:ea | ea new tag = aString ifTrue: [^ 'brush: ', ea name, ' new']].
	^ 'tag: ', aString printString

	"
	self generateTags
	"

	^ #(
		('a' anchor)
		
		('p' paragraph paragraph:)
		('div' div div:)
		('span' span span:)

		('blockquote' blockquote blockquote:)
		
		('code' code code:)
		('pre' preformatted preformatted:)
		('b' bold bold:)
		('i' italic italic:)
		('small' small small:)
						
		('ul' unorderedList unorderedList:)
		('li' listItem listItem:)
		
		('br' break)
		('hr' horizontalRule)
		
		('form' form form:)
		
		('table' table table:)
		('tr' tableRow tableRow:)
		('td' tableData tableData:)
		
		('script' script script:)
		)