------------------------------------------------------------
-- FootageReload
-- 
-- A CompScript that reloads the Footage in all/selected Loaders
--
-- written by : Michael Vorberg (mv@empty98.de) (october 2007)
--
-- $Revision: 0.1 $ (03.10.2007)
--
-- ToDo:
--
-- *ClipList support
--
----------------------------------------------------------------------

fusion = Fusion()

composition = fusion:GetCurrentComp()

ret = AskUser("Footage Reloaded", { 
	{"Selected", Name = "Affect Selected Tools Only", "Checkbox", Default = 0}
	})

if ret == nil then print ("dialog canceled") return end
	
if ret then
	for i, v in composition:GetToolList((Selected == 1)) do
	id = v:GetAttrs().TOOLS_RegID
	if id == "Loader" then
		attrs = v:GetAttrs()
		startTime = attrs.TOOLNT_Clip_Start[1]
		--print (startTime)
		v.Clip[startTime] = v.Clip[startTime]
		end
	end
end