    deferred class
    	EV_FONTABLE

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

    Ancestors
    	EV_ANY*

    Queries
    	data: ANY
    	font: EV_FONT
    	is_destroyed: BOOLEAN

    Commands
    	copy (other: [like Current] EV_FONTABLE)
    	destroy
    	set_data (some_data: [like data] ANY)
    	set_font (a_font: EV_FONT)