indexing

	description: "[

		A scrollbar.
		This is basically a slider with another visualisation.

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

class EM_SCROLLBAR

inherit

	EM_SLIDER
		redefine
			delegate_factory
		end

create

	make_horizontal,
	make_vertical,
	make_from_range_horizontal,
	make_from_range_vertical

feature {NONE} -- Initialisation

	delegate_factory: FUNCTION [ANY, TUPLE [], like delegate] is
			-- Factory to create default delegate
		do
			Result := theme_delegates.scrollbar_delegate_factory
		end

end