'From VisualWorks(R) Release 2.0 of 4 August 1994 on 21 June 1995 at 3:50:12 pm'!


HyperComponent subclass: #WebComponent
	instanceVariableNames: 'hTextFlag container '
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Hypertext-Storage Layer'!

WebComponent comment:
'WebComposite and I are parse tree nodes for HTML document. I am an atomic node. 

instance variables:
	hTextFlag 		<Boolean> True means I am a text that can be concatenated to other WebComponent for presentation. 
	container		<WebComposite> My parent node in the parse tree.'!


!WebComponent methodsFor: 'accessing'!

container
	^container!

container: aHyperComponent
	container := aHyperComponent! !

HyperComposite subclass: #WebComposite
	instanceVariableNames: 'hTextFlag container '
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Hypertext-Storage Layer'!

WebComposite comment:
'WebComponent and I are parse tree nodes for HTML document. I am a composite node. 

instance variables:
	hTextFlag 		<Boolean> True means I am a text that can be concatenated to other WebComponent for presentation. 
	container		<WebComposite> My parent node in the parse tree.'!


!WebComposite methodsFor: 'accessing'!

add: aHyperComponent
	super add: aHyperComponent. 
	aHyperComponent container: self!

container
	^container!

container: aHyperComponent
	container := aHyperComponent! !


!HtmlParser methodsFor: 'private'!

addLeaf: mappedObject 
	elementStack isEmpty
		ifFalse: 
			[| last |
			last := elementStack lastElement.
			last add: mappedObject]! !