diamonds 0.1.5

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

@@ -0,0 +1,39 @@
+module Browser; class Event
+
+class Focus < UI
+  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/lib/diamonds/opal/browser/event/gamepad.rb

@@ -0,0 +1,60 @@
+module Browser; class Event
+
+class Gamepad < Event
+  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)
+      `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/lib/diamonds/opal/browser/event/hash_change.rb

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

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

@@ -0,0 +1,115 @@
+module Browser; class Event
+
+class Keyboard < UI
+  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
+
+  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

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

@@ -0,0 +1,70 @@
+require 'buffer'
+
+module Browser; class Event
+
+class Message < Event
+  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

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

@@ -0,0 +1,254 @@
+module Browser; 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