indexing
	description: "."
	Id: "$Id$"
	Date: "$Date$"
	Revision: "$Revision$"

deferred class CMD_UPDATE_PARENT 

inherit
	CMD_COMMAND

feature {NONE}

	previous_parent: CMD

	labels: EB_LINKED_LIST [CMD_LABEL] is
		do
			Result := edited_command.labels
		end

	arguments: LINKED_LIST [ARG] is
		do
			Result := edited_command.arguments
		end

	command_editor: COMMAND_EDITOR is
		do
			Result := edited_command.command_editor
		end

--	argument_box: ARG_INST_BOX is
--		require
--			command_editor_not_void: command_editor /= Void
--		do
--			Result := command_editor.argument_box
--		end

	associated_instance: CMD_INSTANCE is
		require
			command_editor_not_void: command_editor /= Void
		do
			Result := command_editor.instance_of_command_tool
		end

	remove_parent is
		local
			i: INTEGER
		do
			from
				arguments.start
				i := 1
			until
				arguments.after
			loop
				if
					arguments.item.parent_type = edited_command.ancestor_type
				then
					arguments.remove
					if command_editor /= Void then
						associated_instance.remove_argument (i)
					end
				else
					arguments.forth
					i := i + 1
				end
			end
--			from
--				labels.start
--			until
--				labels.after
--			loop
--				if
--					labels.item.parent_type = edited_command.ancestor_type and
--					labels.item.parent_type /= Void
--				then
--					labels.remove
--				else
--					labels.forth
--				end
--			end
			edited_command.set_ancestor_type (Void)
			if command_editor /= Void then
--				command_editor.labels.set (labels)
			end
		end -- undo

	set_parent (c: CMD) is
		local
			a: ARG
			l: CMD_LABEL
			oal: LINKED_LIST [ARG]
			oll: LINKED_LIST [CMD_LABEL]
			new_label: STRING
		do
			if previous_parent /= Void then		
				remove_parent
			end
			edited_command.set_ancestor_type (c)
			from
				oal := c.arguments
				oal.start
				arguments.finish
			until
				oal.after
			loop
				!!a.set (oal.item.type, c)
				arguments.extend (a)
				oal.forth
				if command_editor /= Void then
					associated_instance.add_argument
				end
			end
--			from
--				oll := c.labels
--				oll.start
--				labels.finish
--			until
--				oll.after
--			loop
--				new_label := clone (oll.item.label)
--				!!l.make (oll.item.label)
--				l.set_parent (c)
--				labels.extend (l)
--				oll.forth
--			end
			if command_editor /= Void then
--				command_editor.labels.set (labels)
			end
		end 

	worked_on: STRING is
		do
			if edited_command /= Void and then edited_command.ancestor_type /= Void then	
				!!Result.make (0)
				Result.append (edited_command.ancestor_type.label)
			end
		end

end -- class CMD_UPDATE_PARENT