deferred class
	EL_INPUT_FIELD [G]

inherit
	EL_TEXT_FIELD
		export
			{NONE} set_text, set_initial_text
		end

feature {NONE} -- Initialization

	make (a_on_change: like on_change)
		do
			default_create
			on_change := a_on_change
			change_actions.extend (agent on_text_change)
		end

feature -- Element change

	set_initial_value (a_value: G)
		do
			set_initial_text (to_text (a_value))
		end

	set_value (a_value: G)
		do
			set_text (to_text (a_value))
		end

feature {NONE} -- Implementation

	on_text_change
		do
			normalize
			on_change (to_data (text))
		end

	normalize
		-- normalize the text by expelling invalid characters
		do
		end

	to_data (str: STRING_32): G
		deferred
		end

	to_text (a_value: G): READABLE_STRING_GENERAL
		deferred
		end

feature {NONE} -- Internal attributes

	on_change: PROCEDURE [G]

end