indexing
	description: "project retrieve statistics internal message"
	author: "Dennis Rietmann <dennis.rietmann@gmail.com>"
	date: "$Date$"
	revision: "$Revision$"

class
	O_PROJECT_RETRIEVE_STATISTICS_INTERNAL_MESSAGE

inherit
	O_MESSAGE
		rename
			make as make_message
		end

	O_PROJECT_CONSTANTS
		undefine
			out
		end

create
	make

create {O_MESSAGE_FACTORY}
	make_from_generic

feature {NONE} -- Initialization

	make is
			-- Create (TODO maybe this can be removed as well).
		do
			make_message
		end

feature -- Access

	namespace: STRING_8 is
			-- Namespace of the message type.
		once
			Result := project_namespace
		end

	type: STRING is
			-- Type of the message.
		once
			Result := project_retrieve_statistics_internal_type
		end

	arguments: HASH_TABLE [STRING, STRING] is
			-- Named arguments.
		do
			create Result.make(1)
		end

end