indexing
	description: "PeekMessage (PM) constants."
	status: "See notice at end of class."
	date: "$Date$"
	revision: "$Revision$"

class interface
	WEL_PM_CONSTANTS

feature -- Access

	Pm_noremove: INTEGER is 0

	Pm_noyield: INTEGER is 2

	Pm_remove: INTEGER is 1
	
invariant

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

end -- class WEL_PM_CONSTANTS