Implement event management for List

gfx/list.lua

@@ -1,3 +1,4 @@
+local Event = require("gfx.event")
 local Element = require("gfx.element")
 local List = Element:new{
   children = {},
@@ -125,6 +126,35 @@ function List:findById(id)
   return nil
 end
 
+function List:handleEvent(evt)
+  if Element.handleEvent(self, evt) then
+    return true
+  end
+
+  if Event.isClickEvent(evt) then
+    local wOffset = 0
+    local hOffset = 0
+    for _,child in ipairs(self.children) do
+      if Event.containsClick(child, evt, -wOffset, -hOffset) then
+        return child:handleEvent({Event.repositionEvent(evt, -wOffset, -hOffset)})
+      end
+
+      if self:isVertical() then
+        hOffset = hOffset + child:getHeight()
+      else
+        wOffset = wOffset + child:getWidth()
+      end
+    end
+    return false
+  else
+    local handled = false
+    for _,child in ipairs(self.children) do
+      handled = child:handleEvent(evt) or handled
+    end
+    return handled
+  end
+end
+
 function List:_isDirty()
   if Element._isDirty(self) then
     return true