indexing

	description:
		"Command to show or hide the `OBJECT_W' %
		%portion of the debugger.";
	date: "$Date$";
	revision: "$Revision$"

class DISPLAY_OBJECT_PORTION

inherit
	DISPLAY_DEBUGGER_PORTION

create
	make


feature -- Properties

	name: STRING is
			-- Short name for Current
		do
			if is_shown then
				Result := Interface_names.f_Hide_object
			else
				Result := Interface_names.f_Show_object
			end
		end;

	menu_name: STRING is
			-- Name used in menu entry
		do
			if is_shown then
				Result := Interface_names.m_Hide_object
			else
				Result := Interface_names.m_Show_object
			end
		end;

	accelerator: STRING is
			-- Accelerator action for menu entry
		do
		end;

	symbol: PIXMAP is
			-- Pixmap to represent Current on a button
		do
			if is_shown then
				Result := Pixmaps.bm_Hide_object
			else
				Result := Pixmaps.bm_Show_object
			end
		end;

feature -- Execution

	hide is
			-- Hide Current.
		do
			is_shown := False;
			Project_tool.hide_object_portion;
			update_visual_aspects;
		end;

	show is
			-- Show Current.
		do
			is_shown := True;
			Project_tool.show_object_portion;
			update_visual_aspects
		end;

end -- class DISPLAY_OBJECT_PORTION