note
	description: "VARFLAGS flags"
	legal: "See notice at end of class."
	status: "See notice at end of class.";
	date: "$Date$";
	revision: "$Revision$"

class
	ECOM_VAR_FLAGS

inherit
	ECOM_FLAGS
	
feature -- Access

	Varflag_freadonly: INTEGER
			-- Assignment to variable should not be allowed
		external
			"C [macro <oaidl.h>]"
		alias
			"VARFLAG_FREADONLY"
		end

	Varflag_fsource: INTEGER
			-- Variable returns object that is source of events
		external
			"C [macro <oaidl.h>]"
		alias
			"VARFLAG_FSOURCE"
		end

	Varflag_fbindable: INTEGER
			-- Variable supports data binding
		external
			"C [macro <oaidl.h>]"
		alias
			"VARFLAG_FBINDABLE"
		end

	Varflag_frequestedit: INTEGER
		external
			"C [macro <oaidl.h>]"
		alias
			"VARFLAG_FREQUESTEDIT"
		end

	Varflag_fdisplaybind: INTEGER
			-- Variable is displayed to user as bindable;
			-- that is, VARFLAG_FBINDABLE must also be set.
		external
			"C [macro <oaidl.h>]"
		alias
			"VARFLAG_FDISPLAYBIND"
		end

	Varflag_fdefaultbind: INTEGER
			-- Variable is single property that best represents
			-- object. Only one variable in typeinfo may have this attibute.
		external
			"C [macro <oaidl.h>]"
		alias
			"VARFLAG_FDEFAULTBIND"
		end

	Varflag_fhidden: INTEGER
			-- Variable should not be displayed to user in browser,
			-- though it exists and is bindable.
		external
			"C [macro <oaidl.h>]"
		alias
			"VARFLAG_FHIDDEN"
		end

	Varflag_frestricted: INTEGER
			-- Variable should not be displayed to user in browser,
			-- though it exists and is bindable.
		external
			"C [macro <oaidl.h>]"
		alias
			"VARFLAG_FRESTRICTED"
		end

	Varflag_fdefaultcollelem: INTEGER
			-- Permits optimization.
		external
			"C [macro <oaidl.h>]"
		alias
			"VARFLAG_FDEFAULTCOLLELEM"
		end

	Varflag_fuidefault: INTEGER
			-- Variable  is default 
			-- display in user interface. 
		external
			"C [macro <oaidl.h>]"
		alias
			"VARFLAG_FUIDEFAULT"
		end

	Varflag_fnonbrowsable: INTEGER
			-- Variable appears in object browser, 
			-- but not in properties browser
		external
			"C [macro <oaidl.h>]"
		alias
			"VARFLAG_FNONBROWSABLE"
		end

	Varflag_freplaceable: INTEGER
			-- Tags interface as having default behaviors. 
		external
			"C [macro <oaidl.h>]"
		alias
			"VARFLAG_FREPLACEABLE"
		end

	Varflag_fimmediatebind: INTEGER
			-- Variable is mapped as individual bindable properties.
		external
			"C [macro <oaidl.h>]"
		alias
			"VARFLAG_FIMMEDIATEBIND"
		end

feature -- Status report

	is_varflag_freadonly (flag: INTEGER): BOOLEAN
			-- Is flag FREADONLY?
		do
			Result := binary_and (flag, Varflag_freadonly) = Varflag_freadonly
		end

	is_varflag_frestricted (flag: INTEGER): BOOLEAN
			-- Is flag FRESTRICTED?
		do
			Result := binary_and (flag, Varflag_frestricted) = Varflag_frestricted
		end

	is_varflag_fsource (flag: INTEGER): BOOLEAN
			-- Is flag fsource?
		do
			Result := binary_and (flag, Varflag_fsource) = Varflag_fsource
		end

	is_varflag_fbindable (flag: INTEGER): BOOLEAN
			-- Is flag fbindable?
		do
			Result := binary_and (flag, Varflag_fbindable) = Varflag_fbindable
		end

	is_varflag_frequestedit (flag: INTEGER): BOOLEAN
			-- Is flag frequestedit?
		do
			Result := binary_and (flag, Varflag_frequestedit) = Varflag_frequestedit
		end

	is_varflag_fdisplaybind (flag: INTEGER): BOOLEAN
			-- Is flag fdisplaybind?
		do
			Result := binary_and (flag, Varflag_fdisplaybind) = Varflag_fdisplaybind
		end

	is_varflag_fdefaultbind (flag: INTEGER): BOOLEAN
			-- Is flag fdefaultbind?
		do
			Result := binary_and (flag, Varflag_fdefaultbind) = Varflag_fdefaultbind
		end

	is_varflag_fhidden (flag: INTEGER): BOOLEAN
			-- Is flag fhidden?
		do
			Result := binary_and (flag, Varflag_fhidden) = Varflag_fhidden
		end

	is_varflag_fdefaultcollelem (flag: INTEGER): BOOLEAN
			-- Is flag fdefaultcollelem?
		do
			Result := binary_and (flag, Varflag_fdefaultcollelem) = Varflag_fdefaultcollelem
		end

	is_varflag_fuidefault (flag: INTEGER): BOOLEAN
			-- Is flag fuidefault?
		do
			Result := binary_and (flag, Varflag_fuidefault) = Varflag_fuidefault
		end

	is_varflag_fnonbrowsable (flag: INTEGER): BOOLEAN
			-- Is flag fnonbrowsable?
		do
			Result := binary_and (flag, Varflag_fnonbrowsable) = Varflag_fnonbrowsable
		end

	is_varflag_freplaceable (flag: INTEGER): BOOLEAN
			-- Is flag freplaceable?
		do
			Result := binary_and (flag, Varflag_freplaceable) = Varflag_freplaceable
		end

	is_varflag_fimmediatebind (flag: INTEGER): BOOLEAN
			-- Is flag fimmediatebind?
		do
			Result := binary_and (flag, Varflag_fimmediatebind) = Varflag_fimmediatebind
		end

	is_valid_varflag (flag: INTEGER): BOOLEAN
			-- Is `flag' a valid combination of varflags?
		do
			Result := is_varflag_freadonly (flag) or
					is_varflag_frestricted (flag) or
					is_varflag_fsource (flag) or
					is_varflag_fbindable (flag) or
					is_varflag_frequestedit (flag) or
					is_varflag_fdisplaybind (flag) or
					is_varflag_fdefaultbind (flag) or
					is_varflag_fhidden (flag) or
					is_varflag_frestricted (flag) or
					is_varflag_fdefaultcollelem (flag) or
					is_varflag_fuidefault (flag) or
					is_varflag_fnonbrowsable (flag) or
					is_varflag_freplaceable (flag) or
					is_varflag_fimmediatebind (flag) or
					flag = 0
		end
		
note
	copyright:	"Copyright (c) 1984-2006, Eiffel Software"
	license:	"GPL version 2 (see http://www.eiffel.com/licensing/gpl.txt)"
	licensing_options:	"http://www.eiffel.com/licensing"
	copying: "[
			This file is part of Eiffel Software's Eiffel Development Environment.
			
			Eiffel Software's Eiffel Development Environment is free
			software; you can redistribute it and/or modify it under
			the terms of the GNU General Public License as published
			by the Free Software Foundation, version 2 of the License
			(available at the URL listed under "license" above).
			
			Eiffel Software's Eiffel Development Environment is
			distributed in the hope that it will be useful,	but
			WITHOUT ANY WARRANTY; without even the implied warranty
			of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
			See the	GNU General Public License for more details.
			
			You should have received a copy of the GNU General Public
			License along with Eiffel Software's Eiffel Development
			Environment; if not, write to the Free Software Foundation,
			Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301  USA
		]"
	source: "[
			 Eiffel Software
			 356 Storke Road, Goleta, CA 93117 USA
			 Telephone 805-685-1006, Fax 805-685-6869
			 Website http://www.eiffel.com
			 Customer support http://support.eiffel.com
		]"
end -- class ECOM_FUNC_FLAGS