    class
    	EV_GRID_COLUMN_I

    General
    	cluster: implementation_mswin
    	description: "Column of an EV_GRID, containing EV_GRID_ITEMs."
    	create: make

    Ancestors
    	EV_DESELECTABLE_I*
    	EV_GRID_COLUMN_ACTION_SEQUENCES_I
    	REFACTORING_HELPER

    Action sequences
    	deselect_actions: EV_NOTIFY_ACTION_SEQUENCE
    	select_actions: EV_NOTIFY_ACTION_SEQUENCE

    Queries
    	background_color: EV_COLOR
    	count: INTEGER_32
    	foreground_color: EV_COLOR
    	index: INTEGER_32
    	index_of_first_item: INTEGER_32
    	internal_is_selected: BOOLEAN
    	is_displayed: BOOLEAN
    	is_locked: BOOLEAN
    	is_selectable: BOOLEAN
    	is_selected: BOOLEAN
    	item (i: INTEGER_32): EV_GRID_ITEM
    	locked_column: EV_GRID_LOCKED_COLUMN_I
    	locked_position: INTEGER_32
    	parent: EV_GRID
    	pixmap: EV_PIXMAP
    	required_width_of_item_span (start_row, end_row: INTEGER_32): INTEGER_32
    	selected_items: ARRAYED_LIST [EV_GRID_ITEM]
    	title: STRING_32
    	to_implement_assertion (comment: STRING_8): BOOLEAN
    	virtual_x_position: INTEGER_32
    	virtual_x_position_unlocked: INTEGER_32
    	width: INTEGER_32

    Commands
    	clear
    	disable_select
    	enable_select
    	ensure_visible
    	fixme (comment: STRING_8)
    	hide
    	lock_at_position (a_position: INTEGER_32)
    	redraw
    	remove_pixmap
    	set_background_color (a_color: EV_COLOR)
    	set_foreground_color (a_color: EV_COLOR)
    	set_item (i: INTEGER_32; a_item: EV_GRID_ITEM)
    	set_pixmap (a_pixmap: EV_PIXMAP)
    	set_title (a_title: [like title] STRING_32)
    	set_width (a_width: INTEGER_32)
    	show
    	to_implement (comment: STRING_8)
    	unlock

    Constraints
    	header item not void
    	physical index set