opal-browser 0.1.0.beta1

data/opal/browser/dom/element/input.rb

@@ -0,0 +1,17 @@
+module Browser; module DOM; class Element < Node
+
+class Input < Element
+  def value
+    `#@native.value`
+  end
+
+  def value=(value)
+    `#@native.value = #{value}`
+  end
+
+  def clear
+    `#@native.value = ''`
+  end
+end
+
+end; end; end

data/opal/browser/dom/element/offset.rb

@@ -0,0 +1,67 @@
+module Browser; module DOM; class Element < Node
+
+class Offset
+  def initialize(element)
+    @element = element
+    @native  = element.to_n
+  end
+
+  def parent
+    DOM(`#@native.offsetParent || #{@element.document.root.to_n}`)
+  end
+
+  def x
+    get.x
+  end
+
+  def x=(value)
+    set value, nil
+  end
+
+  def y
+    get.y
+  end
+
+  def y=(value)
+    set nil, value
+  end
+
+  def get
+    doc  = @element.document
+    root = doc.root.to_n
+    win  = doc.window.to_n
+
+    %x{
+      var box = #@native.getBoundingClientRect(),
+          y   = box.top + (#{win}.pageYOffset || #{root}.scrollTop) - (#{root}.clientTop || 0),
+          x   = box.left + (#{win}.pageXOffset || #{root}.scrollLeft) - (#{root}.clientLeft || 0);
+    }
+
+    Browser::Position.new(`x`, `y`)
+  end
+
+  def set(*value)
+    position = @element.style![:position]
+
+    if position == :static
+      @element.style[:position] = :relative
+    end
+
+    offset = get
+    top    = @element.style![:top].to_u
+    left   = @element.style![:left].to_u
+
+    if Browser::Position === value.first
+      x, y = value.first.x, value.first.y
+    elsif Hash === value.first
+      x, y = value.first[:x], value.first[:y]
+    else
+      x, y = value
+    end
+
+    @element.style[:left] = (x.px - offset.x) + left if x
+    @element.style[:top]  = (y.px - offset.y) + top  if y
+  end
+end
+
+end; end; end

data/opal/browser/dom/element/position.rb

@@ -0,0 +1,37 @@
+module Browser; module DOM; class Element < Node
+
+class Position
+  def initialize(element)
+    @element = element
+    @native  = element.to_n
+  end
+
+  def get
+    offset        = @element.offset
+    position      = offset.get
+    parent        = offset.parent
+    parent_offset = Browser::Position.new(0, 0)
+
+    if @element.style[:position] == :fixed
+      unless parent =~ :html
+        parent_offset = parent.offset
+      end
+
+      parent_offset.x += parent.style['border-top-width'].to_i
+      parent_offset.y += parent.style['border-left-width'].to_i
+    end
+
+    Browser::Position.new(position.x - parent_offset.x - @element.style['margin-left'].to_i,
+                          position.y - parent_offset.y - @element.style['margin-top'].to_i)
+  end
+
+  def x
+    get.x
+  end
+
+  def y
+    get.y
+  end
+end
+
+end; end; end

data/opal/browser/dom/element/scroll.rb

@@ -0,0 +1,49 @@
+module Browser; module DOM; class Element < Node
+
+class Scroll
+  def initialize(element)
+    @element = element
+    @native  = element.to_n
+  end
+
+  def position
+    Browser::Position.new(`#@native.scrollLeft`, `#@native.scrollTop`)
+  end
+
+  def x
+    position.x
+  end
+
+  def y
+    position.y
+  end
+
+  def to(what)
+    x   = what[:x] || self.x
+    y   = what[:y] || self.y
+
+    `#@native.scrollTop = #{y}`
+    `#@native.scrollLeft = #{x}`
+
+    self
+  end
+
+  def height
+    `#@native.scrollHeight`
+  end
+
+  def width
+    `#@native.scrollWidth`
+  end
+
+  def by(what)
+    x = what[:x] || 0
+    y = what[:y] || 0
+
+    `#@native.scrollBy(#{x}, #{y})`
+
+    self
+  end
+end
+
+end; end; end

data/opal/browser/dom/event.rb

@@ -0,0 +1,240 @@
+require 'browser/dom/event/base'
+
+require 'browser/dom/event/ui'
+require 'browser/dom/event/mouse'
+require 'browser/dom/event/keyboard'
+require 'browser/dom/event/focus'
+require 'browser/dom/event/wheel'
+require 'browser/dom/event/composition'
+require 'browser/dom/event/animation'
+require 'browser/dom/event/audio_processing'
+require 'browser/dom/event/before_unload'
+require 'browser/dom/event/composition'
+require 'browser/dom/event/clipboard'
+require 'browser/dom/event/device_light'
+require 'browser/dom/event/device_motion'
+require 'browser/dom/event/device_orientation'
+require 'browser/dom/event/device_proximity'
+require 'browser/dom/event/drag'
+require 'browser/dom/event/gamepad'
+require 'browser/dom/event/hash_change'
+require 'browser/dom/event/progress'
+require 'browser/dom/event/page_transition'
+require 'browser/dom/event/pop_state'
+require 'browser/dom/event/storage'
+require 'browser/dom/event/touch'
+require 'browser/dom/event/sensor'
+require 'browser/dom/event/custom'
+require 'browser/dom/event/message'
+require 'browser/dom/event/close'
+
+module Browser; module DOM
+
+class Event
+  def self.names
+    return @names if @names
+
+    @names = Hash.new { |_, k| k }
+    @names.merge!({
+      load:  'DOMContentLoaded',
+      hover: 'mouse:over'
+    })
+  end
+
+  def self.name_for(name)
+    names[name].gsub(?:, '')
+  end
+
+  def self.classes
+    @classes ||= {
+      Animation         => $$[:AnimationEvent],
+      AudioProcessing   => $$[:AudioProcessingEvent],
+      BeforeUnload      => $$[:BeforeUnloadEvent],
+      Composition       => $$[:CompositionEvent],
+      Clipboard         => $$[:ClipboardEvent],
+      DeviceLight       => $$[:DeviceLightEvent],
+      DeviceMotion      => $$[:DeviceMotionEvent],
+      DeviceOrientation => $$[:DeviceOrientationEvent],
+      DeviceProximity   => $$[:DeviceProximityEvent],
+      Drag              => $$[:DragEvent],
+      Gamepad           => $$[:GamepadEvent],
+      HashChange        => $$[:HashChangeEvent],
+      Progress          => $$[:ProgressEvent],
+      PageTransition    => $$[:PageTransitionEvent],
+      PopState          => $$[:PopStateEvent],
+      Storage           => $$[:StorageEvent],
+      Touch             => $$[:TouchEvent],
+      Sensor            => $$[:SensorEvent],
+      Mouse             => $$[:MouseEvent],
+      Keyboard          => $$[:KeyboardEvent],
+      Focus             => $$[:FocusEvent],
+      Wheel             => $$[:WheelEvent],
+      Custom            => $$[:CustomEvent]
+    }
+  end
+
+  def self.class_for(name)
+    type = case name_for(name)
+      when 'animationend', 'animationiteration', 'animationstart'
+        Animation
+
+      when 'audioprocess'
+        AudioProcessing
+
+      when 'beforeunload'
+        BeforeUnload
+
+      when 'compositionend', 'compositionstart', 'compositionupdate'
+        Composition
+
+      when 'copy', 'cut'
+        Clipboard
+
+      when 'devicelight'
+        DeviceLight
+
+      when 'devicemotion'
+        DeviceMotion
+
+      when 'deviceorientation'
+        DeviceOrientation
+
+      when 'deviceproximity'
+        DeviceProximity
+
+      when 'drag', 'dragend', 'dragleave', 'dragover', 'dragstart', 'drop'
+        Drag
+
+      when 'gamepadconnected', 'gamepaddisconnected'
+        Gamepad
+
+      when 'hashchange'
+        HashChange
+
+      when 'load', 'loadend', 'loadstart'
+        Progress
+
+      when 'pagehide', 'pageshow'
+        PageTransition
+
+      when 'popstate'
+        PopState
+
+      when 'storage'
+        Storage
+
+      when 'touchcancel', 'touchend', 'touchleave', 'touchmove', 'touchstart'
+        Touch
+
+      when 'compassneedscalibration', 'userproximity'
+        Sensor
+
+      when 'message'
+        Message
+
+      when 'close'
+        Close
+
+      when 'click', 'contextmenu', 'dblclick', 'mousedown', 'mouseenter',
+           'mouseleave', 'mousemove', 'mouseout', 'mouseover', 'mouseup',
+           'show'
+        Mouse
+
+      when 'keydown', 'keypress', 'keyup'
+        Keyboard
+
+      when 'blur', 'focus', 'focusin', 'focusout'
+        Focus
+
+      when 'wheel'
+        Wheel
+
+      when 'abort', 'afterprint', 'beforeprint', 'cached', 'canplay', 'canplaythrough',
+           'change', 'chargingchange', 'chargingtimechange', 'checking', 'close',
+           'dischargingtimechange', 'DOMContentLoaded', 'downloading', 'durationchange',
+           'emptied', 'ended', 'error', 'fullscreenchange', 'fullscreenerror', 'input',
+           'invalid', 'levelchange', 'loadeddata', 'loadedmetadata', 'noupdate', 'obsolete',
+           'offline', 'online', 'open', 'orientationchange', 'pause', 'pointerlockchange',
+           'pointerlockerror', 'play', 'playing', 'ratechange', 'readystatechange', 'reset',
+           'seeked', 'seeking', 'stalled', 'submit', 'success', 'suspend', 'timeupdate',
+           'updateready', 'visibilitychange', 'volumechange', 'waiting'
+        Event
+
+      else
+        Custom
+    end
+
+    if type != Event && type.supported?
+      type
+    else
+      Event
+    end
+  end
+
+  def self.create(name, *args, &block)
+    name  = name_for(name)
+    klass = class_for(name)
+
+    event = if klass == self
+      new(`new window.Event(#{name}, #{Definition.new(&block)})`)
+    else
+      klass.create(name, &block)
+    end
+
+    event.arguments = args
+
+    event
+  end
+
+  def self.new(value, *args)
+    klass, _ = classes.find {|_, constructor|
+      Native.is_a?(value, constructor)
+    }
+
+    if !klass || klass == self
+      super(value, *args)
+    else
+      klass.new(value, *args)
+    end
+  end
+
+  attr_reader :target, :callback
+
+  def initialize(native, callback = nil)
+    super(native)
+
+    @target    = Target.convert(`#@native.target`)
+    @callback, = callback # TODO: change this when super is fixed
+  end
+
+  def off
+    @callback.off if @callback
+  end
+
+  def arguments
+    `#@native.arguments || []`
+  end
+
+  def arguments=(args)
+    `#@native.arguments = #{args}`
+  end
+
+  alias_native :bubbles?, :bubbles
+  alias_native :cancelable?, :cancelable
+  alias_native :name, :type
+  alias_native :data
+  alias_native :phase, :eventPhase
+  alias_native :at, :timeStamp
+
+  def stopped?
+    `!!#@native.stopped`
+  end
+
+  def stop!
+    `#@native.stopPropagation()` if defined?(`#@native.stopPropagation`)
+    `#@native.preventDefault()` if defined?(`#@native.preventDefault`)
+    `#@native.stopped = true`
+  end
+end
+
+end; end

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

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

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

@@ -0,0 +1,31 @@
+module Browser; module DOM; class Event
+
+class AudioProcessing < Event
+  def self.supported?
+    not $$[:AudioProcessingEvent].nil?
+  end
+
+  class Definition < Definition
+    def time=(value)
+      `#@native.playbackTime = #{value}`
+    end
+
+    def input=(value)
+      `#@native.inputBuffer = #{value}`
+    end
+
+    def output=(value)
+      `#@native.outputBuffer = #{value}`
+    end
+  end
+
+  def self.create(name, &block)
+    new(`new AudioProcessingEvent(#{name}, #{Definition.new(&block)})`)
+  end
+
+  alias_native :time, :playbackTime
+  alias_native :input, :inputBuffer
+  alias_native :output, :outputBuffer
+end
+
+end; end; end