indexing
	description: "SToraGe TYpe flags"
	status: "See notice at end of class"
	date: "$Date$"
	revision: "$Revision$"

class interface
	ECOM_STGTY

feature -- Access

	is_valid_stgty (stgty: INTEGER): BOOLEAN
			-- Is stgty a valid storage type flag?

	stgty_lockbytes: INTEGER
			-- Byte array object

	stgty_storage: INTEGER
			-- Storage object

	stgty_stream: INTEGER
			-- Stream object
	
invariant

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

end -- class ECOM_STGTY