----------------- DO NOT REMOVE OR MOVE -----------------
-- Ensure Codea doesn't load this file automatically
-- This MUST be at the top of this file!
if WRL and not WRL.loading then return end
--------------- END DO NOT REMOVE OR MOVE ---------------
-- Contents:
--    Touches.lua

------------------------------
-- Touches.lua
------------------------------
do
-----------------------------------------
-- Touches
-- Written by John Millard
-----------------------------------------
-- Description:
-- A touch management class that simplifies handling multiple touch reciever.
-----------------------------------------

local TouchHandler = class()

function TouchHandler:init(target, priority, multiTouch)
    assert(target ~= nil)

    self.target = target
    self.priority = priority or 0
    self.multiTouch = multiTouch or false
    self.captured = {}
    self.count = 0
end

function TouchHandler:scroll(gesture)
    if gesture.state == BEGAN then
        if self.target.scroll and self.target:scroll(gesture) then
            self.capturedScroll = true
            self.count = self.count + 1
            return true
        end
    elseif gesture.state == MOVING then 
        if self.target.scroll and self.capturedScroll then
            self.target:scroll(gesture)
            return true
        end
    elseif gesture.state == ENDED then
        if self.target.scroll and self.capturedScroll then
            self.target:scroll(gesture)
            self.capturedScroll = nil
            self.count = self.count - 1
            return true
        end        
    end
end

function TouchHandler:hover(gesture)
    if self.target.hover then self.target:hover(gesture) end
end

function TouchHandler:touched(touch)
    if touch.state == BEGAN then
        if self.multiTouch or self.count == 0 then
            if self.target:touched(touch) then
                self.captured[touch.id] = true
                self.count = self.count + 1
                return true
            end
        end
    elseif touch.state == MOVING then
        if self.captured[touch.id] then
            self.target:touched(touch)
            return true
        end
    elseif touch.state == ENDED or touch.state == CANCELLED then
        if self.captured[touch.id] then
            self.target:touched(touch)
            self.captured[touch.id] = nil
            self.count = self.count - 1
            return true
        end
    end    

    return false
end

touches = {}
touches.handlers = {}
touches.shared = {}

function touches.share(target, touch, priority)
    local fakeTouch = 
    {
        x = touch.x,
        y = touch.y,
        id = touch.id,
        state = BEGAN,
        tapCount = touch.tapCount,
        deltaX = touch.deltaX,
        deltaY = touch.deltaY       
    }
    
    for k,v in pairs(touches.handlers) do
        if v.target ~= target and v.priority == priority then
            v:touched(fakeTouch) 
        end
    end
end

function touches.addHandler(target, priority, multiTouch)
    table.insert(touches.handlers, TouchHandler(target, priority, multiTouch))

    table.sort(touches.handlers, function(a,b)
        return a.priority < b.priority
    end)
end

function touches.removeHandler(target)
    local i = nil

    for k,v in pairs(touches.handlers) do
        if v.target == target then
            i = k
        end
    end

    table.remove(touches.handlers, i)
end

function touches.touched(touch)
    local captured = false
    for k,v in pairs(touches.handlers) do
        if v:touched(touch) then captured = true end
        if touch.state == BEGAN and captured then
            return true
        end
    end

    return captured
end

function touches.scroll(gesture)
    local captured = false
    for k,v in pairs(touches.handlers) do
        if v.scroll and v:scroll(gesture) then captured = true end
        if gesture.state == BEGAN and captured then
            return true
        end
    end

    return captured    
end

function touches.hover(gesture)
    local captured = false
    for k,v in pairs(touches.handlers) do
        if v.hover then v:hover(gesture) end
    end

    return captured        
end

function touched(touch) touches.touched(touch) end
function scroll(gesture) touches.scroll(gesture) end
function hover(gesture) touches.hover(gesture) end

end
