    deferred class
    	EV_TEXTABLE

    General
    	cluster: interface
    	description: "Abstraction for objects that have a text label."
    	keywords: "text, label, font, name, property"

    Ancestors
    	EV_ANY*

    Queries
    	data: ANY
    	is_destroyed: BOOLEAN
    	text: STRING_32

    Commands
    	copy (other: [like Current] EV_TEXTABLE)
    	destroy
    	remove_text
    	set_data (some_data: [like data] ANY)
    	set_text (a_text: STRING_GENERAL)

    Constraints
    	text not void