Gesture dispatch. about cocoabean HOT 2 OPEN

  setupEventDispatcher: () ->
    $body = $("body")
    events = ["touchstart", "touchmove", "touchend", "touchcancel",
      "mousemove", "mousedown", "mouseup"]
    for event in events
      block = (event) =>
        $body.on event, (e) =>
          this[event](e)
      block(event)

  mousedown: (e) ->
    layer = $(e.target)
    view = layer.data("view")
    while !view
      break if layer.is($(document))
      layer = layer.parent()
      view = layer.data("view")
    responder = view
    while responder && !responder.canBecomeFirstResponder()
      responder = responder.nextResponder()
    if responder
      event = new CB.Event
      event._timestamp = "ok"
      event._locationInWindow = new CB.Point(e.clientX, e.clientY)
      event._type = "mouse"
      event._view = view
      event._window = view.window
      responder.mouseDownWithEvent(event)