indexing description: "My username message" author: "Rafael Bischof " date: "$Date$" revision: "$Revision$" class O_USER_MY_NAME_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_my_name_type end end