indexing

	description: "[

		TODO: improve drawing
		TODO: refactor colors

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

class EM_BEVEL_BORDER

inherit

	EM_BORDER

	EM_WIDGET_DRAWING
		export {NONE} all end

create

	make_up, make_down

feature {NONE} -- Initialisation

	make_up is
			-- Initialise bevel border up.
		do
			is_up := True
			top := 2
			left := 2
			bottom := 2
			right := 2
		end

	make_down is
			-- Initialise bevel border down.
		do
			is_up := False
			top := 2
			left := 2
			bottom := 2
			right := 2
		end

feature -- Access

	is_up: BOOLEAN
			-- Is bevel border "up"?

feature -- Drawing

	draw_on (a_widget: EM_WIDGET) is
			-- Draw border on `a_widget'.
		do
			if is_up then
				draw_bevel_border_up (0, 0, a_widget.width-1, a_widget.height-1, a_widget.surface)
			else
				draw_bevel_border_down (0, 0, a_widget.width-1, a_widget.height-1, a_widget.surface)
			end
		end

end