class
	EL_STRING_32_LIST

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

	EL_SHARED_STRING_32_CURSOR

	EL_CHARACTER_32_CONSTANTS

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_32]}), make_from_tuple ({TUPLE}), make_comma_split ({STRING_32})

feature -- Access

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

feature {NONE} -- Implementation

	new_string (general: READABLE_STRING_GENERAL): STRING_32
		do
			Result := general.to_string_32
		end

	tab_string (a_count: INTEGER): STRING_32
		do
			Result := tab.as_string_32 (a_count)
		end
end