    deferred class
    	EV_TREE_NODE_CONTAINER

    General
    	obsolete: "This is no longer applicable. Use EV_TREE_ITEM_LIST instead."
    	cluster: interface
    	description: "Abstract class for container that hold tree nodes"
    	keywords: "container"

    Ancestors
    	EV_ANY*
    	LINEAR* [G]

    Queries
    	after: BOOLEAN
    	changeable_comparison_criterion: BOOLEAN
    	data: ANY
    	exhausted: BOOLEAN
    	for_all (test: FUNCTION [ANY, TUPLE [EV_TREE_NODE], BOOLEAN]): BOOLEAN
    	has (v: [like item] EV_TREE_NODE): BOOLEAN
    	index: INTEGER_32
    	index_of (v: [like item] EV_TREE_NODE; i: INTEGER_32): INTEGER_32
    	is_destroyed: BOOLEAN
    	is_empty: BOOLEAN
    	item: EV_TREE_NODE
    	linear_representation: LINEAR [EV_TREE_NODE]
    	object_comparison: BOOLEAN
    	occurrences (v: [like item] EV_TREE_NODE): INTEGER_32
    	off: BOOLEAN
    	there_exists (test: FUNCTION [ANY, TUPLE [EV_TREE_NODE], BOOLEAN]): BOOLEAN

    Commands
    	compare_objects
    	compare_references
    	copy (other: [like Current] EV_TREE_NODE_CONTAINER)
    	destroy
    	do_all (action: PROCEDURE [ANY, TUPLE [EV_TREE_NODE]])
    	do_if (action: PROCEDURE [ANY, TUPLE [EV_TREE_NODE]]; test: FUNCTION [ANY, TUPLE [EV_TREE_NODE], BOOLEAN])
    	finish
    	forth
    	search (v: [like item] EV_TREE_NODE)
    	set_data (some_data: [like data] ANY)
    	start