opal-browser 0.1.0.beta1 → 0.3.1

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

@@ -1,35 +0,0 @@
-module Browser; module DOM; class Event
-
-class Close < Event
-  def self.supported?
-    not $$[:CloseEvent].nil?
-  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
-
-  def self.create(name, &block)
-    new(`new CloseEvent(#{name}, #{Definition.new(&block)})`)
-  end
-
-  alias_native :code
-  alias_native :reason
-  alias_native :clean?, :wasClean
-end
-
-end; end; end

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

@@ -1,38 +0,0 @@
-module Browser; module DOM; class Event
-
-class Composition < UI
-  def self.supported?
-    not $$[:CompositionEvent].nil?
-  end
-
-  class Definition < UI::Definition
-    def data=(value)
-      `#@native.data = #{value}`
-    end
-
-    def locale=(value)
-      `#@native.locale = #{value}`
-    end
-  end
-
-  def self.create(name, &block)
-    new(`new CompositionEvent(#{name}, #{Definition.new(&block)})`)
-  end
-
-  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; end

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

@@ -1,30 +0,0 @@
-require 'ostruct'
-
-module Browser; module DOM; class Event
-
-class Custom < Event
-  def self.supported?
-    not $$[:CustomEvent].nil?
-  end
-
-  def self.create(name, &block)
-    data = OpenStruct.new
-    block.call(data) if block
-
-    new(`new CustomEvent(#{name}, { detail: #{data.to_n} })`)
-  end
-
-  def initialize(native)
-    super(native); @native = native # TODO: remove this when super is fixed
-
-    @detail = Hash.new(`#{native}.detail`)
-  end
-
-  def method_missing(id, *)
-    return @detail[id] if @detail.has_key?(id)
-
-    super
-  end
-end
-
-end; end; end

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

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

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

@@ -1,36 +0,0 @@
-module Browser; module DOM; class Event
-
-class DeviceOrientation < Event
-  def self.supported?
-    not $$[:DeviceOrientationEvent].nil?
-  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
-
-  def self.create(name, &block)
-    new(`new DeviceOrientationEvent(#{name}, #{Definition.new(&block)})`)
-  end
-
-  alias_native :absolute
-  alias_native :alpha
-  alias_native :beta
-  alias_native :gamma
-end
-
-end; end; end

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

@@ -1,113 +0,0 @@
-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

@@ -1,23 +0,0 @@
-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

@@ -1,47 +0,0 @@
-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/keyboard.rb

@@ -1,93 +0,0 @@
-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

@@ -1,50 +0,0 @@
-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/page_transition.rb

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

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

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

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

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

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

@@ -1,13 +0,0 @@
-module Browser; module DOM; class Event
-
-class Sensor < Event
-  def self.supported?
-    not $$[:SensorEvent].nil?
-  end
-
-  def self.create(name, &block)
-    new(`new SensorEvent(#{name}, #{Definition.new(&block)})`)
-  end
-end
-
-end; end; end

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

@@ -1,22 +0,0 @@
-module Browser; module DOM; class Event
-
-class UI < Event
-  class Definition < Definition
-    def detail=(value)
-      `#@native.detail = #{value}`
-    end
-
-    def view=(value)
-      `#@native.view = #{value}`
-    end
-  end
-
-  def self.create(name, &block)
-    new(`new UIEvent(#{name}, #{Definition.new(&block)})`)
-  end
-
-  alias_native :detail
-  alias_native :view
-end
-
-end; end; end