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

class
	Z_TREE_ITEM

inherit
	Z_TREE_NODE
		redefine
			make
		end

create
	make

feature {NONE} -- Initialization

	make (n: STRING)
			-- Initialize `Current'.
		do
			Precursor (n)
			create nodes.make
		end

feature -- Access

	nodes: LINKED_LIST [Z_TREE_NODE]

feature -- Change

	add_node (i: Z_TREE_NODE)
		do
			nodes.force (i)
			i.set_parent (Current)
		end

end