diamonds 0.1.5

data/lib/diamonds/opal/browser/event/before_unload.rb

@@ -0,0 +1,15 @@
+module Browser; class Event
+
+class BeforeUnload < Event
+  def self.supported?
+    Browser.supports? 'Event.BeforeUnload'
+  end
+
+  if Browser.supports? 'Event.constructor'
+    def self.construct(name, desc)
+      `new BeforeUnloadEvent(#{name}, #{desc})`
+    end
+  end if supported?
+end
+
+end; end

data/lib/diamonds/opal/browser/event/clipboard.rb

@@ -0,0 +1,28 @@
+module Browser; class Event
+
+class Clipboard < Event
+  def self.supported?
+    Browser.supports? 'Event.Clipboard'
+  end
+
+  class Definition < Definition
+    def data=(value)
+      `#@native.data = #{value}`
+    end
+
+    def type=(value)
+      `#@native.dataType = #{value}`
+    end
+  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
+end
+
+end; end

data/lib/diamonds/opal/browser/event/close.rb

@@ -0,0 +1,47 @@
+module Browser; class Event
+
+class Close < Event
+  def self.supported?
+    Browser.supports? 'Event.Close'
+  end
+
+  class Definition < Definition
+    def code=(value)
+      `#@native.code = #{value}`
+    end
+
+    def reason=(value)
+      `#@native.reason = #{value}`
+    end
+
+    def clean!(value)
+      `#@native.wasClean = true`
+    end
+
+    def not_clean!(value)
+      `#@native.wasClean = false`
+    end
+  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
+  alias_native :clean?, :wasClean
+end
+
+end; end

data/lib/diamonds/opal/browser/event/composition.rb

@@ -0,0 +1,50 @@
+module Browser; class Event
+
+class Composition < UI
+  def self.supported?
+    Browser.supports? 'Event.Composition'
+  end
+
+  class Definition < UI::Definition
+    def data=(value)
+      `#@native.data = #{value}`
+    end
+
+    def locale=(value)
+      `#@native.locale = #{value}`
+    end
+  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
+
+  def start?
+    name.downcase == 'compositionstart'
+  end
+
+  def update?
+    name.downcase == 'compositionupdate'
+  end
+
+  def end?
+    name.downcase == 'compositionend'
+  end
+end
+
+end; end

data/lib/diamonds/opal/browser/event/custom.rb

@@ -0,0 +1,65 @@
+require 'ostruct'
+
+module Browser; class Event
+
+class Custom < Event
+  def self.supported?
+    Browser.supports? 'Event.Custom'
+  end
+
+  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);
+
+        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(event, callback = nil)
+    super(event, callback)
+
+    @detail = Hash.new(`#{event}.detail`)
+  end
+
+  def method_missing(id, *)
+    return @detail[id] if @detail.has_key?(id)
+
+    super
+  end
+end
+
+end; end

data/lib/diamonds/opal/browser/event/device_light.rb

@@ -0,0 +1,23 @@
+module Browser; class Event
+
+class DeviceLight < Event
+  def self.supported?
+    Browser.supports? 'Event.DeviceLight'
+  end
+
+  class Definition < Definition
+    def value=(value)
+      `#@native.value = #{value}`
+    end
+  end
+
+  if Browser.supports? 'Event.constructor'
+    def self.construct(name, desc)
+      `new DeviceLightEvent(#{name}, #{desc})`
+    end
+  end if supported?
+
+  alias_native :value
+end
+
+end; end

data/lib/diamonds/opal/browser/event/device_motion.rb

@@ -0,0 +1,51 @@
+module Browser; class Event
+
+class DeviceMotion < Event
+  def self.supported?
+    Browser.supports? 'Event.DeviceMotion'
+  end
+
+  Acceleration = Struct.new(:x, :y, :z)
+
+  class Definition < Definition
+    def acceleration=(value)
+      `#@native.acceleration = #{value.to_n}`
+    end
+
+    def acceleration_with_gravity=(value)
+      `#@native.accelerationIncludingGravity = #{value.to_n}`
+    end
+
+    def rotation=(value)
+      `#@native.rotationRate = #{value}`
+    end
+
+    def interval=(value)
+      `#@native.interval = #{value}`
+    end
+  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
+  alias_native :rotation, :rotationRate
+  alias_native :interval
+end
+
+end; end

data/lib/diamonds/opal/browser/event/device_orientation.rb

@@ -0,0 +1,48 @@
+module Browser; class Event
+
+class DeviceOrientation < Event
+  def self.supported?
+    Browser.supports? 'Event.DeviceOrientation'
+  end
+
+  class Definition < Definition
+    def absolute=(value)
+      `#@native.absolute = #{value}`
+    end
+
+    def alpha=(value)
+      `#@native.alpha = #{value}`
+    end
+
+    def beta=(value)
+      `#@native.beta = #{value}`
+    end
+
+    def gamma=(value)
+      `#@native.gamma = #{value}`
+    end
+  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
+  alias_native :beta
+  alias_native :gamma
+end
+
+end; end

data/lib/diamonds/opal/browser/event/device_proximity.rb

@@ -0,0 +1,33 @@
+module Browser; class Event
+
+class DeviceProximity < Event
+  def self.supported?
+    Browser.supports? 'Event.DeviceProximity'
+  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
+
+  if Browser.supports? 'Event.constructor'
+    def self.construct(name, desc)
+      `new DeviceProximityEvent(#{name}, #{desc})`
+    end
+  end if supported?
+
+  alias_native :value
+  alias_native :min
+  alias_native :max
+end
+
+end; end

data/lib/diamonds/opal/browser/event/drag.rb

@@ -0,0 +1,119 @@
+module Browser; class Event
+
+# TODO: handle transfers
+class Drag < Event
+  def self.supported?
+    Browser.supports? 'Event.Drag'
+  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.convert(elem)}`
+    end
+
+    def transfer=(value)
+      `#@native.dataTransfer = #{Native.convert(elem)}`
+    end
+  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?
+
+  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 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
+
+  # @see https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer
+  def transfer
+    raise NotImplementedError
+  end
+end
+
+end; end