class
	EL_STRING_8_LIST

inherit
	EL_STRING_LIST [STRING]
		redefine
			item_indent, new_string, tab_string
		end

	EL_CHARACTER_8_CONSTANTS

	EL_SHARED_STRING_8_CURSOR

create
	make, make_empty, make_with_lines, make_filled,
	make_from, make_from_array, make_from_tuple, make_from_general,
	make_split, make_adjusted_split, make_word_split, make_comma_split

convert
	make_from_array ({ARRAY [STRING]}), make_comma_split ({STRING}), make_from_tuple ({TUPLE})

feature -- Access

	item_indent: INTEGER
		do
			if attached cursor_8 (item) as c8 then
				Result := c8.leading_occurrences ('%T')
			end
		end

feature {NONE} -- Implementation

	new_string (general: READABLE_STRING_GENERAL): STRING_8
		do
			Result := general.to_string_8
		end

	tab_string (a_count: INTEGER): STRING_8
		do
			Result := tab * a_count
		end

end