opal-browser 0.1.0.beta1 → 0.2.0.beta1

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

@@ -2,7 +2,7 @@ module Browser; module DOM; class Event
 
 class HashChange < Event
   def self.supported?
-    not $$[:HashChangeEvent].nil?
+    Browser.supports? 'Event.HashChange'
   end
 
   class Definition < Definition
@@ -15,9 +15,11 @@ class HashChange < Event
     end
   end
 
-  def self.create(name, &block)
-    new(`new HashChangeEvent(#{name}, #{Definition.new(&block)})`)
-  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

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

@@ -2,7 +2,7 @@ module Browser; module DOM; class Event
 
 class Keyboard < UI
   def self.supported?
-    not $$[:KeyboardEvent].nil?
+    Browser.supports? 'Event.Keyboard'
   end
 
   class Definition < UI::Definition
@@ -37,31 +37,53 @@ class Keyboard < UI
     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`
+    def locale=(value)
+      `#@native.locale = value`
+    end
   end
 
-  def repeat?
-    `#@native.repeat`
-  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`

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

@@ -4,25 +4,45 @@ module Browser; module DOM; class Event
 
 class Message < Event
   def self.supported?
-    not $$[:MessageEvent].nil?
+    Browser.supports? 'Event.Message'
   end
 
   class Definition < Definition
     def data=(value)
-      `#@native.data = #{value.to_n}`
+      `#@native.data = value`
+    end
+
+    def origin=(value)
+      `#@native.origin = value`
     end
-  end
 
-  def self.create(name, &block)
-    new(`new MessageEvent(#{name}, #{Definition.new(&block)})`)
+    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 (#@native.data instanceof ArrayBuffer) {
+      if (window.ArrayBuffer && #@native.data instanceof ArrayBuffer) {
         return #{Buffer.new(`#@native.data`)};
       }
-      else if (#@native.data instanceof Blob) {
+      else if (window.Blob && #@native.data instanceof Blob) {
         return #{Blob.new(`#@native.data`)};
       }
       else {
@@ -37,7 +57,7 @@ class Message < Event
     %x{
       var source = #@native.source;
 
-      if (source instanceof window.Window) {
+      if (window.Window && source instanceof window.Window) {
         return #{Window.new(`source`)};
       }
       else {

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

@@ -139,31 +139,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
-
-  def button
-    `#@native.button`
-  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`)

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

@@ -2,7 +2,7 @@ module Browser; module DOM; class Event
 
 class PageTransition < Event
   def self.supported?
-    not $$[:PageTransitionEvent].nil?
+    Browser.supports? 'Event.PageTransition'
   end
 
   class Definition < Definition
@@ -11,9 +11,11 @@ class PageTransition < Event
     end
   end
 
-  def self.create(name, &block)
-    new(`new PageTransitionEvent(#{name}, #{Definition.new(&block)})`)
-  end
+  if Browser.supports? 'Event.PageTransition'
+    def self.construct(name, desc)
+      `new PageTransitionEvent(name, desc)`
+    end
+  end if supported?
 
   alias_native :persisted?, :persisted
 end

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

@@ -2,7 +2,7 @@ module Browser; module DOM; class Event
 
 class PopState < Event
   def self.supported?
-    not $$[:PopStateEvent].nil?
+    Browser.supports? 'Event.PopState'
   end
 
   class Definition < Definition
@@ -11,9 +11,21 @@ class PopState < Event
     end
   end
 
-  def self.create(name, &block)
-    new(`new PopStateEvent(#{name}, #{Definition.new(&block)})`)
-  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

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

@@ -2,7 +2,7 @@ module Browser; module DOM; class Event
 
 class Progress < Event
   def self.supported?
-    not $$[:ProgressEvent].nil?
+    Browser.supports? 'Event.Progress'
   end
 
   class Definition < Definition
@@ -19,9 +19,21 @@ class Progress < Event
     end
   end
 
-  def self.create(name, &block)
-    new(`new ProgressEvent(#{name}, #{Definition.new(&block)})`)
-  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

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

@@ -2,12 +2,14 @@ module Browser; module DOM; class Event
 
 class Sensor < Event
   def self.supported?
-    not $$[:SensorEvent].nil?
+    Browser.supports? 'Event.Sensor'
   end
 
-  def self.create(name, &block)
-    new(`new SensorEvent(#{name}, #{Definition.new(&block)})`)
-  end
+  if Browser.supports? 'Event.constructor'
+    def self.construct(name, desc)
+      `new SensorEvent(#{name}, #{desc})`
+    end
+  end if supported?
 end
 
 end; end; end

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

@@ -2,7 +2,7 @@ module Browser; module DOM; class Event
 
 class Storage < Event
   def self.supported?
-    not $$[:StorageEvent].nil?
+    Browser.supports? 'Event.Storage'
   end
 
   class Definition < Definition
@@ -27,9 +27,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

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

@@ -2,7 +2,7 @@ module Browser; module DOM; class Event
 
 class Touch < Event
   def self.supported?
-    not $$[:TouchEvent].nil?
+    Browser.supports? 'Event.Touch'
   end
 
   class Definition < Definition
@@ -23,25 +23,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
 

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

@@ -1,6 +1,10 @@
 module Browser; module DOM; class Event
 
 class UI < Event
+  def self.supported?
+    Browser.supports? 'Event.UI'
+  end
+
   class Definition < Definition
     def detail=(value)
       `#@native.detail = #{value}`
@@ -11,9 +15,21 @@ class UI < Event
     end
   end
 
-  def self.create(name, &block)
-    new(`new UIEvent(#{name}, #{Definition.new(&block)})`)
-  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

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

@@ -29,8 +29,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