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

class
	XMLDOC_TEXT

inherit
	XMLDOC_ITEM
		redefine
			process_visitor
		end

	DEBUG_OUTPUT

	XMLDOC_WITH_TEXT

create
	make

feature {NONE} -- Initialization

	make (c: XMLDOC_CONTENT) is
			-- Initialize `Current'.
		do
			set_text (c.text)
		end
		
feature {XMLDOC_VISITOR} -- Visitor

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

feature -- Status report

	debug_output: STRING is
			-- String that should be displayed in debugger to represent `Current'.
		do
			create Result.make_from_string (generator + "(" + text.count.out + ")=")
			if text.count > 10 then
				Result.append_string (text.substring (1, 10) + "...")
			else
				Result.append_string (text)
			end
		end
end