note
	description: "[
		A HASH_TABLE pairing widgets with a {VITP_ITEM}.
		]"
	author: "Jimmy J. Johnson"

class
	VITP_WIDGET_TABLE [G -> VITP_WIDGET, K -> VITP_ITEM]
--	VITP_WIDGET_TABLE [G -> VITP_WIDGET, K -> STRING_8]

inherit

	HASH_TABLE [G, K]

create
	make,
	make_equal

feature -- Access

	widget (key: K): G
			-- Item associated with `key'.
			-- Should be present
		do
			check attached item (key) as v then
				Result := v
			end
		end

end
