indexing
	description: "COM CUSTDATAITEM structure"
	status: "See notice at end of class"
	date: "$Date$"
	revision: "$Revision$"

class
	ECOM_CUST_DATA_ITEM

inherit
	ECOM_STRUCTURE

creation
	make,
	make_from_pointer

feature {NONE} -- Initialization

	make_from_pointer (a_pointer: POINTER) is
			-- Make from pointer.
		do
			make_by_pointer (a_pointer)
		end

feature -- Access

	guid: ECOM_GUID is
			-- GUID
		do
			!! Result.make_from_pointer (ccom_custdataitem_guid (item))
		ensure
			Result /= Void
		end

	variant_structure: ECOM_VARIANT is
			-- VARIANT structure
		do
			!! Result.make_from_pointer (ccom_custdataitem_variant (item))
		ensure
			Result /= Void
		end

feature -- Measurement

	structure_size: INTEGER is
			-- Size of CUSTDATAITEM structure
		do
			Result := c_size_of_cust_data_item
		end

feature {NONE} -- Externals

	c_size_of_cust_data_item: INTEGER is
		external 
			"C [macro %"E_custdataitem.h%"]"
		alias
			"sizeof(CUSTDATAITEM)"
		end

	ccom_custdataitem_guid (a_ptr: POINTER): POINTER is
		external
			"C [macro %"E_custdataitem.h%"](EIF_POINTER): EIF_POINTER"
		end

	ccom_custdataitem_variant (a_ptr: POINTER): POINTER is
		external
			"C [macro %"E_custdataitem.h%"](EIF_POINTER): EIF_POINTER"
		end

end -- class ECOM_CUST_DATA_ITEM