indexing
	description: "Query debug status message."
	author: "Patrick Ruckstuhl <patrick@tario.org>"
	date: "$Date$"
	revision: "$Revision$"

class
	O_SYSTEM_STATUS_MESSAGE

inherit
	O_SESSION_MESSAGE

	O_SYSTEM_CONSTANTS
		undefine
			out
		end

create
	make

create {O_MESSAGE_FACTORY}
	make_from_generic

feature -- Access

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

	type: STRING_8 is
			-- Type of the message.
		once
			Result := system_status_type
		end

end