    class
    	EV_GRID_CHOICE_ITEM

    General
    	cluster: interface
    	description:
    		"EV_GRID Text label whose content may be interactively chosen by the user via a list.

    		`set_item_strings' may be used to set the list items used in the choice list before the item is activated.

    		By default a list containing the strings set from `set_item_strings' is displayed, allowing
    		the user to change the text of `Current' by selecting an item within that list.

    		The default behavior of the activation may be overriden using `activate_actions' or `item_activate_actions' (from
    		EV_GRID)."
    	create: make_with_text, default_create

    Ancestors
    	EV_GRID_LABEL_ITEM

    Action sequences
    	activate_actions: ACTION_SEQUENCE [TUPLE [EV_POPUP_WINDOW]]
    	deactivate_actions: EV_NOTIFY_ACTION_SEQUENCE
    	deselect_actions: EV_NOTIFY_ACTION_SEQUENCE
    	drop_actions: EV_PND_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
    	select_actions: EV_NOTIFY_ACTION_SEQUENCE

    Queries
    	background_color: EV_COLOR
    	bottom_border: INTEGER_32
    	column: EV_GRID_COLUMN
    	data: ANY
    	font: EV_FONT
    	foreground_color: EV_COLOR
    	height: INTEGER_32
    	horizontal_indent: INTEGER_32
    	is_bottom_aligned: BOOLEAN
    	is_center_aligned: BOOLEAN
    	is_destroyed: BOOLEAN
    	is_full_select_enabled: BOOLEAN
    	is_left_aligned: BOOLEAN
    	is_parented: BOOLEAN
    	is_right_aligned: BOOLEAN
    	is_selectable: BOOLEAN
    	is_selected: BOOLEAN
    	is_top_aligned: BOOLEAN
    	is_vertically_center_aligned: BOOLEAN
    	item_strings: INDEXABLE [STRING_GENERAL, INTEGER_32]
    	layout_procedure: PROCEDURE [ANY, TUPLE [EV_GRID_LABEL_ITEM, EV_GRID_LABEL_ITEM_LAYOUT]]
    	left_border: INTEGER_32
    	parent: EV_GRID
    	pixmap: EV_PIXMAP
    	required_width: INTEGER_32
    	right_border: INTEGER_32
    	row: EV_GRID_ROW
    	spacing: INTEGER_32
    	text: STRING_32
    	text_height: INTEGER_32
    	text_width: INTEGER_32
    	to_implement_assertion (comment: STRING_8): BOOLEAN
    	tooltip: STRING_32
    	top_border: INTEGER_32
    	virtual_x_position: INTEGER_32
    	virtual_y_position: INTEGER_32
    	width: INTEGER_32

    Commands
    	activate
    	align_text_bottom
    	align_text_center
    	align_text_left
    	align_text_right
    	align_text_top
    	align_text_vertically_center
    	copy (other: [like Current] EV_GRID_CHOICE_ITEM)
    	destroy
    	disable_full_select
    	disable_select
    	enable_full_select
    	enable_select
    	ensure_visible
    	fixme (comment: STRING_8)
    	redraw
    	remove_pixmap
    	remove_text
    	set_background_color (a_color: [like background_color] EV_COLOR)
    	set_bottom_border (a_bottom_border: INTEGER_32)
    	set_data (some_data: [like data] ANY)
    	set_font (a_font: EV_FONT)
    	set_foreground_color (a_color: [like foreground_color] EV_COLOR)
    	set_item_strings (a_string_array: [like item_strings] INDEXABLE [STRING_GENERAL, INTEGER_32])
    	set_layout_procedure (a_layout_procedure: PROCEDURE [ANY, TUPLE [EV_GRID_LABEL_ITEM, EV_GRID_LABEL_ITEM_LAYOUT]])
    	set_left_border (a_left_border: INTEGER_32)
    	set_pixmap (a_pixmap: EV_PIXMAP)
    	set_right_border (a_right_border: INTEGER_32)
    	set_spacing (a_spacing: INTEGER_32)
    	set_text (a_text: STRING_GENERAL)
    	set_tooltip (a_tooltip: STRING_GENERAL)
    	set_top_border (a_top_border: INTEGER_32)
    	to_implement (comment: STRING_8)
    	toggle

    Constraints
    	choice list parented during activation