class
	EL_FONT_FAMILIES_IMP

inherit
	EL_FONT_FAMILIES_I
		redefine
			default_create
		end

	EL_WINDOWS_IMPLEMENTATION

	EL_SHARED_ZSTRING_BUFFER_POOL

feature {NONE} -- Initialization

	default_create
		do
			property_table := new_property_table
		end

feature {NONE} -- Implementation

	is_true_type (true_type_set: EL_HASH_SET [ZSTRING]; family: STRING_32): BOOLEAN
		-- table of hexadecimal font property bitmaps from class `EL_FONT_PROPERTY'
		do
			if attached String_pool.borrowed_item as borrowed then
				Result := true_type_set.has (borrowed.copied_general (family))
				borrowed.return
			end
		end

	new_font_families_map: EL_ARRAYED_MAP_LIST [STRING_32, INTEGER]
		local
			enumerator: EL_WEL_FONT_ENUMERATOR_IMP
		do
			create enumerator
			Result := enumerator.new_font_families_map
		end

	new_true_type_set: EL_HASH_SET [ZSTRING]
		local
			font: EL_FONT_REGISTRY_ROUTINES
		do
			Result := font.new_true_type_font_set
		end

end