class
	EL_IMAGE_PATH_LOCATIONS

inherit
	ANY

	EL_MODULE_DIRECTORY

	EL_MODULE_TUPLE

create
	make, make_default

feature {NONE} -- Initialization

	make (installation_dir: DIR_PATH)
		do
			desktop_icons_dir := installation_dir #+ Step.desktop_icons
			icons_dir := installation_dir #+ Step.icons
			images_dir := installation_dir #+ Step.images
		end

	make_default
		do
			create desktop_icons_dir
			create icons_dir
			create images_dir
		end

feature -- Access

	desktop_menu_icon (relative_path: FILE_PATH): FILE_PATH
		-- Icons for setting up desktop menu launchers
		do
			Result := desktop_icons_dir.plus_file (relative_path)
		end

	icon (relative_path: FILE_PATH): FILE_PATH
		-- application icon
		do
			Result := icons_dir.plus_file (relative_path)
		end

	image (relative_path: FILE_PATH): FILE_PATH
		-- application image
		do
			Result := images_dir.plus_file (relative_path)
		end

feature -- Base directories

	desktop_icons_dir: DIR_PATH

	icons_dir: DIR_PATH

	images_dir: DIR_PATH

feature -- Constants

	Step: TUPLE [icons, desktop_icons, images: IMMUTABLE_STRING_8]
		once
			create Result
			Tuple.fill_immutable (Result, "icons, desktop-icons, images")
		end

	User_desktop_menu_icons_path: DIR_PATH
		once
			Result := Directory.App_cache #+ Step.desktop_icons
		end

	User_icons_path: DIR_PATH
		once
			Result := Directory.App_cache #+ Step.icons
		end

	User_images_path: DIR_PATH
		once
			Result := Directory.App_cache #+ Step.images
		end

end