note
	description: "Path to access icon"
	legal: "See notice at end of class."
	status: "See notice at end of class."
	author: "Julien"
	revised_by: "Alexander Kogtenkov"
	date: "$Date$"
	revision: "$Revision$"

class
	ICON_PATH

create
	default_create

feature -- Implementation

	Path_icon_eac: STRING
			-- Path of eac icon.
		once
			Result := Eiffel_path + eac_resource + "icon_eac.ico"
		ensure
			non_void_result: Result /= Void
		end

	Path_icon_assembly: STRING
			-- Path of assembly icon.
		once
			Result := Eiffel_path + eac_resource + "icon_assembly.ico"
		ensure
			non_void_result: Result /= Void
		end

	Path_icon_namespace: STRING
			-- Path of namespace icon.
		once
			Result := Eiffel_path + eac_resource + "icon_namespace.ico"
		ensure
			non_void_result: Result /= Void
		end

	Path_icon_constructor: STRING
			-- Path of constructor icon.
		once
			Result := Eiffel_path + eac_resource + "icon_constructor.ico"
		ensure
			non_void_result: Result /= Void
		end

	Path_icon_inherited_features: STRING
			-- Path of inherited features icon.
		once
			Result := Eiffel_path + eac_resource + "icon_inherited_features.ico"
		ensure
			non_void_result: Result /= Void
		end

	Path_icon_all_features: STRING
			-- Path of inherited features icon.
		once
			Result := Eiffel_path + eac_resource + "icon_all_features.ico"
		ensure
			non_void_result: Result /= Void
		end

	Path_icon_ancestors: STRING
			-- Path of inherited features icon.
		once
			Result := Eiffel_path + eac_resource + "icon_ancestors.ico"
		ensure
			non_void_result: Result /= Void
		end

feature -- Class Icon

	Path_icon_class: STRING
			-- Path of class icon.
		once
			Result := Eiffel_path + eac_resource + "icon_class.ico"
		ensure
			non_void_result: Result /= Void
		end

	Path_icon_interface_class: STRING
			-- Path of interface class icon.
		once
			Result := Eiffel_path + eac_resource + "icon_interface_class.ico"
		ensure
			non_void_result: Result /= Void
		end

	Path_icon_delegate_class: STRING
			-- Path of delegate class icon.
		once
			Result := Eiffel_path + eac_resource + "icon_delegate_class.ico"
		ensure
			non_void_result: Result /= Void
		end

	Path_icon_enum_class: STRING
			-- Path of enum class icon.
		once
			Result := Eiffel_path + eac_resource + "icon_enum_class.ico"
		ensure
			non_void_result: Result /= Void
		end

	Path_icon_value_type_class: STRING
			-- Path of value type class icon.
		once
			Result := Eiffel_path + eac_resource + "icon_value_type_class.ico"
		ensure
			non_void_result: Result /= Void
		end


feature -- Eiffel Icon

	Path_eiffel_feature: STRING
			-- Path of eiffel feature icon.
		once
			Result := Eiffel_path + eac_resource + "icon_eiffel_feature.ico"
		ensure
			non_void_result: Result /= Void
		end


feature -- Public Icons

	Path_icon_public_attribute: STRING
			-- Path of attribute icon.
		once
			Result := Eiffel_path + eac_resource + "icon_public_attribute.ico"
		ensure
			non_void_result: Result /= Void
		end

	Path_icon_public_procedure: STRING
			-- Path of procedure icon.
		once
			Result := Eiffel_path + eac_resource + "icon_public_feature.ico"
		ensure
			non_void_result: Result /= Void
		end

	Path_icon_public_function: STRING
			-- Path of function icon.
		once
			Result := Eiffel_path + eac_resource + "icon_public_feature.ico"
		ensure
			non_void_result: Result /= Void
		end

	Path_icon_public_property: STRING
			-- Path of property icon.
		once
			Result := Eiffel_path + eac_resource + "icon_public_property.ico"
		ensure
			non_void_result: Result /= Void
		end

	Path_icon_public_constant: STRING
			-- Path of property icon.
		once
			Result := Eiffel_path + eac_resource + "icon_public_constant.ico"
		ensure
			non_void_result: Result /= Void
		end

	Path_icon_public_event: STRING
			-- Path of property icon.
		once
			Result := Eiffel_path + eac_resource + "icon_public_event.ico"
		ensure
			non_void_result: Result /= Void
		end

feature -- Private Icons

	Path_icon_private_attribute: STRING
			-- Path of attribute icon.
		once
			Result := Eiffel_path + eac_resource + "icon_private_attribute.ico"
		ensure
			non_void_result: Result /= Void
		end

	Path_icon_private_procedure: STRING
			-- Path of procedure icon.
		once
			Result := Eiffel_path + eac_resource + "icon_private_feature.ico"
		ensure
			non_void_result: Result /= Void
		end

	Path_icon_private_function: STRING
			-- Path of function icon.
		once
			Result := Eiffel_path + eac_resource + "icon_private_feature.ico"
		ensure
			non_void_result: Result /= Void
		end

	Path_icon_private_property: STRING
			-- Path of property icon.
		once
			Result := Eiffel_path + eac_resource + "icon_private_property.ico"
		ensure
			non_void_result: Result /= Void
		end

	Path_icon_private_constant: STRING
			-- Path of property icon.
		once
			Result := Eiffel_path + eac_resource + "icon_private_constant.ico"
		ensure
			non_void_result: Result /= Void
		end

	Path_icon_private_event: STRING
			-- Path of property icon.
		once
			Result := Eiffel_path + eac_resource + "icon_private_event.ico"
		ensure
			non_void_result: Result /= Void
		end

feature -- Protected Icons

	Path_icon_protected_attribute: STRING
			-- Path of attribute icon.
		once
			Result := Eiffel_path + eac_resource + "icon_protected_attribute.ico"
		ensure
			non_void_result: Result /= Void
		end

	Path_icon_protected_procedure: STRING
			-- Path of procedure icon.
		once
			Result := Eiffel_path + eac_resource + "icon_protected_feature.ico"
		ensure
			non_void_result: Result /= Void
		end

	Path_icon_protected_function: STRING
			-- Path of function icon.
		once
			Result := Eiffel_path + eac_resource + "icon_protected_feature.ico"
		ensure
			non_void_result: Result /= Void
		end

	Path_icon_protected_property: STRING
			-- Path of property icon.
		once
			Result := Eiffel_path + eac_resource + "icon_protected_property.ico"
		ensure
			non_void_result: Result /= Void
		end

	Path_icon_protected_constant: STRING
			-- Path of property icon.
		once
			Result := Eiffel_path + eac_resource + "icon_protected_constant.ico"
		ensure
			non_void_result: Result /= Void
		end

	Path_icon_protected_event: STRING
			-- Path of property icon.
		once
			Result := Eiffel_path + eac_resource + "icon_protected_event.ico"
		ensure
			non_void_result: Result /= Void
		end


feature {NONE} -- Implementation

	load_icon (a_path: STRING): detachable EV_PIXMAP
			-- load icon from `a_path'.
		require
			non_void_a_path: a_path /= Void
			not_empty_a_path: not a_path.is_empty
		local
			retried: BOOLEAN
		do
			if not retried then
				create Result
				Result.set_with_named_file (a_path)
			else
				Result := Void
			end
		rescue
			retried := True
			retry
		end

	eac_resource: STRING = "studio\spec\windows\bin\eac_ico\"
			-- path to access eac resource under Eiffel.

	Ise_eiffel_key: STRING = "ISE_EIFFEL"
			-- Environment variable $ISE_EIFFEL.

	Eiffel_path: STRING
			-- Path to Eiffel installation.
		local
			retried: BOOLEAN
--			l_str: SYSTEM_STRING
--			l_registry_key: REGISTRY_KEY
--			l_obj: SYSTEM_OBJECT
		once
			if not retried then
				Result := (create {EXECUTION_ENVIRONMENT}).get (Ise_eiffel_key)
--				if Result = Void then
--					l_registry_key := feature {REGISTRY}.local_machine
--					l_registry_key := l_registry_key.open_sub_key (("SOFTWARE").to_cil)
--					l_registry_key := l_registry_key.open_sub_key (("ISE").to_cil)
--					l_registry_key := l_registry_key.open_sub_key (("Eiffel52").to_cil)
--					l_registry_key := l_registry_key.open_sub_key (("emitter").to_cil)
--					l_obj := l_registry_key.get_value (Ise_eiffel_key.to_cil)
--					l_str ?= l_obj
--
--					if l_str /= Void then
--					 create Result.make_from_cil (l_str)
--					end
--				end

				check
					Ise_eiffel_defined: Result /= Void
				end
				if Result.item (Result.count) /= (create {OPERATING_ENVIRONMENT}).Directory_separator then
					Result.append_character ((create {OPERATING_ENVIRONMENT}).Directory_separator)
				end
			else
				-- FIXME: Manu 05/14/2002: we should raise an error here.
				io.error.put_string ("ISE_EIFFEL environment variable is not defined!%N")
				check
					ISE_EIFFEL_is_set: False
				then
				end
			end
		ensure
			exist: Result /= Void
			ends_with_directory_separator: Result.item (Result.count) = (create {OPERATING_ENVIRONMENT}).Directory_separator
		rescue
			retried := True
			retry
		end


note
	copyright:	"Copyright (c) 1984-2018, 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