opal-browser 0.2.0.beta1 → 0.3.2

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

@@ -1,6 +1,8 @@
-module Browser; module DOM; class Event
+module Browser; class Event
 
 class DeviceMotion < Event
+  handles 'devicemotion'
+  
   def self.supported?
     Browser.supports? 'Event.DeviceMotion'
   end
@@ -48,4 +50,4 @@ class DeviceMotion < Event
   alias_native :interval
 end
 
-end; end; end
+end; end

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

@@ -1,6 +1,8 @@
-module Browser; module DOM; class Event
+module Browser; class Event
 
 class DeviceOrientation < Event
+  handles 'deviceorientation'
+
   def self.supported?
     Browser.supports? 'Event.DeviceOrientation'
   end
@@ -45,4 +47,4 @@ class DeviceOrientation < Event
   alias_native :gamma
 end
 
-end; end; end
+end; end

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

@@ -1,6 +1,8 @@
-module Browser; module DOM; class Event
+module Browser; class Event
 
 class DeviceProximity < Event
+  handles 'deviceproximity'
+
   def self.supported?
     Browser.supports? 'Event.DeviceProximity'
   end
@@ -30,4 +32,4 @@ class DeviceProximity < Event
   alias_native :max
 end
 
-end; end; end
+end; end

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

@@ -1,14 +1,16 @@
-module Browser; module DOM; class Event
+module Browser; class Event
 
-# TODO: handle transfers
 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
+      include Native::Wrapper
 
       def x=(value)
         `#@native.clientX = #{value}`
@@ -20,7 +22,7 @@ class Drag < Event
     end
 
     class Screen
-      include Native
+      include Native::Wrapper
 
       def x=(value)
         `#@native.screenX = #{value}`
@@ -60,7 +62,7 @@ class Drag < Event
     end
 
     def transfer=(value)
-      `#@native.dataTransfer = #{Native.convert(elem)}`
+      `#@native.dataTransfer = #{Native.convert(value)}`
     end
   end
 
@@ -110,10 +112,12 @@ class Drag < Event
     DOM(`#@native.relatedTarget`)
   end
 
+  # Returns a {DataTransfer} related to this event
+  #
   # @see https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer
   def transfer
-    raise NotImplementedError
+    DataTransfer.new(`#@native.dataTransfer`)
   end
 end
 
-end; end; end
+end; end

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

@@ -1,6 +1,8 @@
-module Browser; module DOM; class Event
+module Browser; class Event
 
 class Focus < UI
+  handles 'blur', 'focus', 'focusin', 'focusout'
+
   def self.supported?
     Browser.supports? 'Event.Focus'
   end
@@ -36,4 +38,4 @@ class Focus < UI
   end
 end
 
-end; end; end
+end; end

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

@@ -1,6 +1,8 @@
-module Browser; module DOM; class Event
+module Browser; class Event
 
 class Gamepad < Event
+  handles 'gamepadconnected', 'gamepaddisconnected'
+
   def self.supported?
     Browser.supports? 'Event.Gamepad'
   end
@@ -29,7 +31,7 @@ class Gamepad < Event
 
   if Browser.supports? 'Event.constructor'
     def self.construct(name, desc)
-      `new GamepadEvent(#{name}, {
+      `return new GamepadEvent(#{name}, {
         bubbles:    desc.bubbles,
         cancelable: desc.cancelable,
         gamepad:    desc })`
@@ -57,4 +59,4 @@ class Gamepad < Event
   end
 end
 
-end; end; end
+end; end

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

@@ -1,6 +1,8 @@
-module Browser; module DOM; class Event
+module Browser; class Event
 
 class HashChange < Event
+  handles 'hashchange'
+
   def self.supported?
     Browser.supports? 'Event.HashChange'
   end
@@ -25,4 +27,4 @@ class HashChange < Event
   alias_native :new, :newURL
 end
 
-end; end; end
+end; end

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

@@ -1,6 +1,8 @@
-module Browser; module DOM; class Event
+module Browser; class Event
 
 class Keyboard < UI
+  handles 'keydown', 'keypress', 'keyup'
+
   def self.supported?
     Browser.supports? 'Event.Keyboard'
   end
@@ -85,8 +87,19 @@ class Keyboard < UI
   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
-    `#@native.key || #@native.keyIdentifier || nil`
+    key = `#@native.key || #@native.keyIdentifier || nil`
+    IE_MAP[key] || key
   end
 
   def code
@@ -112,4 +125,4 @@ class Keyboard < UI
   end
 end
 
-end; end; end
+end; end

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

@@ -1,8 +1,10 @@
 require 'buffer'
 
-module Browser; module DOM; class Event
+module Browser; class Event
 
 class Message < Event
+  handles 'message'
+
   def self.supported?
     Browser.supports? 'Event.Message'
   end
@@ -67,4 +69,4 @@ class Message < Event
   end
 end
 
-end; end; end
+end; end

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

@@ -1,13 +1,17 @@
-module Browser; module DOM; class Event
+module Browser; class Event
 
 class Mouse < UI
+  handles 'click', 'contextmenu', 'dblclick', 'mousedown', 'mouseenter',
+          'mouseleave', 'mousemove', 'mouseout', 'mouseover', 'mouseup',
+          'show'
+
   def self.supported?
     not $$[:MouseEvent].nil?
   end
 
   class Definition < UI::Definition
     class Client
-      include Native
+      include Native::Wrapper
 
       def x=(value)
         `#@native.clientX = #{value}`
@@ -19,7 +23,7 @@ class Mouse < UI
     end
 
     class Layer
-      include Native
+      include Native::Wrapper
 
       def x=(value)
         `#@native.layerX = #{value}`
@@ -31,7 +35,7 @@ class Mouse < UI
     end
 
     class Offset
-      include Native
+      include Native::Wrapper
 
       def x=(value)
         `#@native.offsetX = #{value}`
@@ -43,7 +47,7 @@ class Mouse < UI
     end
 
     class Page
-      include Native
+      include Native::Wrapper
 
       def x=(value)
         `#@native.pageX = #{value}`
@@ -55,7 +59,7 @@ class Mouse < UI
     end
 
     class Screen
-      include Native
+      include Native::Wrapper
 
       def x=(value)
         `#@native.screenX = #{value}`
@@ -67,7 +71,7 @@ class Mouse < UI
     end
 
     class Ancestor
-      include Native
+      include Native::Wrapper
 
       def x=(value)
         `#@native.x = #{value}`
@@ -251,4 +255,4 @@ class Mouse < UI
   end
 end
 
-end; end; end
+end; end

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

@@ -1,6 +1,8 @@
-module Browser; module DOM; class Event
+module Browser; class Event
 
 class PageTransition < Event
+  handles 'pagehide', 'pageshow'
+
   def self.supported?
     Browser.supports? 'Event.PageTransition'
   end
@@ -20,4 +22,4 @@ class PageTransition < Event
   alias_native :persisted?, :persisted
 end
 
-end; end; end
+end; end

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

@@ -1,6 +1,8 @@
-module Browser; module DOM; class Event
+module Browser; class Event
 
 class PopState < Event
+  handles 'popstate'
+
   def self.supported?
     Browser.supports? 'Event.PopState'
   end
@@ -30,4 +32,4 @@ class PopState < Event
   alias_native :state
 end
 
-end; end; end
+end; end

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

@@ -1,6 +1,8 @@
-module Browser; module DOM; class Event
+module Browser; class Event
 
 class Progress < Event
+  handles 'progress', 'load', 'loadend', 'loadstart'
+
   def self.supported?
     Browser.supports? 'Event.Progress'
   end
@@ -40,4 +42,4 @@ class Progress < Event
   alias_native :total
 end
 
-end; end; end
+end; end

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

@@ -1,6 +1,8 @@
-module Browser; module DOM; class Event
+module Browser; class Event
 
 class Sensor < Event
+  handles 'compassneedscalibration', 'userproximity'
+
   def self.supported?
     Browser.supports? 'Event.Sensor'
   end
@@ -12,4 +14,4 @@ class Sensor < Event
   end if supported?
 end
 
-end; end; end
+end; end

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

@@ -1,6 +1,8 @@
-module Browser; module DOM; class Event
+module Browser; class Event
 
 class Storage < Event
+  handles 'storage'
+
   def self.supported?
     Browser.supports? 'Event.Storage'
   end
@@ -40,4 +42,4 @@ class Storage < Event
   alias_native :url
 end
 
-end; end; end
+end; end

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

@@ -1,6 +1,8 @@
-module Browser; module DOM; class Event
+module Browser; class Event
 
 class Touch < Event
+  handles 'touchcancel', 'touchend', 'touchleave', 'touchmove', 'touchstart'
+
   def self.supported?
     Browser.supports? 'Event.Touch'
   end
@@ -57,4 +59,4 @@ class Touch < Event
   end
 end
 
-end; end; end
+end; end

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

@@ -1,4 +1,4 @@
-module Browser; module DOM; class Event
+module Browser; class Event
 
 class UI < Event
   def self.supported?
@@ -35,4 +35,4 @@ class UI < Event
   alias_native :view
 end
 
-end; end; end
+end; end

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

@@ -1,6 +1,8 @@
-module Browser; module DOM; class Event
+module Browser; class Event
 
 class Wheel < UI
+  handles 'wheel', 'mousewheel'
+
   def self.supported?
     not $$[:WheelEvent].nil?
   end
@@ -46,4 +48,4 @@ class Wheel < UI
   end
 end
 
-end; end; end
+end; end

data/opal/browser/event.rb

@@ -0,0 +1,163 @@
+require 'browser/event/base'
+
+module Browser
+
+class Event
+  def self.aliases
+    @aliases ||= {
+      'dom:load' => 'DOMContentLoaded',
+      'hover'    => 'mouse:over'
+    }
+  end
+
+  def self.name_for(name)
+    (aliases[name] || name).gsub(?:, '')
+  end
+
+  def self.handlers
+    @handlers ||= {}
+  end
+
+  def self.handles(*events)
+    events.each { |event| Event.handlers[event] = self }
+  end
+
+  # Those events don't have interesting properties to warrant a custom class
+  # or are not currently implemented.
+  handles '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'
+
+  def self.class_for(name)
+    @handlers[name_for(name)] || Custom
+  end
+
+  def self.supported?
+    true
+  end
+
+  def self.create(name, *args, &block)
+    name  = name_for(name)
+    klass = class_for(name)
+
+    event = klass.new(klass.construct(name, klass.const_get(:Definition).new(&block)))
+    event.arguments = args
+
+    event
+  end
+
+  if Browser.supports? 'Event.constructor'
+    def self.construct(name, desc)
+      `new Event(#{name}, #{desc})`
+    end
+  elsif Browser.supports? 'Event.create'
+    def self.construct(name, desc)
+      %x{
+        var event = document.createEvent("HTMLEvents");
+            event.initEvent(name, desc.bubbles, desc.cancelable);
+
+        #{return Native(`event`).merge!(desc)};
+      }
+    end
+  elsif Browser.supports? 'Event.createObject'
+    def self.construct(name, desc)
+      Native(`document.createEventObject()`) \
+        .merge!(desc) \
+        .merge!(`{ type: name }`) \
+        .to_n
+    end
+  else
+    def self.construct(name, desc)
+      Native(desc).merge!(`{ type: name }`).to_n
+    end
+  end
+
+  def self.new(value, callback = nil)
+    return super unless self == Event
+
+    klass = class_for(callback ? callback.name : `value.type`)
+
+    if klass == Event
+      super
+    else
+      klass.new(value, callback)
+    end
+  end
+
+  attr_reader :callback
+  attr_writer :on
+
+  def initialize(event, callback = nil)
+    super(event)
+
+    @callback = callback
+  end
+
+  def name
+    `#@native.type`
+  end
+
+  def on
+    @on || Target.convert(`#@native.currentTarget`)
+  end
+
+  def target
+    Target.convert(`#@native.srcElement || #@native.target`)
+  end
+
+  def arguments
+    `#@native.arguments || []`
+  end
+
+  def arguments=(args)
+    `#@native.arguments = #{args}`
+  end
+
+  alias_native :bubbles?, :bubbles
+  alias_native :cancelable?, :cancelable
+  alias_native :data
+  alias_native :phase, :eventPhase
+  alias_native :at, :timeStamp
+
+  def off
+    @callback.off if @callback
+  end
+
+  def stopped?
+    `!!#@native.stopped`
+  end
+
+  def stop
+    `#@native.stopPropagation()` if defined?(`#@native.stopPropagation`)
+    `#@native.stopped = true`
+  end
+
+  def prevent
+    `#@native.preventDefault()` if defined?(`#@native.preventDefault`)
+    `#@native.prevented = true`
+  end
+
+  def prevented?
+    `!!#@native.prevented`
+  end
+
+  def stop!
+    prevent
+    stop
+  end
+end
+
+end
+
+require 'browser/event/ui'
+require 'browser/event/mouse'
+require 'browser/event/keyboard'
+require 'browser/event/custom'

data/opal/browser/event_source.rb

@@ -9,8 +9,8 @@ class EventSource
     Browser.supports? :EventSource
   end
 
-  include Native
-  include DOM::Event::Target
+  include Native::Wrapper
+  include Event::Target
 
   target {|value|
     EventSource.new(value) if Native.is_a?(value, `window.EventSource`)