indexing

	description: "[

		Delegate of an EM_SCROLLPANEL.

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

class EM_ECLIPSE_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_BEVEL_BORDER}.make_down)
		end

end