indexing
	description: "Constants used in function SetClassLong"
	status: "See notice at end of class."
	date: "$Date$"
	revision: "$Revision$"

class interface
	WEL_GCL_CONSTANTS

create 

feature -- GCL Constants

	Gcl_cbclsextra: INTEGER is -20
			-- Sets the size, in bytes, of the extra memory associated with
			-- the class. Setting this value does not change the number of
			-- extra bytes already allocated.
			--
			-- Declared in Windows as GCL_CBCLSEXTRA

	Gcl_cbwndextra: INTEGER is -18
			-- Sets the size, in bytes, of the extra window memory associated
			-- with each window in the class. Setting this value does not
			-- change the number of extra bytes already allocated. For
			-- information on how to access this memory, see SetWindowLong.
			--
			-- Declared in Windows as GCL_CBWNDEXTRA

	Gcl_hbrbackground: INTEGER is -10
			-- Replaces a handle to the background brush associated with the
			-- class.
			--
			-- Declared in Windows as GCL_HBRBACKGROUND

	Gcl_hcursor: INTEGER is -12
			-- Replaces a handle to the cursor associated with the class.
			--
			-- Declared in Windows as GCL_HCURSOR

	Gcl_hicon: INTEGER is -14
			-- Replaces a handle to the icon associated with the class.
			--
			-- Declared in Windows as GCL_HICON

	Gcl_hiconsm: INTEGER is -34
			-- Replace a handle to the small icon associated with the class.
			--
			-- Declared in Windows as GCL_HICONSM

	Gcl_hmodule: INTEGER is -16
			-- Replaces a handle to the module that registered the class.
			--
			-- Declared in Windows as GCL_HMODULE

	Gcl_menuname: INTEGER is -8
			-- Replaces the address of the menu name string. The string
			-- identifies the menu resource associated with the class.
			--
			-- Declared in Windows as GCL_MENUNAME

	Gcl_style: INTEGER is -26
			-- Replaces the window-class style bits.
			--
			-- Declared in Windows as GCL_STYLE

	Gcl_wndproc: INTEGER is -24
			-- Replaces the address of the window procedure associated with
			-- the class.
			--
			-- Declared in Windows as GCL_WNDPROC
	
invariant

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

end -- class WEL_GCL_CONSTANTS