class
	EL_VTD_CONTEXT_IMAGE

inherit
	ARRAY [INTEGER]
		rename
			make as make_range
		export
			{ANY} twin
		redefine
			out
		end

create
	make, make_empty, make_from_other

feature {NONE} -- Initialization

	make (size: INTEGER)
			--
		do
			make_filled (0, 1, size)
		end

	make_from_other (other: EL_VTD_CONTEXT_IMAGE)
			--
		do
			copy (other)
		end

feature -- Element change

	set_from_other (other: EL_VTD_CONTEXT_IMAGE)
			--
		do
			if count = other.count then
				subcopy (other, 1, other.count, 1)
			else
				copy (other)
			end
		end

feature -- Conversion

	out: STRING
			--
		local
			i: INTEGER
		do
			create Result.make_from_string ("{")
			from
				i := 1
			until
				i > count
			loop
				if i > 1 then
					Result.append_character (',')
				end
				Result.append_integer (item (i))
				i := i + 1
			end
			Result.append_string ("} count=")
			Result.append_integer (count)
		end

end -- class VTD_CONTEXT_IMAGE