indexing description: "Message to generate a new user key." author: "Patrick Ruckstuhl " date: "$Date$" revision: "$Revision$" class O_USER_KEY_GENERATE_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_generate_type end end