set clp = selection(0)
	If typename( clp ) = "Clip" then
		inv=clp.TimeControl.Parameters("resin").value
		outv=clp.TimeControl.Parameters("resout").value
		p_in=GetValue("PlayControl.In")
		if inv < p_in then inv=p_in end if
		p_out=GetValue("PlayControl.GlobalOut")
		if outv > p_out then outv=p_out end if
		SetValue "PlayControl.In", inv
		SetValue "PlayControl.Out", outv
	End if