indexing
	description: "Stock brushes, fonts, palette and pens."
	status: "See notice at end of class."
	date: "$Date$"
	revision: "$Revision$"

class interface
	WEL_STOCK_CONSTANTS

feature -- Brushes

	Black_brush: INTEGER is 4

	Dkgray_brush: INTEGER is 3

	Gray_brush: INTEGER is 2

	Hollow_brush: INTEGER is 5
			-- Same as Null_brush.

	Ltgray_brush: INTEGER is 1

	Null_brush: INTEGER is 5

	White_brush: INTEGER is 0
	
feature -- Fonts

	Ansi_fixed_font: INTEGER is 11

	Ansi_var_font: INTEGER is 12

	Default_gui_font: INTEGER is 17

	Device_default_font: INTEGER is 14

	Oem_fixed_font: INTEGER is 10

	System_fixed_font: INTEGER is 16

	System_font: INTEGER is 13
	
feature -- Palette

	Default_palette: INTEGER is 15
	
feature -- Pens

	Black_pen: INTEGER is 7

	Null_pen: INTEGER is 8

	White_pen: INTEGER is 6
	
invariant

		-- from ANY
	reflexive_equality: standard_is_equal (Current)
	reflexive_conformance: conforms_to (Current)

end -- class WEL_STOCK_CONSTANTS