indexing description: "Objects that ..." author: "" date: "$Date$" revision: "$Revision$" class XMLDOC_PARAGRAPH inherit XMLDOC_COMPOSITE_TEXT redefine process_visitor, add_item end XMLDOC_BLOCK_I XMLDOC_WITH_TITLE create make feature -- Access add_item (i: XMLDOC_ITEM) -- Add item `i' to `items' do if {t: XMLDOC_TEXT} i and then not t.is_empty and then (items.is_empty --or else not {tt: XMLDOC_TEXT} items.last ) then t.clean_first_blank end Precursor (i) end feature {XMLDOC_VISITOR} -- Visitor process_visitor (v: XMLDOC_VISITOR) do v.process_paragraph (Current) end end