note
	description: "Objects that represent an EV_TITLED_WINDOW.%
		%The original version of this class was generated by EiffelBuild."
	legal: "See notice at end of class."
	status: "See notice at end of class."
	date: "$Date$"
	revision: "$Revision$"

class
	ITEM_TAB

inherit
	ITEM_TAB_IMP

	GRID_ACCESSOR
		undefine
			copy, default_create, is_equal
		end

feature {NONE} -- Initialization

	user_initialization
			-- Called by `initialize'.
			-- Any custom user initialization that
			-- could not be performed in `initialize',
			-- (due to regeneration of implementation class)
			-- can be added here.
		local
			list_item: EV_LIST_ITEM
			font_families: LINEAR [STRING_32]
		do
			item_finder.set_prompt ("Item Finder : ")
			item_finder.motion_actions.extend (agent finding_item)

			add_default_pixmaps_to_combo (pixmap_holder)
			add_default_colors_to_combo (foreground_color_combo)
			add_default_colors_to_combo (background_color_combo)

				-- Now Build default Fonts
			font_families ?= (create {EV_ENVIRONMENT}).font_families
			create list_item.make_with_text ("")
			font_combo.extend (list_item)
			from
				font_families.start
			until
				font_families.after
			loop
				create list_item.make_with_text (font_families.item)
				font_combo.extend (list_item)
				font_families.forth
			end
--			font_combo.disable_edit
--			font_size_combo.disable_edit
		end

feature {NONE} -- Implementation

	found_item: EV_GRID_ITEM

	finding_item (an_item: EV_GRID_ITEM)
			--
		local
			row_index, column_index: INTEGER
		do
			if an_item /= Void then
				item_frame.enable_sensitive
				item_operations_frame.enable_sensitive
				found_item := an_item
				row_index := found_item.row.index
				column_index := found_item.column.index
				item_x_index.change_actions.block
				item_x_index.set_value (column_index)
				item_x_index.change_actions.resume
				item_y_index.change_actions.block
				item_y_index.set_value (row_index)
				item_y_index.change_actions.resume
				update_item_data (column_index, row_index)
			else
				found_item := Void
				if item_frame.is_sensitive then
					item_frame.disable_sensitive
					item_operations_frame.disable_sensitive
				end
			end
		end

	item_x_index_changed (a_value: INTEGER)
			-- Called by `change_actions' of `item_x_index'.
		do
			found_item := grid.item (a_value, item_y_index.value)
			update_item_data (a_value, item_y_index.value)
		end

	item_y_index_changed (a_value: INTEGER)
			-- Called by `change_actions' of `item_y_index'.
		do
			found_item := grid.item (item_x_index.value, a_value)
			update_item_data (item_x_index.value, a_value)
		end

	update_item_data (an_x, ay: INTEGER)
			-- Display data for item at grid position `an_x', `a_y'.
		local
			label_item: EV_GRID_LABEL_ITEM
			deselectable: EV_DESELECTABLE
			l_color: EV_COLOR
			font_name: STRING
			font_height: INTEGER
			set: BOOLEAN
		do
			if found_item /= Void then
				main_box.enable_sensitive
				label_item ?= found_item
				if label_item /= Void then
					textable_container.enable_sensitive
					textable_entry.change_actions.block
					textable_entry.set_text (label_item.text)
					textable_entry.change_actions.resume
					left_border_container.enable_sensitive
					left_border_spin_button.change_actions.block
					left_border_spin_button.set_value (label_item.left_border)
					left_border_spin_button.change_actions.resume
					right_border_container.enable_sensitive
					right_border_spin_button.change_actions.block
					right_border_spin_button.set_value (label_item.right_border)
					right_border_spin_button.change_actions.resume
					top_border_container.enable_sensitive
					top_border_spin_button.change_actions.block
					top_border_spin_button.set_value (label_item.top_border)
					top_border_spin_button.change_actions.resume
					bottom_border_container.enable_sensitive
					bottom_border_spin_button.change_actions.block
					bottom_border_spin_button.set_value (label_item.bottom_border)
					bottom_border_spin_button.change_actions.resume
					spacing_container.enable_sensitive
					spacing_spin_button.change_actions.block
					spacing_spin_button.set_value (label_item.spacing)
					spacing_spin_button.change_actions.resume
					select_pixmap_from_combo (pixmap_holder, label_item.pixmap)
					alignment_container.enable_sensitive
					if label_item.is_left_aligned then
						alignment_combo.i_th (1).select_actions.block
						alignment_combo.i_th (1).enable_select
						alignment_combo.i_th (1).select_actions.resume
					elseif label_item.is_center_aligned then
						alignment_combo.i_th (2).select_actions.block
						alignment_combo.i_th (2).enable_select
						alignment_combo.i_th (2).select_actions.resume
					elseif label_item.is_right_aligned then
						alignment_combo.i_th (3).select_actions.block
						alignment_combo.i_th (3).enable_select
						alignment_combo.i_th (3).select_actions.resume
					end
					if label_item.is_top_aligned then
						vertical_alignment_combo.i_th (1).select_actions.block
						vertical_alignment_combo.i_th (1).enable_select
						vertical_alignment_combo.i_th (1).select_actions.resume
					elseif label_item.is_vertically_center_aligned then
						vertical_alignment_combo.i_th (2).select_actions.block
						vertical_alignment_combo.i_th (2).enable_select
						vertical_alignment_combo.i_th (2).select_actions.resume
					elseif label_item.is_bottom_aligned then
						vertical_alignment_combo.i_th (3).select_actions.block
						vertical_alignment_combo.i_th (3).enable_select
						vertical_alignment_combo.i_th (3).select_actions.resume
					end
					is_full_select_button.select_actions.block
					if label_item.is_full_select_enabled then
						is_full_select_button.enable_select
					else
						is_full_select_button.disable_select
					end
					is_full_select_button.select_actions.resume
					background_color_combo.select_actions.block
					if label_item.background_color /= Void then
						from
							background_color_combo.start
						until
							background_color_combo.off
						loop
							l_color ?= background_color_combo.item.data
							if l_color /= Void and then l_color.is_equal (label_item.background_color) then
								background_color_combo.item.enable_select
								background_color_combo.go_i_th (background_color_combo.count)
							end
							background_color_combo.forth
						end
					else
						background_color_combo.first.enable_select
					end
					background_color_combo.select_actions.resume
					foreground_color_combo.select_actions.block
					if label_item.foreground_color /= Void then
						from
							foreground_color_combo.start
						until
							foreground_color_combo.off
						loop
							l_color ?= foreground_color_combo.item.data
							if l_color /= Void and then l_color.is_equal (label_item.foreground_color) then
								foreground_color_combo.item.enable_select
								foreground_color_combo.go_i_th (foreground_color_combo.count)
							end
							foreground_color_combo.forth
						end
					else
						foreground_color_combo.first.enable_select
					end
					foreground_color_combo.select_actions.resume
					font_container.enable_sensitive
					if label_item.font /= Void then
						if label_item.font.preferred_families.is_empty then
							font_name := ""
						else
							font_name := label_item.font.preferred_families.i_th (1)
						end
						font_combo.select_actions.block
						from
							font_combo.go_i_th (2)
						until
							font_combo.off or set
						loop
							if font_combo.item.text.is_equal ("font_name") then
								set := True
								font_combo.item.enable_select
							end
							if not set then
								font_combo.forth
							end
						end
						if font_combo.after then
							font_combo.i_th (1).enable_select
						end
						font_combo.select_actions.resume
						font_height := label_item.font.height_in_points
						font_size_combo.select_actions.block
						set := False
						from
							font_size_combo.go_i_th (2)
						until
							font_size_combo.off or set
						loop
							if font_size_combo.item.text.to_integer = font_height then
								set := True
								font_size_combo.item.enable_select
							end
							if not set then
								font_size_combo.forth
							end
						end
						if font_size_combo.after then
							font_size_combo.i_th (1).enable_select
						end
						font_size_combo.select_actions.resume
					end
				else
					textable_container.disable_sensitive
					left_border_container.disable_sensitive
					spacing_container.disable_sensitive
					alignment_container.disable_sensitive
					bottom_border_container.disable_sensitive
					top_border_container.disable_sensitive
					right_border_container.disable_sensitive
					font_container.disable_sensitive
				end
				deselectable ?= found_item
				if deselectable /= Void then
					is_selected.enable_sensitive
					is_selected.select_actions.block
					if deselectable.is_selected then
						is_selected.enable_select
					else
						is_selected.disable_select
					end
					is_selected.select_actions.resume
				else
					is_selected.disable_sensitive
				end
			else
				main_box.disable_sensitive
			end
		end

	textable_entry_changed
			-- Called by `change_actions' of `textable_entry'.
		local
			textable: EV_TEXTABLE
		do
			textable ?= found_item
			if textable /= Void then
				textable.set_text (textable_entry.text)
			end
		end

	is_selected_selected
			-- Called by `select_actions' of `is_selected'.
		local
			deselectable: EV_DESELECTABLE
		do
			deselectable ?= found_item
			if deselectable /= Void then
				if deselectable.is_selected then
					deselectable.disable_select
				else
					deselectable.enable_select
				end
			end
		end

	remove_item_button_selected
			-- Called by `select_actions' of `remove_item_button'.
		do
			grid.remove_item (found_item.column.index, found_item.row.index)
			update_item_data (item_x_index.value, item_y_index.value)
		end

	left_border_spin_button_changed (a_value: INTEGER)
			-- Called by `change_actions' of `left_border_spin_button'.
		local
			label_item: EV_GRID_LABEL_ITEM
		do
			label_item ?= found_item
			if label_item /= Void then
				label_item.set_left_border (a_value)
			end
		end

	spacing_spin_button_changed (a_value: INTEGER)
			-- Called by `change_actions' of `spacing_spin_button'.
		local
			label_item: EV_GRID_LABEL_ITEM
		do
			label_item ?= found_item
			if label_item /= Void then
				label_item.set_spacing (a_value)
			end
		end

	pixmap_holder_item_selected
			-- Called by `select_actions' of `pixmap_holder'.			
		local
			selected_item_index: INTEGER
			label_item: EV_GRID_LABEL_ITEM
			pixmap: EV_PIXMAP
		do
			label_item ?= found_item
			if label_item /= Void then
				selected_item_index := pixmap_holder.index_of (pixmap_holder.selected_item, 1)
				inspect selected_item_index
				when 1 then
					label_item.remove_pixmap
				else
					pixmap ?= pixmap_holder.selected_item.data
					label_item.set_pixmap (pixmap)
				end
			end
		end

	left_alignment_item_selected
			-- Called by `select_actions' of `left_alignment_item'.
		local
			label_item: EV_GRID_LABEL_ITEM
		do
			label_item ?= found_item
			if label_item /= Void then
				label_item.align_text_left
			end
		end

	center_alignment_item_selected
			-- Called by `select_actions' of `center_alignment_item'.
		local
			label_item: EV_GRID_LABEL_ITEM
		do
			label_item ?= found_item
			if label_item /= Void then
				label_item.align_text_center
			end
		end

	foreground_color_combo_selected
			-- Called by `select_actions' of `foreground_color_combo'.
		local
			label_item: EV_GRID_LABEL_ITEM
			color: EV_COLOR
		do
			label_item ?= found_item
			if label_item /= Void then
				color ?= foreground_color_combo.selected_item.data
				label_item.set_foreground_color (color)
			end
		end

	background_color_combo_selected
			-- Called by `select_actions' of `background_color_combo'.
		local
			label_item: EV_GRID_LABEL_ITEM
			color: EV_COLOR
		do
			label_item ?= found_item
			if label_item /= Void then
				color ?= background_color_combo.selected_item.data
				label_item.set_background_color (color)
			end
		end

	right_alignment_item_selected
			-- Called by `select_actions' of `right_alignment_item'.
		local
			label_item: EV_GRID_LABEL_ITEM
		do
			label_item ?= found_item
			if label_item /= Void then
				label_item.align_text_right
			end
		end

	apply_pixmap_row_button_selected
			-- Called by `select_actions' of `apply_pixmap_row_button'.
		local
			counter: INTEGER
			original_item, label_item: EV_GRID_LABEL_ITEM
			row: INTEGER
			original_pixmap: EV_PIXMAP
		do
			from
				counter := 1
				row := found_item.row.index
				original_item ?= found_item
				original_pixmap := original_item.pixmap
			until
				counter > grid.column_count
			loop
				label_item ?= grid.item (counter, row)
				if label_item /= Void then
					label_item.set_pixmap (original_pixmap)
				end
				counter := counter + 1
			end
		end

	apply_pixmap_column_selected
			-- Called by `select_actions' of `apply_pixmap_column_button'.
		local
			counter: INTEGER
			original_item, label_item: EV_GRID_LABEL_ITEM
			column: INTEGER
			original_pixmap: EV_PIXMAP
		do
			from
				counter := 1
				column := found_item.column.index
				original_item ?= found_item
				original_pixmap := original_item.pixmap
			until
				counter > grid.row_count
			loop
				label_item ?= grid.item (column, counter)
				if label_item /= Void then
					label_item.set_pixmap (original_pixmap)
				end
				counter := counter + 1
			end
		end

	apply_alignment_row_button_selected
			-- Called by `select_actions' of `apply_alignment_row_button'.
		local
			counter: INTEGER
			original_item, label_item: EV_GRID_LABEL_ITEM
			row: INTEGER
		do
			from
				counter := 1
				row := found_item.row.index
				original_item ?= found_item
			until
				counter > grid.column_count
			loop
				label_item ?= grid.item (counter, row)
				if label_item /= Void then
					if original_item.is_left_aligned then
						label_item.align_text_left
					elseif original_item.is_center_aligned then
						label_item.align_text_center
					else
						label_item.align_text_right
					end
				end
				counter := counter + 1
			end
		end

	apply_alignment_column_button_selected
			-- Called by `select_actions' of `apply_alignment_column_button'.
		local
			counter: INTEGER
			original_item, label_item: EV_GRID_LABEL_ITEM
			column: INTEGER
		do
			from
				counter := 1
				column := found_item.column.index
				original_item ?= found_item
			until
				counter > grid.row_count
			loop
				label_item ?= grid.item (column, counter)
				if label_item /= Void then
					if original_item.is_left_aligned then
						label_item.align_text_left
					elseif original_item.is_center_aligned then
						label_item.align_text_center
					else
						label_item.align_text_right
					end
				end
				counter := counter + 1
			end
		end

	apply_left_border_row_button_selected
			-- Called by `select_actions' of `apply_left_border_row_button'.
		local
			counter: INTEGER
			original_item, label_item: EV_GRID_LABEL_ITEM
			row: INTEGER
			original_left_border: INTEGER
		do
			from
				counter := 1
				row := found_item.row.index
				original_item ?= found_item
				original_left_border := original_item.left_border
			until
				counter > grid.column_count
			loop
				label_item ?= grid.item (counter, row)
				if label_item /= Void then
					label_item.set_left_border (original_left_border)
				end
				counter := counter + 1
			end
		end

	apply_left_border_column_button_selected
			-- Called by `select_actions' of `apply_left_border_column_button'.
		local
			counter: INTEGER
			original_item, label_item: EV_GRID_LABEL_ITEM
			column: INTEGER
			original_left_border: INTEGER
		do
			from
				counter := 1
				column := found_item.column.index
				original_item ?= found_item
				original_left_border := original_item.left_border
			until
				counter > grid.row_count
			loop
				label_item ?= grid.item (column, counter)
				if label_item /= Void then
					label_item.set_left_border (original_left_border)
				end
				counter := counter + 1
			end
		end

	apply_spacing_row_button_selected
			-- Called by `select_actions' of `apply_spacing_row_button'.
		local
			counter: INTEGER
			original_item, label_item: EV_GRID_LABEL_ITEM
			row: INTEGER
			original_spacing: INTEGER
		do
			from
				counter := 1
				row := found_item.row.index
				original_item ?= found_item
				original_spacing := original_item.spacing
			until
				counter > grid.column_count
			loop
				label_item ?= grid.item (counter, row)
				if label_item /= Void then
					label_item.set_spacing (original_spacing)
				end
				counter := counter + 1
			end
		end

	apply_spacing_column_button_selected
			-- Called by `select_actions' of `apply_spacing_column_button'.
		local
			counter: INTEGER
			original_item, label_item: EV_GRID_LABEL_ITEM
			column: INTEGER
			original_spacing: INTEGER
		do
			from
				counter := 1
				column := found_item.column.index
				original_item ?= found_item
				original_spacing := original_item.spacing
			until
				counter > grid.row_count
			loop
				label_item ?= grid.item (column, counter)
				if label_item /= Void then
					label_item.set_spacing (original_spacing)
				end
				counter := counter + 1
			end
		end

	apply_background_row_button_selected
			-- Called by `select_actions' of `apply_background_row_button'.
		local
			counter: INTEGER
			original_item, label_item: EV_GRID_LABEL_ITEM
			row: INTEGER
			original_color: EV_COLOR
		do
			from
				counter := 1
				row := found_item.row.index
				original_item ?= found_item
				original_color := original_item.background_color
			until
				counter > grid.column_count
			loop
				label_item ?= grid.item (counter, row)
				if label_item /= Void then
					label_item.set_background_color (original_color)
				end
				counter := counter + 1
			end
		end

	apply_background_column_button_selected
			-- Called by `select_actions' of `apply_background_column_button'.
		local
			counter: INTEGER
			original_item, label_item: EV_GRID_LABEL_ITEM
			column: INTEGER
			original_color: EV_COLOR
		do
			from
				counter := 1
				column := found_item.column.index
				original_item ?= found_item
				original_color := original_item.background_color
			until
				counter > grid.row_count
			loop
				label_item ?= grid.item (column, counter)
				if label_item /= Void then
					label_item.set_background_color (original_color)
				end
				counter := counter + 1
			end
		end

	apply_selection_row_selected_button
			-- Called by `select_actions' of `apply_selection_row_button'.
		local
			counter: INTEGER
			original_item, label_item: EV_GRID_LABEL_ITEM
			row: INTEGER
			original_selected: BOOLEAN
		do
			from
				counter := 1
				row := found_item.row.index
				original_item ?= found_item
				original_selected := original_item.is_selected
			until
				counter > grid.column_count
			loop
				label_item ?= grid.item (counter, row)
				if label_item /= Void then
					if original_selected then
						label_item.enable_select
					else
						label_item.disable_select
					end
				end
				counter := counter + 1
			end
		end

	apply_selection_column_button_selected
			-- Called by `select_actions' of `apply_selection_column_button'.
		local
			counter: INTEGER
			original_item, label_item: EV_GRID_LABEL_ITEM
			column: INTEGER
			original_selected: BOOLEAN
		do
			from
				counter := 1
				column := found_item.column.index
				original_item ?= found_item
				original_selected := original_item.is_selected
			until
				counter > grid.row_count
			loop
				label_item ?= grid.item (column, counter)
				if label_item /= Void then
					if original_selected then
						label_item.enable_select
					else
						label_item.disable_select
					end
				end
				counter := counter + 1
			end
		end

	apply_foreground_row_button_selected
			-- Called by `select_actions' of `apply_foreground_row_button'.
		local
			counter: INTEGER
			original_item, label_item: EV_GRID_LABEL_ITEM
			row: INTEGER
			original_color: EV_COLOR
		do
			from
				counter := 1
				row := found_item.row.index
				original_item ?= found_item
				original_color := original_item.foreground_color
			until
				counter > grid.column_count
			loop
				label_item ?= grid.item (counter, row)
				if label_item /= Void then
					label_item.set_foreground_color (original_color)
				end
				counter := counter + 1
			end
		end

	apply_foreground_column_button_selected
			-- Called by `select_actions' of `apply_foreground_column_button'.
		local
			counter: INTEGER
			original_item, label_item: EV_GRID_LABEL_ITEM
			column: INTEGER
			original_color: EV_COLOR
		do
			from
				counter := 1
				column := found_item.column.index
				original_item ?= found_item
				original_color := original_item.foreground_color
			until
				counter > grid.row_count
			loop
				label_item ?= grid.item (column, counter)
				if label_item /= Void then
					label_item.set_foreground_color (original_color)
				end
				counter := counter + 1
			end
		end

	apply_bottom_border_row_button_selected
			-- Called by `select_actions' of `apply_bottom_border_row_button'.
		local
			counter: INTEGER
			original_item, label_item: EV_GRID_LABEL_ITEM
			row: INTEGER
			original_bottom_border: INTEGER
		do
			from
				counter := 1
				row := found_item.row.index
				original_item ?= found_item
				original_bottom_border := original_item.bottom_border
			until
				counter > grid.column_count
			loop
				label_item ?= grid.item (counter, row)
				if label_item /= Void then
					label_item.set_bottom_border (original_bottom_border)
				end
				counter := counter + 1
			end
		end

	apply_bottom_border_column_button_selected
			-- Called by `select_actions' of `apply_bottom_border_column_button'.
		local
			counter: INTEGER
			original_item, label_item: EV_GRID_LABEL_ITEM
			column: INTEGER
			original_bottom_border: INTEGER
		do
			from
				counter := 1
				column := found_item.column.index
				original_item ?= found_item
				original_bottom_border := original_item.bottom_border
			until
				counter > grid.row_count
			loop
				label_item ?= grid.item (column, counter)
				if label_item /= Void then
					label_item.set_bottom_border (original_bottom_border)
				end
				counter := counter + 1
			end
		end

	apply_right_border_row_button_selected
			-- Called by `select_actions' of `apply_right_border_row_button'.
		local
			counter: INTEGER
			original_item, label_item: EV_GRID_LABEL_ITEM
			row: INTEGER
			original_right_border: INTEGER
		do
			from
				counter := 1
				row := found_item.row.index
				original_item ?= found_item
				original_right_border := original_item.right_border
			until
				counter > grid.column_count
			loop
				label_item ?= grid.item (counter, row)
				if label_item /= Void then
					label_item.set_right_border (original_right_border)
				end
				counter := counter + 1
			end
		end

	apply_right_border_column_button_selected
			-- Called by `select_actions' of `apply_right_border_column_button'.
		local
			counter: INTEGER
			original_item, label_item: EV_GRID_LABEL_ITEM
			column: INTEGER
			original_right_border: INTEGER
		do
			from
				counter := 1
				column := found_item.column.index
				original_item ?= found_item
				original_right_border := original_item.right_border
			until
				counter > grid.row_count
			loop
				label_item ?= grid.item (column, counter)
				if label_item /= Void then
					label_item.set_right_border (original_right_border)
				end
				counter := counter + 1
			end
		end

	apply_top_border_row_button_selected
			-- Called by `select_actions' of `apply_top_border_row_button'.
		local
			counter: INTEGER
			original_item, label_item: EV_GRID_LABEL_ITEM
			row: INTEGER
			original_top_border: INTEGER
		do
			from
				counter := 1
				row := found_item.row.index
				original_item ?= found_item
				original_top_border := original_item.top_border
			until
				counter > grid.column_count
			loop
				label_item ?= grid.item (counter, row)
				if label_item /= Void then
					label_item.set_top_border (original_top_border)
				end
				counter := counter + 1
			end
		end

	apply_top_border_column_button_selected
			-- Called by `select_actions' of `apply_top_border_column_button'.
		local
			counter: INTEGER
			original_item, label_item: EV_GRID_LABEL_ITEM
			column: INTEGER
			original_top_border: INTEGER
		do
			from
				counter := 1
				column := found_item.column.index
				original_item ?= found_item
				original_top_border := original_item.top_border
			until
				counter > grid.row_count
			loop
				label_item ?= grid.item (column, counter)
				if label_item /= Void then
					label_item.set_top_border (original_top_border)
				end
				counter := counter + 1
			end
		end

	top_border_spin_button_changed (a_value: INTEGER)
			-- Called by `change_actions' of `top_border_spin_button'.
		local
			label_item: EV_GRID_LABEL_ITEM
		do
			label_item ?= found_item
			if label_item /= Void then
				label_item.set_top_border (a_value)
			end
		end

	bottom_border_spin_button_changed (a_value: INTEGER)
			-- Called by `change_actions' of `bottom_border_spin_button'.
		local
			label_item: EV_GRID_LABEL_ITEM
		do
			label_item ?= found_item
			if label_item /= Void then
				label_item.set_bottom_border (a_value)
			end
		end

	right_border_spin_button_changed (a_value: INTEGER)
			-- Called by `change_actions' of `right_border_spin_button'.
		local
			label_item: EV_GRID_LABEL_ITEM
		do
			label_item ?= found_item
			if label_item /= Void then
				label_item.set_right_border (a_value)
			end
		end

	top_alignment_item_selected
			-- Called by `select_actions' of `top_alignment_item'.
		local
			label_item: EV_GRID_LABEL_ITEM
		do
			label_item ?= found_item
			if label_item /= Void then
				label_item.align_text_top
			end
		end

	vertically_center_item_selected
			-- Called by `select_actions' of `vertically_center_item'.
		local
			label_item: EV_GRID_LABEL_ITEM
		do
			label_item ?= found_item
			if label_item /= Void then
				label_item.align_text_vertically_center
			end
		end

	bottom_alignment_item_selected
			-- Called by `select_actions' of `bottom_alignment_item'.
		local
			label_item: EV_GRID_LABEL_ITEM
		do
			label_item ?= found_item
			if label_item /= Void then
				label_item.align_text_bottom
			end
		end

	apply_vertical_alignment_column_button_selected
			-- Called by `select_actions' of `apply_vertical_selection_column_button'.
		local
			counter: INTEGER
			original_item, label_item: EV_GRID_LABEL_ITEM
			column: INTEGER
		do
			from
				counter := 1
				column := found_item.column.index
				original_item ?= found_item
			until
				counter > grid.row_count
			loop
				label_item ?= grid.item (column, counter)
				if label_item /= Void then
					if original_item.is_top_aligned then
						label_item.align_text_top
					elseif original_item.is_vertically_center_aligned then
						label_item.align_text_vertically_center
					else
						label_item.align_text_bottom
					end
				end
				counter := counter + 1
			end
		end

	apply_vertical_alignment_row_button_selected
			-- Called by `select_actions' of `apply_vertical_selection_row_button'.
		local
			counter: INTEGER
			original_item, label_item: EV_GRID_LABEL_ITEM
			row: INTEGER
		do
			from
				counter := 1
				row := found_item.row.index
				original_item ?= found_item
			until
				counter > grid.column_count
			loop
				label_item ?= grid.item (counter, row)
				if label_item /= Void then
					if original_item.is_top_aligned then
						label_item.align_text_top
					elseif original_item.is_vertically_center_aligned then
						label_item.align_text_vertically_center
					else
						label_item.align_text_bottom
					end
				end
				counter := counter + 1
			end
		end

	font_size_combo_selected
			-- Called by `select_actions' of `font_size_combo'.
		local
			font: EV_FONT
			label_item: EV_GRID_LABEL_ITEM
		do
			if font_combo.index_of (font_combo.selected_item, 1) > 1 and
				font_size_combo.index_of (font_size_combo.selected_item, 1) > 1 then

				label_item ?= found_item
				if label_item /= Void then
					if label_item.font /= Void then
						font := label_item.font.twin
					else
						create font
						font.preferred_families.extend (font_combo.selected_item.text)
					end
					font.set_height_in_points (font_size_combo.selected_item.text.to_integer)
					label_item.set_font (font)
				end
			end
		end

	font_combo_selected
			-- Called by `select_actions' of `font_combo'.
		local
			font: EV_FONT
			label_item: EV_GRID_LABEL_ITEM
		do
			if font_combo.index_of (font_combo.selected_item, 1) > 1 and
			font_size_combo.index_of (font_size_combo.selected_item, 1) > 1 then

				label_item ?= found_item
				if label_item /= Void then
					if label_item.font /= Void then
						font := label_item.font.twin
						font.preferred_families.wipe_out
					else
						create font
						font.set_height_in_points (font_size_combo.selected_item.text.to_integer)
					end
					font.preferred_families.extend (font_combo.selected_item.text)

					label_item.set_font (font)
				end
			end
		end

	apply_font_row_button_selected
			-- Called by `select_actions' of `apply_font_row_button'.
		local
			counter: INTEGER
			original_item, label_item: EV_GRID_LABEL_ITEM
			row: INTEGER
		do
			from
				counter := 1
				row := found_item.row.index
				original_item ?= found_item
			until
				counter > grid.column_count
			loop
				label_item ?= grid.item (counter, row)
				if label_item /= Void then
					label_item.set_font (original_item.font)
				end
				counter := counter + 1
			end
		end

	apply_font_column_button_selected
			-- Called by `select_actions' of `apply_font_column_button'.
		local
			counter: INTEGER
			original_item, label_item: EV_GRID_LABEL_ITEM
			column: INTEGER
		do
			from
				counter := 1
				column := found_item.column.index
				original_item ?= found_item
			until
				counter > grid.row_count
			loop
				label_item ?= grid.item (column, counter)
				if label_item /= Void then
					label_item.set_font (original_item.font)
				end
				counter := counter + 1
			end
		end

	is_full_select_button_selected
			-- Called by `select_actions' of `is_full_select_button'.
		local
			label_item: EV_GRID_LABEL_ITEM
		do
			label_item ?= found_item
			if label_item /= Void then
				if is_full_select_button.is_selected then
					label_item.enable_full_select
				else
					label_item.disable_full_select
				end
			end
		end

	apply_full_select_column_button_selected
			-- Called by `select_actions' of `apply_full_select_column_button'.
		local
			counter: INTEGER
			original_item, label_item: EV_GRID_LABEL_ITEM
			row: INTEGER
		do
			from
				counter := 1
				row := found_item.row.index
				original_item ?= found_item
			until
				counter > grid.column_count
			loop
				label_item ?= grid.item (counter, row)
				if label_item /= Void then
					if original_item.is_full_select_enabled then
						label_item.enable_full_select
					else
						label_item.disable_full_select
					end
				end
				counter := counter + 1
			end
		end

	apply_full_select_row_button_selected
			-- Called by `select_actions' of `apply_full_select_row_button'.
		local
			counter: INTEGER
			original_item, label_item: EV_GRID_LABEL_ITEM
			column: INTEGER
		do
			from
				counter := 1
				column := found_item.column.index
				original_item ?= found_item
			until
				counter > grid.row_count
			loop
				label_item ?= grid.item (column, counter)
				if label_item /= Void then
					if original_item.is_full_select_enabled then
						label_item.enable_full_select
					else
						label_item.disable_full_select
					end
				end
				counter := counter + 1
			end
		end

	apply_text_row_button_selected
			-- Called by `select_actions' of `apply_text_row_button'.
		local
			counter: INTEGER
			original_item, label_item: EV_GRID_LABEL_ITEM
			row: INTEGER
		do
			from
				counter := 1
				row := found_item.row.index
				original_item ?= found_item
			until
				counter > grid.column_count
			loop
				label_item ?= grid.item (counter, row)
				if label_item /= Void then
					label_item.set_text (original_item.text)
				end
				counter := counter + 1
			end
		end

	apply_text_column_button_selected
			-- Called by `select_actions' of `apply_text_column_button'.
		local
			counter: INTEGER
			original_item, label_item: EV_GRID_LABEL_ITEM
			column: INTEGER
		do
			from
				counter := 1
				column := found_item.column.index
				original_item ?= found_item
			until
				counter > grid.row_count
			loop
				label_item ?= grid.item (column, counter)
				if label_item /= Void then
					label_item.set_text (original_item.text)
				end
				counter := counter + 1
			end
		end

note
	copyright:	"Copyright (c) 1984-2006, Eiffel Software and others"
	license:	"Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)"
	source: "[
			 Eiffel Software
			 356 Storke Road, Goleta, CA 93117 USA
			 Telephone 805-685-1006, Fax 805-685-6869
			 Website http://www.eiffel.com
			 Customer support http://support.eiffel.com
		]"


end -- class ITEM_TAB