deferred class
	EL_STOCK_COLORS_I

inherit
	EV_STOCK_COLORS
		rename
			Color_dialog as Dialog,
			Color_3d_face as Face_3d,
			Color_3d_highlight as Highlight_3d,
			Color_3d_shadow as Shadow_3d,
			Color_read_only as Read_only,
			Color_read_write as Read_write,
			Default_background_color as Default_background,
			Default_foreground_color as Default_foreground
		end

feature -- Access

	text_field_background: EV_COLOR
		deferred
		end

feature -- Factory

	new_html (color_code: STRING): EV_COLOR
		do
			Once_color.set_with_html (color_code)
			Result := Once_color.to_color
		end

feature -- Color code

	html_code_to_rgb_code (html_code: STRING): INTEGER
		require
			valid_html_code: valid_html_code (html_code)
		local
			hex: EL_HEXADECIMAL_CONVERTER
		do
			Result := hex.to_integer (html_code.substring (2, 7))
		end

	rgb_code_to_html_code (rgb_code: INTEGER): STRING
			-- RGB color code as HTML color code
		do
			Result := rgb_code.to_hex_string
			Result.put ('#', 2)
			Result.remove_head (1)
		end

feature -- Contract Support

	valid_html_code (color_code: READABLE_STRING_GENERAL): BOOLEAN
		do
			if color_code.count = 7 and then color_code.is_valid_as_string_8 then
				Result := True
				across color_code.as_string_8 as c until not Result loop
					inspect c.item
						when '0' .. '9', 'A' .. 'F', 'a' .. 'f' then
							Result := c.cursor_index > 1
						when '#' then
							Result := c.cursor_index = 1
					else
						Result := False
					end
				end
			end
		end

feature {NONE} -- Constants

	Once_color: EL_COLOR
		once
			create Result
		end

end