indexing
	description: "Button representing a TEXT_FIELD context."
	id: "$ID: $"
	date: "$Date$"
	revision: "$Revision$"

class
	FOCUSABLE_TEXT_FIELD

inherit
	TEXT_FIELD
		redefine
			make
		end

	FOCUSABLE
		redefine
			set_focus_string
		end

creation
	make

feature -- Initialization

	make (a_name: STRING; a_parent: COMPOSITE) is
			-- Creation routine
		do
			Precursor (a_name, a_parent)
		end

	focus_label: FOCUS_LABEL_I is
			-- has to be redefined, so that it returns correct toolkit initializer
			-- to which object belongs for every instance of this class
		local
			ti: TOOLTIP_INITIALIZER
		do
			ti ?= top
			check
				valid_tooltip_initializer: ti/= void
			end
			Result := ti.label
		end

	set_focus_string (a_string: STRING) is
		do
			Precursor (a_string)
			initialize_focus
		end

end -- class FOCUSABLE_TEXT_FIELD