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

deferred
class
	Z_TREE_NODE

feature {NONE} -- Initialization

	make (n: STRING)
		do
			name := n
			id := counter.item + 1
			counter.replace (id)
		end

feature -- Access

	parent: detachable Z_TREE_NODE

	name: STRING

	unicode_text: detachable READABLE_STRING_32

	id: INTEGER

feature -- Change

	set_parent (p: like parent)
		do
			parent := p
		end

	set_unicode_text (v: detachable READABLE_STRING_32)
		do
			unicode_text := v
		end

feature {NONE} -- Impl

	counter: CELL [INTEGER]
		once
			create Result.put (0)
		end

end