opal-browser 0.1.0.beta1 → 0.2.0.beta1

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

@@ -2,12 +2,14 @@ module Browser; module DOM; class Event
 
 class BeforeUnload < Event
   def self.supported?
-    not $$[:BeforeUnloadEvent].nil?
+    Browser.supports? 'Event.BeforeUnload'
   end
 
-  def self.create(name, &block)
-    new(`new BeforeUnloadEvent(#{name}, #{Definition.new(&block)})`)
-  end
+  if Browser.supports? 'Event.constructor'
+    def self.construct(name, desc)
+      `new BeforeUnloadEvent(#{name}, #{desc})`
+    end
+  end if supported?
 end
 
 end; end; end

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

@@ -2,7 +2,7 @@ module Browser; module DOM; class Event
 
 class Clipboard < Event
   def self.supported?
-    not $$[:ClipboardEvent].nil?
+    Browser.supports? 'Event.Clipboard'
   end
 
   class Definition < Definition
@@ -15,9 +15,11 @@ class Clipboard < Event
     end
   end
 
-  def self.create(name, &block)
-    new(`new ClipboardEvent(#{name}, #{Definition.new(&block)})`)
-  end
+  if Browser.supports? 'Event.constructor'
+    def self.construct(name, desc)
+      `new ClipboardEvent(#{name}, #{desc})`
+    end
+  end if supported?
 
   alias_native :data
   alias_native :type, :dataType

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

@@ -2,7 +2,7 @@ module Browser; module DOM; class Event
 
 class Close < Event
   def self.supported?
-    not $$[:CloseEvent].nil?
+    Browser.supports? 'Event.Close'
   end
 
   class Definition < Definition
@@ -23,9 +23,21 @@ class Close < Event
     end
   end
 
-  def self.create(name, &block)
-    new(`new CloseEvent(#{name}, #{Definition.new(&block)})`)
-  end
+  if Browser.supports? 'Event.constructor'
+    def self.construct(name, desc)
+      `new CloseEvent(#{name}, #{desc})`
+    end
+  elsif Browser.supports? 'Event.create'
+    def self.construct(name, desc)
+      %x{
+        var event = document.createEvent("CloseEvent");
+            event.initCloseEvent(name, desc.bubbles, desc.cancelable,
+              desc.wasClean, desc.code, desc.reason);
+
+        return event;
+      }
+    end
+  end if supported?
 
   alias_native :code
   alias_native :reason

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

@@ -2,7 +2,7 @@ module Browser; module DOM; class Event
 
 class Composition < UI
   def self.supported?
-    not $$[:CompositionEvent].nil?
+    Browser.supports? 'Event.Composition'
   end
 
   class Definition < UI::Definition
@@ -15,9 +15,21 @@ class Composition < UI
     end
   end
 
-  def self.create(name, &block)
-    new(`new CompositionEvent(#{name}, #{Definition.new(&block)})`)
-  end
+  if Browser.supports? 'Event.constructor'
+    def self.construct(name, desc)
+      `new CompositionEvent(#{name}, #{desc})`
+    end
+  elsif Browser.supports? 'Event.create'
+    def self.construct(name, desc)
+      %x{
+        var event = document.createEvent("CompositionEvent");
+            event.initCompositionEvent(name, desc.bubbles, desc.cancelable,
+              desc.view || window, desc.data, desc.locale);
+
+        return event;
+      }
+    end
+  end if supported?
 
   alias_native :data
   alias_native :locale

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

@@ -4,20 +4,55 @@ module Browser; module DOM; class Event
 
 class Custom < Event
   def self.supported?
-    not $$[:CustomEvent].nil?
+    Browser.supports? 'Event.Custom'
   end
 
-  def self.create(name, &block)
-    data = OpenStruct.new
-    block.call(data) if block
+  class Definition < Definition
+    def method_missing(name, value)
+      if name.end_with? ?=
+        `#@native[#{name[0 .. -2]}] = value`
+      end
+    end
+  end
+
+  if Browser.supports? 'Event.constructor'
+    def self.construct(name, desc)
+      `new CustomEvent(name, {
+        bubbles:    desc.bubbles,
+        cancelable: desc.cancelable,
+        detail:     desc })`
+    end
+  elsif Browser.supports? 'Event.create'
+    def self.construct(name, desc)
+      %x{
+        var event = document.createEvent("CustomEvent");
+            event.initCustomEvent(name, desc.bubbles, desc.cancelable, desc);
 
-    new(`new CustomEvent(#{name}, { detail: #{data.to_n} })`)
+        return event;
+      }
+    end
+  elsif Browser.supports? 'Event.createObject'
+    def self.construct(name, desc)
+      Native(`document.createEventObject()`).merge!(`{
+        type:       name,
+        bubbles:    desc.bubbles,
+        cancelable: desc.cancelable,
+        detail:     desc }`).to_n
+    end
+  else
+    def self.construct(name, desc)
+      Native(desc).merge!(`{
+        type:       name,
+        bubbles:    desc.bubbles,
+        cancelable: desc.cancelable,
+        detail:     desc }`).to_n
+    end
   end
 
-  def initialize(native)
-    super(native); @native = native # TODO: remove this when super is fixed
+  def initialize(event, callback = nil)
+    super(event, callback)
 
-    @detail = Hash.new(`#{native}.detail`)
+    @detail = Hash.new(`#{event}.detail`)
   end
 
   def method_missing(id, *)

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

@@ -2,7 +2,7 @@ module Browser; module DOM; class Event
 
 class DeviceLight < Event
   def self.supported?
-    not $$[:DeviceLightEvent].nil?
+    Browser.supports? 'Event.DeviceLight'
   end
 
   class Definition < Definition
@@ -11,9 +11,11 @@ class DeviceLight < Event
     end
   end
 
-  def self.create(name, &block)
-    new(`new DeviceLightEvent(#{name}, #{Definition.new(&block)})`)
-  end
+  if Browser.supports? 'Event.constructor'
+    def self.construct(name, desc)
+      `new DeviceLightEvent(#{name}, #{desc})`
+    end
+  end if supported?
 
   alias_native :value
 end

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

@@ -2,7 +2,7 @@ module Browser; module DOM; class Event
 
 class DeviceMotion < Event
   def self.supported?
-    not $$[:DeviceMotionEvent].nil?
+    Browser.supports? 'Event.DeviceMotion'
   end
 
   Acceleration = Struct.new(:x, :y, :z)
@@ -25,9 +25,22 @@ class DeviceMotion < Event
     end
   end
 
-  def self.create(name, &block)
-    new(`new DeviceMotionEvent(#{name}, #{Definition.new(&block)})`)
-  end
+  if Browser.supports? 'Event.constructor'
+    def self.construct(name, desc)
+      `new DeviceMotionEvent(#{name}, #{desc})`
+    end
+  elsif Browser.supports? 'Event.create'
+    def self.construct(name, desc)
+      %x{
+        var event = document.createEvent("DeviceMotionEvent");
+            event.initDeviceMotionEvent(name, desc.bubbles, desc.cancelable,
+              desc.acceleration, desc.accelerationIncludingGravity,
+              desc.rotationRate, desc.interval);
+
+        return event;
+      }
+    end
+  end if supported?
 
   alias_native :acceleration
   alias_native :acceleration_with_gravity, :accelerationIncludingGravity

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

@@ -2,7 +2,7 @@ module Browser; module DOM; class Event
 
 class DeviceOrientation < Event
   def self.supported?
-    not $$[:DeviceOrientationEvent].nil?
+    Browser.supports? 'Event.DeviceOrientation'
   end
 
   class Definition < Definition
@@ -23,9 +23,21 @@ class DeviceOrientation < Event
     end
   end
 
-  def self.create(name, &block)
-    new(`new DeviceOrientationEvent(#{name}, #{Definition.new(&block)})`)
-  end
+  if Browser.supports? 'Event.constructor'
+    def self.construct(name, desc)
+      `new DeviceOrientationEvent(#{name}, #{desc})`
+    end
+  elsif Browser.supports? 'Event.create'
+    def self.construct(name, desc)
+      %x{
+        var event = document.createEvent("DeviceOrientationEvent");
+            event.initDeviceOrientationEvent(name, desc.bubbles, desc.cancelable,
+              desc.alpha, desc.beta, desc.gamma, desc.absolute);
+
+        return event;
+      }
+    end
+  end if supported?
 
   alias_native :absolute
   alias_native :alpha

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

@@ -2,7 +2,7 @@ module Browser; module DOM; class Event
 
 class DeviceProximity < Event
   def self.supported?
-    not $$[:DeviceProximityEvent].nil?
+    Browser.supports? 'Event.DeviceProximity'
   end
 
   class Definition < Definition
@@ -19,9 +19,11 @@ class DeviceProximity < Event
     end
   end
 
-  def self.create(name, &block)
-    new(`new DeviceProximityEvent(#{name}, #{Definition.new(&block)})`)
-  end
+  if Browser.supports? 'Event.constructor'
+    def self.construct(name, desc)
+      `new DeviceProximityEvent(#{name}, #{desc})`
+    end
+  end if supported?
 
   alias_native :value
   alias_native :min

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

@@ -3,7 +3,7 @@ module Browser; module DOM; class Event
 # TODO: handle transfers
 class Drag < Event
   def self.supported?
-    not $$[:DragEvent].nil?
+    Browser.supports? 'Event.Drag'
   end
 
   class Definition < Definition
@@ -56,38 +56,39 @@ class Drag < Event
     end
 
     def related=(elem)
-      `#@native.relatedTarget = #{Native.try_convert(elem)}`
+      `#@native.relatedTarget = #{Native.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`
+    def transfer=(value)
+      `#@native.dataTransfer = #{Native.convert(elem)}`
+    end
   end
 
-  def shift?
-    `#@native.shiftKey`
-  end
+  if Browser.supports? 'Event.constructor'
+    def self.construct(name, desc)
+      `new DragEvent(#{name}, #{desc})`
+    end
+  elsif Browser.supports? 'Event.create'
+    def self.construct(name, desc)
+      %x{
+        var event = document.createEvent("DragEvent");
+            event.initDragEvent(name, desc.bubbles, desc.cancelable,
+              desc.view || window, 0,
+              desc.screenX || 0, desc.screenY || 0,
+              desc.clientX || 0, desc.clientY || 0,
+              desc.ctrlKey, desc.altKey, desc.shiftKey, desc.metaKey,
+              desc.button || 0, desc.relatedTarget, desc.dataTransfer);
+
+        return event;
+      }
+    end
+  end if supported?
 
-  def button
-    `#@native.button`
-  end
+  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`)
@@ -108,6 +109,11 @@ class Drag < Event
   def related
     DOM(`#@native.relatedTarget`)
   end
+
+  # @see https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer
+  def transfer
+    raise NotImplementedError
+  end
 end
 
 end; end; end

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

@@ -2,18 +2,34 @@ module Browser; module DOM; class Event
 
 class Focus < UI
   def self.supported?
-    not $$[:FocusEvent].nil?
+    Browser.supports? 'Event.Focus'
   end
 
   class Definition < UI::Definition
+    def view=(value)
+      `#@native.view = #{Native.convert(value)}`
+    end
+
     def related=(elem)
-      `#@native.relatedTarget = #{Native.try_convert(elem)}`
+      `#@native.relatedTarget = #{Native.convert(elem)}`
     end
   end
 
-  def self.create(name, &block)
-    new(`new FocusEvent(#{name}, #{Definition.new(&block)})`)
-  end
+  if Browser.supports? 'Event.constructor'
+    def self.construct(name, desc)
+      `new FocusEvent(#{name}, #{desc})`
+    end
+  elsif Browser.supports? 'Event.create'
+    def self.construct(name, desc)
+      %x{
+        var event = document.createEvent("FocusEvent");
+            event.initFocusEvent(name, desc.bubbles, desc.cancelable,
+              desc.view || window, 0, desc.relatedTarget);
+
+        return event;
+      }
+    end
+  end if supported?
 
   def related
     DOM(`#@native.relatedTarget`)

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

@@ -2,46 +2,59 @@ module Browser; module DOM; class Event
 
 class Gamepad < Event
   def self.supported?
-    not $$[:GamepadEvent].nil?
+    Browser.supports? 'Event.Gamepad'
   end
 
   class Definition < Definition
-    def initialize(*)
-      super
-
-      `#@native.gamepad = {}`
-    end
-
     def id=(value)
-      `#@native.gamepad.id = #{value}`
+      `#@native.id = #{value}`
     end
 
     def index=(value)
-      `#@native.gamepad.index = #{value}`
+      `#@native.index = #{value}`
     end
 
-    def timestamp=(value)
-      `#@native.gamepad.timestamp = #{value}`
+    def at=(value)
+      `#@native.timestamp = #{value}`
     end
 
     def axes=(value)
-      `#@native.gamepad.axes = #{value}`
+      `#@native.axes = #{value}`
     end
 
     def buttons=(value)
-      `#@native.gamepad.buttons = #{value}`
+      `#@native.buttons = #{value}`
     end
   end
 
-  def self.create(name, &block)
-    new(`new GamepadEvent(#{name}, #{Definition.new(&block)})`)
+  if Browser.supports? 'Event.constructor'
+    def self.construct(name, desc)
+      `new GamepadEvent(#{name}, {
+        bubbles:    desc.bubbles,
+        cancelable: desc.cancelable,
+        gamepad:    desc })`
+    end
+  end if supported?
+
+  def id
+    `#@native.gamepad.id`
   end
 
-  %w(id index timestamp axes buttons).each {|name|
-    define_method name do
-      `#@native.gamepad[#{name}]`
-    end
-  }
+  def index
+    `#@native.gamepad.index`
+  end
+
+  def at
+    `#@native.gamepad.timestamp`
+  end
+
+  def axes
+    `#@native.gamepad.axes`
+  end
+
+  def buttons
+    `#@native.gamepad.buttons`
+  end
 end
 
 end; end; end