indexing
	description: "Message to request a user key."
	author: "Patrick Ruckstuhl <patrick@tario.org>"
	date: "$Date$"
	revision: "$Revision$"

class
	O_USER_KEY_MESSAGE

inherit
	O_USER_SESSION_MESSAGE
		redefine
			type
		end

create
	make

create {O_MESSAGE_FACTORY}
	make_from_generic

feature -- Access

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

end