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

class
	Z_TREE

create
	make

feature {NONE} -- Initialization

	make (n: STRING)
			-- Initialize `Current'.
		do
			name := n
			create nodes.make
			create nodes_table.make (10)
		end

feature -- Access

	name: STRING

	title: STRING
		do
			Result := "Tree named %""+ name +"%""
		end

	nodes: LINKED_LIST [Z_TREE_NODE]

	nodes_table: HASH_TABLE [Z_TREE_NODE, INTEGER]

feature -- Change

	add_node (i: Z_TREE_NODE)
		do
			nodes.force (i)
			nodes_table.force (i, i.id)
		end

end