indexing
	description: "Objects that ..."
	author: ""
	date: "$Date$"
	revision: "$Revision$"

class
	XMLDOC_COMPOSITE_TEXT

inherit
	XMLDOC_ITEM
		redefine
			process_visitor
		end

	XMLDOC_WITH_CONTENT
		rename
			make as make_content
		redefine
			add_item
		end

	XMLDOC_WITH_STYLE

	XMLDOC_WITH_ALIGNMENT
		rename
			make as make_alignment
		end

	DEBUG_OUTPUT

create
	make

feature {NONE} -- Initialization

	make is
			-- Initialize `Current'.
		do
			make_content
			make_alignment
		end

feature -- Element change

	add_item (i: XMLDOC_ITEM)
			-- Add item `i' to `items'
		do
			if
				{t: XMLDOC_TEXT} i and then
				not t.is_empty and then
				(not items.is_empty and then items.last.is_block)
			then
				t.clean_first_blank
			end
			Precursor (i)
		end

feature {XMLDOC_VISITOR} -- Visitor

	process_visitor (v: XMLDOC_VISITOR)
		do
			v.process_composite_text (Current)
		end

feature -- Status report

	debug_output: STRING is
			-- String that should be displayed in debugger to represent `Current'.
		do
			Result := items.count.out + " item(s)"
		end

end