note
	description:
		"Implementation of widget with a font"
	legal: "See notice at end of class."
	status: "See notice at end of class."
	date: "$Date$"
	revision: "$Revision$"

deferred class FONTABLE_IMP

feature -- Access

	font: FONT
			-- font of current primitive
		local
			font_windows: FONT_IMP
			default_font: WEL_FONT
		do
			if exists then
				create Result.make
				font_windows ?= Result.implementation
				check
					font_windows_not_void:
						font_windows /= Void
				end
				font_windows.make_by_wel (wel_font)
			else
				if private_font /= Void then
					Result := private_font	
				else
					create Result.make
					create {WEL_ANSI_VARIABLE_FONT} default_font.make
					font_windows ?= Result.implementation
					font_windows.make_by_wel (default_font)
				end
			end
		end

feature -- Status setting

	set_font (f: FONT)
			-- Set `font' to `f'.
		local
			local_font_windows: FONT_IMP
		do
			private_font := f;
			if exists then
				local_font_windows ?= private_font.implementation
				check
					valid_font: local_font_windows /= Void
				end;
				wel_set_font (local_font_windows.wel_font)
			end
		end

	private_font: FONT
			-- font used for the implementation

	wel_font: WEL_FONT
		deferred
		end

	wel_set_font (f:WEL_FONT)
		deferred
		end

	exists: BOOLEAN
		deferred
		end

note
	copyright:	"Copyright (c) 1984-2006, Eiffel Software and others"
	license:	"Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)"
	source: "[
			 Eiffel Software
			 356 Storke Road, Goleta, CA 93117 USA
			 Telephone 805-685-1006, Fax 805-685-6869
			 Website http://www.eiffel.com
			 Customer support http://support.eiffel.com
		]"




end -- class FONTABLE_IMP