indexing

	description: "[

		a black arrow cursor

	]"
	date: "$Date$"
	revision: "$Revision$"

class ARROW_CURSOR

inherit

	MOUSE_CURSOR

create

	make

feature -- Initialization

	make is
			-- sets `image'
		do
			make_from_file ("./image/cursor.gif")
			offset_x := 3
			offset_y := 0
		end

	id: INTEGER is 1

end