opal-browser 0.1.0.beta1

data/opal/browser/dom/event/device_proximity.rb

@@ -0,0 +1,31 @@
+module Browser; module DOM; class Event
+
+class DeviceProximity < Event
+  def self.supported?
+    not $$[:DeviceProximityEvent].nil?
+  end
+
+  class Definition < Definition
+    def value=(value)
+      `#@native.value = #{value}`
+    end
+
+    def min=(value)
+      `#@native.min = #{value}`
+    end
+
+    def max=(value)
+      `#@native.max = #{value}`
+    end
+  end
+
+  def self.create(name, &block)
+    new(`new DeviceProximityEvent(#{name}, #{Definition.new(&block)})`)
+  end
+
+  alias_native :value
+  alias_native :min
+  alias_native :max
+end
+
+end; end; end

data/opal/browser/dom/event/drag.rb

@@ -0,0 +1,113 @@
+module Browser; module DOM; class Event
+
+# TODO: handle transfers
+class Drag < Event
+  def self.supported?
+    not $$[:DragEvent].nil?
+  end
+
+  class Definition < Definition
+    class Client
+      include Native
+
+      def x=(value)
+        `#@native.clientX = #{value}`
+      end
+
+      def y=(value)
+        `#@native.clientY = #{value}`
+      end
+    end
+
+    class Screen
+      include Native
+
+      def x=(value)
+        `#@native.screenX = #{value}`
+      end
+
+      def y=(value)
+        `#@native.screenY = #{value}`
+      end
+    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 screen
+      Screen.new(@native)
+    end
+
+    def related=(elem)
+      `#@native.relatedTarget = #{Native.try_convert(elem)}`
+    end
+
+
+
+  end
+
+  def self.create(name, &block)
+    new(`new DragEvent(#{name}, #{Definition.new(&block)})`)
+  end
+
+  Position = Struct.new(:x, :y)
+
+  def alt?
+    `#@native.altKey`
+  end
+
+  def ctrl?
+    `#@native.ctrlKey`
+  end
+
+  def meta?
+    `#@native.metaKey`
+  end
+
+  def shift?
+    `#@native.shiftKey`
+  end
+
+  def button
+    `#@native.button`
+  end
+
+  def client
+    Position.new(`#@native.clientX`, `#@native.clientY`)
+  end
+
+  def screen
+    Position.new(`#@native.screenX`, `#@native.screenY`) if defined?(`#@native.screenX`)
+  end
+
+  def x
+    screen.x
+  end
+
+  def y
+    screen.y
+  end
+
+  def related
+    DOM(`#@native.relatedTarget`)
+  end
+end
+
+end; end; end

data/opal/browser/dom/event/focus.rb

@@ -0,0 +1,23 @@
+module Browser; module DOM; class Event
+
+class Focus < UI
+  def self.supported?
+    not $$[:FocusEvent].nil?
+  end
+
+  class Definition < UI::Definition
+    def related=(elem)
+      `#@native.relatedTarget = #{Native.try_convert(elem)}`
+    end
+  end
+
+  def self.create(name, &block)
+    new(`new FocusEvent(#{name}, #{Definition.new(&block)})`)
+  end
+
+  def related
+    DOM(`#@native.relatedTarget`)
+  end
+end
+
+end; end; end

data/opal/browser/dom/event/gamepad.rb

@@ -0,0 +1,47 @@
+module Browser; module DOM; class Event
+
+class Gamepad < Event
+  def self.supported?
+    not $$[:GamepadEvent].nil?
+  end
+
+  class Definition < Definition
+    def initialize(*)
+      super
+
+      `#@native.gamepad = {}`
+    end
+
+    def id=(value)
+      `#@native.gamepad.id = #{value}`
+    end
+
+    def index=(value)
+      `#@native.gamepad.index = #{value}`
+    end
+
+    def timestamp=(value)
+      `#@native.gamepad.timestamp = #{value}`
+    end
+
+    def axes=(value)
+      `#@native.gamepad.axes = #{value}`
+    end
+
+    def buttons=(value)
+      `#@native.gamepad.buttons = #{value}`
+    end
+  end
+
+  def self.create(name, &block)
+    new(`new GamepadEvent(#{name}, #{Definition.new(&block)})`)
+  end
+
+  %w(id index timestamp axes buttons).each {|name|
+    define_method name do
+      `#@native.gamepad[#{name}]`
+    end
+  }
+end
+
+end; end; end

data/opal/browser/dom/event/hash_change.rb

@@ -0,0 +1,26 @@
+module Browser; module DOM; class Event
+
+class HashChange < Event
+  def self.supported?
+    not $$[:HashChangeEvent].nil?
+  end
+
+  class Definition < Definition
+    def old=(value)
+      `#@native.oldURL = #{value}`
+    end
+
+    def new=(value)
+      `#@native.newURL = #{value}`
+    end
+  end
+
+  def self.create(name, &block)
+    new(`new HashChangeEvent(#{name}, #{Definition.new(&block)})`)
+  end
+
+  alias_native :old, :oldURL
+  alias_native :new, :newURL
+end
+
+end; end; end

data/opal/browser/dom/event/keyboard.rb

@@ -0,0 +1,93 @@
+module Browser; module DOM; class Event
+
+class Keyboard < UI
+  def self.supported?
+    not $$[:KeyboardEvent].nil?
+  end
+
+  class Definition < UI::Definition
+    def alt!
+      `#@native.altKey = true`
+    end
+
+    def ctrl!
+      `#@native.ctrlKey = true`
+    end
+
+    def meta!
+      `#@native.metaKey = true`
+    end
+
+    def shift!
+      `#@native.shiftKey = true`
+    end
+
+    def code=(code)
+      `#@native.keyCode = #@native.which = #{code}`
+    end
+
+    def key=(key)
+      `#@native.key = #{key}`
+    end
+
+    def char=(char)
+      `#@native.char = #@native.charCode = #{char}`
+    end
+
+    def repeat!
+      `#@native.repeat = true`
+    end
+  end
+
+  def self.create(name, &block)
+    new(`new KeyboardEvent(#{name}, #{Definition.new(&block)})`)
+  end
+
+  def alt?
+    `#@native.altKey`
+  end
+
+  def ctrl?
+    `#@native.ctrlKey`
+  end
+
+  def meta?
+    `#@native.metaKey`
+  end
+
+  def shift?
+    `#@native.shiftKey`
+  end
+
+  def repeat?
+    `#@native.repeat`
+  end
+
+  def key
+    `#@native.key || #@native.keyIdentifier || nil`
+  end
+
+  def code
+    `#@native.keyCode || #@native.which || nil`
+  end
+
+  def char
+    `#@native.char || #@native.charCode || #{code ? code.chr : nil}`
+  end
+
+  alias to_i key
+
+  def down?
+    name.downcase == 'keydown'
+  end
+
+  def press?
+    name.downcase == 'keypress'
+  end
+
+  def up?
+    name.downcase == 'keyup'
+  end
+end
+
+end; end; end

data/opal/browser/dom/event/message.rb

@@ -0,0 +1,50 @@
+require 'buffer'
+
+module Browser; module DOM; class Event
+
+class Message < Event
+  def self.supported?
+    not $$[:MessageEvent].nil?
+  end
+
+  class Definition < Definition
+    def data=(value)
+      `#@native.data = #{value.to_n}`
+    end
+  end
+
+  def self.create(name, &block)
+    new(`new MessageEvent(#{name}, #{Definition.new(&block)})`)
+  end
+
+  def data
+    %x{
+      if (#@native.data instanceof ArrayBuffer) {
+        return #{Buffer.new(`#@native.data`)};
+      }
+      else if (#@native.data instanceof Blob) {
+        return #{Blob.new(`#@native.data`)};
+      }
+      else {
+        return #@native.data;
+      }
+    }
+  end
+
+  alias_native :origin
+
+  def source
+    %x{
+      var source = #@native.source;
+
+      if (source instanceof window.Window) {
+        return #{Window.new(`source`)};
+      }
+      else {
+        return nil;
+      }
+    }
+  end
+end
+
+end; end; end

data/opal/browser/dom/event/mouse.rb

@@ -0,0 +1,253 @@
+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
+
+  def self.create(name, &block)
+    new(`new MouseEvent(#{name}, #{Definition.new(&block)})`)
+  end
+
+  Position = Struct.new(:x, :y)
+
+  def alt?
+    `#@native.altKey`
+  end
+
+  def ctrl?
+    `#@native.ctrlKey`
+  end
+
+  def meta?
+    `#@native.metaKey`
+  end
+
+  def shift?
+    `#@native.shiftKey`
+  end
+
+  def button
+    `#@native.button`
+  end
+
+  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