indexing

	description: "[

		Basic delegate of an EM_SCROLLPANEL.

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

class EM_BASIC_SCROLLPANEL_DELEGATE

inherit

	EM_BASIC_PANEL_DELEGATE
		redefine
			install
		end

feature -- Initialisation

	install (scrollpanel: EM_SCROLLPANEL) is
			-- Install style on `scrollpanel'.
			-- Set up all default values for background, border, font and colors.
		do
			Precursor {EM_BASIC_PANEL_DELEGATE} (scrollpanel)
			scrollpanel.viewport_panel.set_border (create {EM_LINE_BORDER}.make (create {EM_COLOR}.make_black, 1))
		end

end