opal-browser 0.1.0.beta1 → 0.3.1

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}`
@@ -139,31 +143,32 @@ class Mouse < UI
     end
   end
 
-  def self.create(name, &block)
-    new(`new MouseEvent(#{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
+  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?
 
-  def button
-    `#@native.button`
-  end
+  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`)
@@ -250,4 +255,4 @@ class Mouse < UI
   end
 end
 
-end; end; end
+end; end

data/opal/browser/event/page_transition.rb

@@ -0,0 +1,25 @@
+module Browser; class Event
+
+class PageTransition < Event
+  handles 'pagehide', 'pageshow'
+
+  def self.supported?
+    Browser.supports? 'Event.PageTransition'
+  end
+
+  class Definition < Definition
+    def persisted=(value)
+      `#@native.persisted = #{value}`
+    end
+  end
+
+  if Browser.supports? 'Event.PageTransition'
+    def self.construct(name, desc)
+      `new PageTransitionEvent(name, desc)`
+    end
+  end if supported?
+
+  alias_native :persisted?, :persisted
+end
+
+end; end

data/opal/browser/event/pop_state.rb

@@ -0,0 +1,35 @@
+module Browser; class Event
+
+class PopState < Event
+  handles 'popstate'
+
+  def self.supported?
+    Browser.supports? 'Event.PopState'
+  end
+
+  class Definition < Definition
+    def state=(value)
+      `#@native.state = #{value}`
+    end
+  end
+
+  if Browser.supports? 'Event.constructor'
+    def self.construct(name, desc)
+      `new PopStateEvent(#{name}, #{desc})`
+    end
+  elsif Browser.supports? 'Event.create'
+    def self.construct(name, desc)
+      %x{
+        var event = document.createEvent('PopStateEvent');
+            event.initPopStateEvent(name, desc.bubbles, desc.cancelable,
+              desc.state);
+
+        return event;
+      }
+    end
+  end if supported?
+
+  alias_native :state
+end
+
+end; end

data/opal/browser/event/progress.rb

@@ -0,0 +1,45 @@
+module Browser; class Event
+
+class Progress < Event
+  handles 'progress', 'load', 'loadend', 'loadstart'
+
+  def self.supported?
+    Browser.supports? 'Event.Progress'
+  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
+
+  if Browser.supports? 'Event.constructor'
+    def self.construct(name, desc)
+      `new ProgressEvent(#{name}, #{desc})`
+    end
+  elsif Browser.supports? 'Event.create'
+    def self.construct(name, desc)
+      %x{
+        var event = document.createEvent("ProgressEvent");
+            event.initProgressEvent(name, desc.bubbles, desc.cancelable,
+              desc.computable, desc.loaded, desc.total);
+
+        return event;
+      }
+    end
+  end if supported?
+
+  alias_native :computable?, :computableLength
+  alias_native :loaded
+  alias_native :total
+end
+
+end; end

data/opal/browser/event/sensor.rb

@@ -0,0 +1,17 @@
+module Browser; class Event
+
+class Sensor < Event
+  handles 'compassneedscalibration', 'userproximity'
+
+  def self.supported?
+    Browser.supports? 'Event.Sensor'
+  end
+
+  if Browser.supports? 'Event.constructor'
+    def self.construct(name, desc)
+      `new SensorEvent(#{name}, #{desc})`
+    end
+  end if supported?
+end
+
+end; end

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

@@ -1,8 +1,10 @@
-module Browser; module DOM; class Event
+module Browser; class Event
 
 class Storage < Event
+  handles 'storage'
+
   def self.supported?
-    not $$[:StorageEvent].nil?
+    Browser.supports? 'Event.Storage'
   end
 
   class Definition < Definition
@@ -27,9 +29,11 @@ class Storage < Event
     end
   end
 
-  def self.create(name, &block)
-    new(`new StorageEvent(#{name}, #{Definition.new(&block)})`)
-  end
+  if Browser.supports? 'Event.constructor'
+    def self.construct(name, desc)
+      `new StorageEvent(#{name}, #{desc})`
+    end
+  end if supported?
 
   alias_native :key
   alias_native :new, :newValue
@@ -38,4 +42,4 @@ class Storage < Event
   alias_native :url
 end
 
-end; end; end
+end; end

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

@@ -1,8 +1,10 @@
-module Browser; module DOM; class Event
+module Browser; class Event
 
 class Touch < Event
+  handles 'touchcancel', 'touchend', 'touchleave', 'touchmove', 'touchstart'
+
   def self.supported?
-    not $$[:TouchEvent].nil?
+    Browser.supports? 'Event.Touch'
   end
 
   class Definition < Definition
@@ -23,25 +25,16 @@ class Touch < Event
     end
   end
 
-  def self.create(name, &block)
-    new(`new TouchEvent(#{name}, #{Definition.new(&block)})`)
-  end
-
-  def alt?
-    `#@native.altKey`
-  end
-
-  def ctrl?
-    `#@native.ctrlKey`
-  end
-
-  def meta?
-    `#@native.metaKey`
-  end
+  if Browser.supports? 'Event.constructor'
+    def self.construct(name, desc)
+      `new TouchEvent(#{name}, #{desc})`
+    end
+  end if supported?
 
-  def shift?
-    `#@native.shiftKey`
-  end
+  alias_native :alt?, :altKey
+  alias_native :ctrl?, :ctrlKey
+  alias_native :meta?, :metaKey
+  alias_native :shift?, :shiftKey
 
   # TODO: implement touches and targetTouches
 
@@ -66,4 +59,4 @@ class Touch < Event
   end
 end
 
-end; end; end
+end; end

data/opal/browser/event/ui.rb

@@ -0,0 +1,38 @@
+module Browser; class Event
+
+class UI < Event
+  def self.supported?
+    Browser.supports? 'Event.UI'
+  end
+
+  class Definition < Definition
+    def detail=(value)
+      `#@native.detail = #{value}`
+    end
+
+    def view=(value)
+      `#@native.view = #{value}`
+    end
+  end
+
+  if Browser.supports? 'Event.constructor'
+    def self.construct(name, desc)
+      `new UIEvent(#{name}, #{desc})`
+    end
+  elsif Browser.supports? 'Event.create'
+    def self.construct(name, desc)
+      %x{
+        var event = document.createEvent("UIEvent");
+            event.initUIEvent(name, desc.bubbles, desc.cancelable,
+              desc.view || window, desc.detail || 0);
+
+        return event;
+      }
+    end
+  end if supported?
+
+  alias_native :detail
+  alias_native :view
+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
@@ -29,8 +31,8 @@ class Wheel < UI
     end
   end
 
-  def self.create(name, &block)
-    new(`new WheelEvent(#{name}, #{Definition.new(&block)})`)
+  def self.construct(name, desc)
+    `new WheelEvent(#{name}, #{desc})`
   end
 
   alias_native :x, :deltaX
@@ -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

@@ -1,13 +1,16 @@
 module Browser
 
-# This class wraps `EventSource`.
+# An {EventSource} allows you to receive events from a server in real-time,
+# similar to long-polling but not exactly.
+#
+# @see https://developer.mozilla.org/en-US/docs/Web/API/EventSource
 class EventSource
   def self.supported?
-    defined? `window.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`)