opal-browser 0.1.0.beta1 → 0.3.1

data/opal/browser/event/data_transfer.rb

@@ -0,0 +1,95 @@
+require 'browser/blob'
+
+module Browser; class Event
+
+# {DataTransfer} is an object which manages included data to
+# an event of type {Event::Drag} or {Event::Clipboard}.
+class DataTransfer
+  include NativeCachedWrapper
+
+  # @!attribute [rw] effect
+  # @return [Symbol] Effect of this drop operation.
+  #   Must be one of: :none, :copy, :link or :move.
+  def effect
+    `#@native.dropEffect`
+  end
+
+  def effect= (effect)
+    `#@native.dropEffect = #{effect}`
+  end
+
+  # Extract some text data from this {DataTransfer} instance.
+  def [] (type)
+    `#@native.getData(#{type})`
+  end
+
+  # Embed some text data in this {DataTransfer} instance.
+  def []= (type, value)
+    `#@native.setData(#{type}, #{Native.convert(value)})`
+  end
+
+  # Clear some (or all, if type is not specified) text data from
+  # this {DataTransfer} instance.
+  def clear (type=nil)
+    `#@native.clearData(#{type.to_n})`
+  end
+
+  # @!attribute [w] drag_image
+  # Sets a drag image for this {DataTransfer}. Use some
+  # {DOM::Element::Image} or {Canvas} as a value.
+  def drag_image= (image)
+    `#@native.setDragImage(#{Native.convert(image)})`
+  end
+
+  # @!attribute [r] files
+  # @return [Array<File>] list of files attached to this {DataTransfer}
+  def files
+    Native::Array.new(`#@native.files`).map { |f| File.new(f.to_n) }
+  end
+
+  # @!attribute [r] items
+  # @return [Array<Item>] list of items attached to this {DataTransfer}
+  def items
+    Native::Array.new(`#@native.items`).map { |i| Item.new(i.to_n) }
+  end
+
+  # An instance of `DataTransferItem`
+  class Item
+    include NativeCachedWrapper
+
+    # @!attribute [r] kind
+    # @return [Symbol] kind of an item: :string or :file
+    def kind
+      `#@native.kind`
+    end
+
+    def string?; kind == 'string';           end
+    def file?;   kind == 'file' && to_file;  end # Some files can't be resolved...
+
+    # @!attribute [r] type
+    # @return [String] mime type of an item
+    def type
+      `#@native.type`
+    end
+
+    # Convert to string and call back once ready, or return a
+    # promise if a block isn't given.
+    def to_string(&block)
+      promise = nil
+      if !block
+        promise = Promise.new
+        block = proc { |i| promise.resolve(i) }
+      end
+      `#@native.getAsString(#{block.to_n})`
+      return promise
+    end
+
+    # Convert to file or return nil if impossible
+    def to_file
+      as_file = `#@native.getAsFile()`
+      File.new(as_file) if as_file
+    end
+  end
+end
+
+end; end

data/opal/browser/event/device_light.rb

@@ -0,0 +1,25 @@
+module Browser; class Event
+
+class DeviceLight < Event
+  handles 'devicelight'
+
+  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/opal/browser/{dom/event → event}/device_motion.rb

@@ -1,8 +1,10 @@
-module Browser; module DOM; class Event
+module Browser; class Event
 
 class DeviceMotion < Event
+  handles 'devicemotion'
+  
   def self.supported?
-    not $$[:DeviceMotionEvent].nil?
+    Browser.supports? 'Event.DeviceMotion'
   end
 
   Acceleration = Struct.new(:x, :y, :z)
@@ -25,9 +27,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
@@ -35,4 +50,4 @@ class DeviceMotion < Event
   alias_native :interval
 end
 
-end; end; end
+end; end

data/opal/browser/event/device_orientation.rb

@@ -0,0 +1,50 @@
+module Browser; class Event
+
+class DeviceOrientation < Event
+  handles 'deviceorientation'
+
+  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/opal/browser/{dom/event → event}/device_proximity.rb

@@ -1,8 +1,10 @@
-module Browser; module DOM; class Event
+module Browser; class Event
 
 class DeviceProximity < Event
+  handles 'deviceproximity'
+
   def self.supported?
-    not $$[:DeviceProximityEvent].nil?
+    Browser.supports? 'Event.DeviceProximity'
   end
 
   class Definition < Definition
@@ -19,13 +21,15 @@ 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
   alias_native :max
 end
 
-end; end; end
+end; end

data/opal/browser/event/drag.rb

@@ -0,0 +1,123 @@
+module Browser; class Event
+
+class Drag < Event
+  handles 'drag', 'dragend', 'dragenter', 'dragexit', 'dragleave', 'dragover',
+          'dragstart', 'drop'
+
+  def self.supported?
+    Browser.supports? 'Event.Drag'
+  end
+
+  class Definition < Definition
+    class Client
+      include Native::Wrapper
+
+      def x=(value)
+        `#@native.clientX = #{value}`
+      end
+
+      def y=(value)
+        `#@native.clientY = #{value}`
+      end
+    end
+
+    class Screen
+      include Native::Wrapper
+
+      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(value)}`
+    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
+
+  # Returns a {DataTransfer} related to this event
+  #
+  # @see https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer
+  def transfer
+    DataTransfer.new(`#@native.dataTransfer`)
+  end
+end
+
+end; end

data/opal/browser/event/focus.rb

@@ -0,0 +1,41 @@
+module Browser; class Event
+
+class Focus < UI
+  handles 'blur', 'focus', 'focusin', 'focusout'
+
+  def self.supported?
+    Browser.supports? 'Event.Focus'
+  end
+
+  class Definition < UI::Definition
+    def view=(value)
+      `#@native.view = #{Native.convert(value)}`
+    end
+
+    def related=(elem)
+      `#@native.relatedTarget = #{Native.convert(elem)}`
+    end
+  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`)
+  end
+end
+
+end; end

data/opal/browser/event/gamepad.rb

@@ -0,0 +1,62 @@
+module Browser; class Event
+
+class Gamepad < Event
+  handles 'gamepadconnected', 'gamepaddisconnected'
+
+  def self.supported?
+    Browser.supports? 'Event.Gamepad'
+  end
+
+  class Definition < Definition
+    def id=(value)
+      `#@native.id = #{value}`
+    end
+
+    def index=(value)
+      `#@native.index = #{value}`
+    end
+
+    def at=(value)
+      `#@native.timestamp = #{value}`
+    end
+
+    def axes=(value)
+      `#@native.axes = #{value}`
+    end
+
+    def buttons=(value)
+      `#@native.buttons = #{value}`
+    end
+  end
+
+  if Browser.supports? 'Event.constructor'
+    def self.construct(name, desc)
+      `return new GamepadEvent(#{name}, {
+        bubbles:    desc.bubbles,
+        cancelable: desc.cancelable,
+        gamepad:    desc })`
+    end
+  end if supported?
+
+  def id
+    `#@native.gamepad.id`
+  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

data/opal/browser/{dom/event → event}/hash_change.rb

@@ -1,8 +1,10 @@
-module Browser; module DOM; class Event
+module Browser; class Event
 
 class HashChange < Event
+  handles 'hashchange'
+
   def self.supported?
-    not $$[:HashChangeEvent].nil?
+    Browser.supports? 'Event.HashChange'
   end
 
   class Definition < Definition
@@ -15,12 +17,14 @@ class HashChange < Event
     end
   end
 
-  def self.create(name, &block)
-    new(`new HashChangeEvent(#{name}, #{Definition.new(&block)})`)
-  end
+  if Browser.supports? 'Event.constructor'
+    def self.construct(name, desc)
+      `new HashChangeEvent(#{name}, #{desc})`
+    end
+  end if supported?
 
   alias_native :old, :oldURL
   alias_native :new, :newURL
 end
 
-end; end; end
+end; end

data/opal/browser/event/keyboard.rb

@@ -0,0 +1,128 @@
+module Browser; class Event
+
+class Keyboard < UI
+  handles 'keydown', 'keypress', 'keyup'
+
+  def self.supported?
+    Browser.supports? 'Event.Keyboard'
+  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
+
+    def locale=(value)
+      `#@native.locale = value`
+    end
+  end
+
+  if Browser.supports? 'Event.constructor'
+    def self.construct(name, desc)
+      `new KeyboardEvent(#{name}, #{desc})`
+    end
+  elsif Browser.supports? 'Event.create'
+    def self.construct(name, desc)
+      %x{
+        var modifiers = "";
+
+        if (desc.altKey) {
+          modifiers += "Alt ";
+        }
+
+        if (desc.ctrlKey) {
+          modifiers += "Ctrl ";
+        }
+
+        if (desc.shiftKey) {
+          modifiers += "Shift" ;
+        }
+
+        if (desc.metaKey) {
+          modifiers += "Meta ";
+        }
+
+        var event = document.createEvent("KeyboardEvent");
+            event.initKeyboardEvent(name, desc.bubbles, desc.cancelable,
+              desc.view || window, desc.which, 0,
+              modifiers, desc.repeat, desc.locale);
+
+        return event;
+      }
+    end
+  end if supported?
+
+  alias_native :alt?, :altKey
+  alias_native :ctrl?, :ctrlKey
+  alias_native :meta?, :metaKey
+  alias_native :shift?, :shiftKey
+  alias_native :locale
+  alias_native :repeat?, :repeat
+
+  # IE 11 at least has different names for those keys.
+  IE_MAP = {
+    'Down' => 'ArrowDown',
+    'Up' => 'ArrowUp',
+    'Left' => 'ArrowLeft',
+    'Right' => 'ArrowRight',
+    'Esc' => 'Escape',
+    'Del' => 'Delete'
+  }
+
+  def key
+    key = `#@native.key || #@native.keyIdentifier || nil`
+    IE_MAP[key] || key
+  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

data/opal/browser/event/message.rb

@@ -0,0 +1,72 @@
+require 'buffer'
+
+module Browser; class Event
+
+class Message < Event
+  handles 'message'
+
+  def self.supported?
+    Browser.supports? 'Event.Message'
+  end
+
+  class Definition < Definition
+    def data=(value)
+      `#@native.data = value`
+    end
+
+    def origin=(value)
+      `#@native.origin = value`
+    end
+
+    def source=(value)
+      `#@native.source = #{Native.convert(value)}`
+    end
+  end
+
+  if Browser.supports? 'Event.constructor'
+    def self.construct(name, desc)
+      `new MessageEvent(#{name}, #{desc})`
+    end
+  elsif Browser.supports? 'Event.create'
+    def self.construct(name, desc)
+      %x{
+        var event = document.createEvent("MessageEvent");
+            event.initMessageEvent(name, desc.bubbles, desc.cancelable,
+              desc.data, desc.origin, "", desc.source || window);
+
+        return event;
+      }
+    end
+  end if supported?
+
+  def data
+    %x{
+      if (window.ArrayBuffer && #@native.data instanceof ArrayBuffer) {
+        return #{Buffer.new(`#@native.data`)};
+      }
+      else if (window.Blob && #@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 (window.Window && source instanceof window.Window) {
+        return #{Window.new(`source`)};
+      }
+      else {
+        return nil;
+      }
+    }
+  end
+end
+
+end; end