module Browser; module DOM; class Event

class Mouse < UI
  def self.supported?
    not $$[:MouseEvent].nil?
  end

  class Definition < UI::Definition
    class Client
      include Native

      def x=(value)
        `#@native.clientX = #{value}`
      end

      def y=(value)
        `#@native.clientY = #{value}`
      end
    end

    class Layer
      include Native

      def x=(value)
        `#@native.layerX = #{value}`
      end

      def y=(value)
        `#@native.layerY = #{value}`
      end
    end

    class Offset
      include Native

      def x=(value)
        `#@native.offsetX = #{value}`
      end

      def y=(value)
        `#@native.offsetY= #{value}`
      end
    end

    class Page
      include Native

      def x=(value)
        `#@native.pageX = #{value}`
      end

      def y=(value)
        `#@native.pageY = #{value}`
      end
    end

    class Screen
      include Native

      def x=(value)
        `#@native.screenX = #{value}`
      end

      def y=(value)
        `#@native.screenY = #{value}`
      end
    end

    class Ancestor
      include Native

      def x=(value)
        `#@native.x = #{value}`
      end

      def y=(value)
        `#@native.y = #{value}`
      end
    end

    def x=(value)
      `#@native.screenX = #{value}`
    end

    def y=(value)
      `#@native.screenY = #{value}`
    end

    def alt!
      `#@native.altKey = true`
    end

    def ctrl!
      `#@native.ctrlKey = true`
    end

    def meta!
      `#@native.metaKey = true`
    end

    def button=(value)
      `#@native.button = #{value}`
    end

    def client
      Client.new(@native)
    end

    def layer
      Layer.new(@native)
    end

    def offset
      Offset.new(@native)
    end

    def page
      Page.new(@native)
    end

    def screen
      Screen.new(@native)
    end

    def ancestor
      Ancestor.new(@native)
    end

    def related=(elem)
      `#@native.relatedTarget = #{Native.try_convert(elem)}`
    end

    def from=(elem)
      `#@native.fromElement = #{Native.try_convert(elem)}`
    end

    def to=(elem)
      `#@native.toElement = #{Native.try_convert(elem)}`
    end
  end

  if Browser.supports? 'Event.constructor'
    def self.construct(name, desc)
      `new MouseEvent(#{name}, #{desc})`
    end
  elsif Browser.supports? 'Event.create'
    def self.construct(name, desc)
      %x{
        var event = document.createEvent("MouseEvent");
            event.initMouseEvent(name, desc.bubbles, desc.cancelable,
              desc.view || window, desc.detail || 0,
              desc.screenX || 0, desc.screenY || 0,
              desc.clientX || 0, desc.clientY || 0,
              desc.ctrlKey || false, desc.altKey || false,
              desc.shiftKey || false, desc.metaKey || false,
              desc.button || 0, desc.relatedTarget || null);

        return event;
      }
    end
  end if supported?

  alias_native :alt?, :altKey
  alias_native :ctrl?, :ctrlKey
  alias_native :meta?, :metaKey
  alias_native :shift?, :shiftKey
  alias_native :button

  def client
    Position.new(`#@native.clientX`, `#@native.clientY`)
  end

  def layer
    Position.new(`#@native.layerX`, `#@native.layerY`) unless `#@native.layerX == null`
  end

  def offset
    Position.new(`#@native.offsetX`, `#@native.offsetY`) unless `#@native.offsetX == null`
  end

  def page
    Position.new(`#@native.pageX`, `#@native.pageY`) unless `#@native.pageX == null`
  end

  def screen
    Position.new(`#@native.screenX`, `#@native.screenY`) unless `#@native.screenX == null`
  end

  def ancestor
    Position.new(`#@native.x`, `#@native.y`) unless `#@native.x == null`
  end

  def x
    screen.x
  end

  def y
    screen.y
  end

  def related
    DOM(`#@native.relatedTarget`) unless `#@native.relatedTarget == null`
  end

  def from
    DOM(`#@native.fromElement`) unless `#@native.fromElement == null`
  end

  def to
    DOM(`#@native.toElement`) unless `#@native.toElement == null`
  end

  def click?
    name.downcase == 'click'
  end

  def double_click?
    name.downcase == 'dblclick'
  end

  def down?
    name.downcase == 'mousedown'
  end

  def enter?
    name.downcase == 'mouseenter'
  end

  def leave?
    name.downcase == 'mouseleave'
  end

  def move?
    name.downcase == 'mousemove'
  end

  def out?
    name.downcase == 'mouseout'
  end

  def over?
    name.downcase == 'mouseover'
  end

  def up?
    name.downcase == 'mouseup'
  end

  def show?
    name.downcase == 'show'
  end
end

end; end; end