note
	description: "Summary description for {WSF_AUTOCOMPLETE_CONTROL}."
	author: ""
	date: "$Date$"
	revision: "$Revision$"

class
	WSF_AUTOCOMPLETE_CONTROL

inherit

	WSF_INPUT_CONTROL
		redefine
			handle_callback,
			state
		end

create
	make_autocomplete, make_autocomplete_with_agent

feature {NONE} -- Creation

	make_autocomplete (n: STRING; c: WSF_AUTOCOMPLETION)
		do
			make_autocomplete_with_agent (n, agent c.autocompletion)
			if attached c.template as t then
				template := t
			end
		end

	make_autocomplete_with_agent (n: STRING; c: FUNCTION [ANY, TUPLE [STRING], JSON_ARRAY])
		do
			make_input (n, "")
			create_json_list := c
			template := "{{=value}}"
		end

feature -- State

	state: JSON_OBJECT
		do
			Result := Precursor {WSF_INPUT_CONTROL}
			Result.put (create {JSON_STRING}.make_json (template), create {JSON_STRING}.make_json ("template"))
		end

feature -- Callback

	handle_callback (cname: STRING; event: STRING; event_parameter: detachable STRING)
		do
			Precursor {WSF_INPUT_CONTROL} (cname, event, event_parameter)
			if cname.is_equal (control_name) and event.is_equal ("autocomplete") then
				state_changes.put (create_json_list.item ([text]), create {JSON_STRING}.make_json ("suggestions"))
			end
		end

feature -- Autocomplete

	create_json_list: FUNCTION [ANY, TUPLE [STRING], JSON_ARRAY]

	template: STRING

end