note description: "Summary description for {OPENID_DISCOVER}." author: "" date: "$Date$" revision: "$Revision$" class OPENID_DISCOVER create make feature {NONE} -- Initialization make (a_server_uri: READABLE_STRING_8; a_version: like version) do version := a_version server_uri := a_server_uri end feature -- Access version: INTEGER server_uri: READABLE_STRING_8 delegate: detachable READABLE_STRING_8 assign set_delegate ax_supported: BOOLEAN assign set_ax_supported sreg_supported: BOOLEAN assign set_sreg_supported identifier_select: BOOLEAN assign set_identifier_select has_error: BOOLEAN assign set_has_error feature -- Change set_delegate (v: like delegate) do delegate := v end set_ax_supported (v: like ax_supported) do ax_supported := v end set_sreg_supported (v: like sreg_supported) do sreg_supported := v end set_identifier_select (v: like identifier_select) do identifier_select := v end set_has_error (v: like has_error) do has_error := v end end