    class
    	EV_MODEL_TEXT

    General
    	cluster: interface
    	description:
    		"
    		`text's in a `font' displayed on p0 == point.

    		p0---------------------------p2
    		|fooooooooooooooooooooooooooo
    		| p3
    		|bar        center
    		|foobar
    		p1

    		p3.y - p0.y  is the should height of a character to match scale
    		p3.x - p0.x  is the should width of a character to match scale
    		"
    	keywords: "figure, text, string"
    	create: make_with_text, make_with_position, default_create

    Ancestors
    	COMPARABLE*
    	EV_FONT_CONSTANTS
    	EV_MODEL_ATOMIC*
    	EV_MODEL_SINGLE_POINTED*
    	EV_SHARED_SCALE_FACTORY

    Action sequences
    	conforming_pick_actions: EV_NOTIFY_ACTION_SEQUENCE
    	drop_actions: EV_PND_ACTION_SEQUENCE
    	pick_actions: EV_PND_START_ACTION_SEQUENCE
    	pointer_button_press_actions: EV_POINTER_BUTTON_ACTION_SEQUENCE
    	pointer_button_release_actions: EV_POINTER_BUTTON_ACTION_SEQUENCE
    	pointer_double_press_actions: EV_POINTER_BUTTON_ACTION_SEQUENCE
    	pointer_enter_actions: EV_NOTIFY_ACTION_SEQUENCE
    	pointer_leave_actions: EV_NOTIFY_ACTION_SEQUENCE
    	pointer_motion_actions: EV_POINTER_MOTION_ACTION_SEQUENCE

    Queries
    	accept_cursor: EV_POINTER_STYLE
    	Angle: REAL_64
    	are_events_sended_to_group: BOOLEAN
    	bounding_box: EV_RECTANGLE
    	dashed_line_style: BOOLEAN
    	deny_cursor: EV_POINTER_STYLE
    	font: EV_FONT
    	foreground_color: EV_COLOR
    	group: EV_MODEL_GROUP
    	has_capture: BOOLEAN
    	height: INTEGER_32
    	id: INTEGER_32
    	id_object (an_id: INTEGER_32): IDENTIFIED
    	infix "<" (other: [like Current] EV_MODEL_TEXT): BOOLEAN
    	infix "<=" (other: [like Current] EV_MODEL_TEXT): BOOLEAN
    	infix ">" (other: [like Current] EV_MODEL_TEXT): BOOLEAN
    	infix ">=" (other: [like Current] EV_MODEL_TEXT): BOOLEAN
    	is_center_valid: BOOLEAN
    	is_default_font_used: BOOLEAN
    	is_equal (other: [like Current] EV_MODEL_TEXT): BOOLEAN
    	is_hashable: BOOLEAN
    	is_in_group: BOOLEAN
    	is_in_world: BOOLEAN
    	Is_rotatable: BOOLEAN
    	Is_scalable: BOOLEAN
    	is_sensitive: BOOLEAN
    	is_show_requested: BOOLEAN
    	Is_transformable: BOOLEAN
    	line_width: INTEGER_32
    	max (other: [like Current] EV_MODEL_TEXT): [like Current] EV_MODEL_TEXT
    	min (other: [like Current] EV_MODEL_TEXT): [like Current] EV_MODEL_TEXT
    	object_id: INTEGER_32
    	pebble: ANY
    	pebble_function: FUNCTION [ANY, TUPLE, ANY]
    	point: EV_COORDINATE
    	point_count: INTEGER_32
    	point_relative: EV_COORDINATE
    	point_x: INTEGER_32
    	point_x_relative: INTEGER_32
    	point_y: INTEGER_32
    	point_y_relative: INTEGER_32
    	pointer_style: EV_POINTER_STYLE
    	position_on_figure (a_x, a_y: INTEGER_32): BOOLEAN
    	target_name: STRING_GENERAL
    	text: STRING_32
    	three_way_comparison (other: [like Current] EV_MODEL_TEXT): INTEGER_32
    	valid_family (a_family: INTEGER_32): BOOLEAN
    	valid_shape (a_shape: INTEGER_32): BOOLEAN
    	valid_weight (a_weight: INTEGER_32): BOOLEAN
    	width: INTEGER_32
    	world: EV_MODEL_WORLD
    	x: INTEGER_32
    	y: INTEGER_32

    Commands
    	center_invalidate
    	disable_capture
    	disable_dashed_line_style
    	disable_events_sended_to_group
    	disable_sensitive
    	enable_capture
    	enable_dashed_line_style
    	enable_events_sended_to_group
    	enable_sensitive
    	hide
    	remove_pebble
    	rotate (an_angle: REAL_64)
    	rotate_around (an_angle: REAL_64; ax, ay: INTEGER_32)
    	scale (a_scale: REAL_64)
    	scale_abs (a_scale: REAL_64)
    	scale_x (a_scale_x: REAL_64)
    	scale_x_abs (a_scale_x: REAL_64)
    	scale_y (a_scale_y: REAL_64)
    	scale_y_abs (a_scale_y: REAL_64)
    	set_accept_cursor (a_cursor: EV_POINTER_STYLE)
    	set_deny_cursor (a_cursor: EV_POINTER_STYLE)
    	set_font (a_font: [like font] EV_FONT)
    	set_foreground_color (a_color: EV_COLOR)
    	set_identified_font (an_id_font: EV_IDENTIFIED_FONT)
    	set_line_width (a_width: INTEGER_32)
    	set_pebble (a_pebble: [like pebble] ANY)
    	set_pebble_function (a_function: FUNCTION [ANY, TUPLE, ANY])
    	set_point_position (ax, ay: INTEGER_32)
    	set_point_position_relative (ax, ay: INTEGER_32)
    	set_pointer_style (a_cursor: [like pointer_style] EV_POINTER_STYLE)
    	set_target_name (a_name: STRING_GENERAL)
    	set_text (a_text: [like text] STRING_32)
    	set_x (a_x: INTEGER_32)
    	set_x_y (a_x, a_y: INTEGER_32)
    	set_y (a_y: INTEGER_32)
    	show
    	transform (a_transformation: EV_MODEL_TRANSFORMATION)

    Constraints
    	text exists
    	font exists