opal-browser 0.1.0.beta1 → 0.3.1

data/opal/browser/compatibility/dom/document/window.rb

@@ -1,15 +0,0 @@
-module Browser; module DOM; class Document < Element
-
-unless C.has? `document`, :defaultView
-  if C.has? `document`, :parentWindow
-    def window
-      `#@native.parentWindow`
-    end
-  else
-    def window
-      raise NotImplementedError, 'window from document is unsupported'
-    end
-  end
-end
-
-end; end; end

data/opal/browser/compatibility/dom/element/css.rb

@@ -1,15 +0,0 @@
-module Browser; module DOM; class Element
-
-unless C.respond_to?(:Element, :querySelectorAll)
-  if C.sizzle?
-    def css(path)
-      NodeSet.new(document, `Sizzle(#{path}, #@native)`)
-    end
-  else
-    def css(*)
-      raise NotImplementedError, 'fetching by selector unsupported'
-    end
-  end
-end
-
-end; end; end

data/opal/browser/compatibility/dom/element/matches.rb

@@ -1,31 +0,0 @@
-module Browser; module DOM; class Element
-
-unless C.respond_to?(:Element, :matches)
-  if C.respond_to?(:Element, :oMatchesSelector)
-    def matches?(selector)
-      `#@native.oMatchesSelector(#{selector})`
-    end
-  elsif C.respond_to?(:Element, :msMatchesSelector)
-    def matches?(selector)
-      `#@native.msMatchesSelector(#{selector})`
-    end
-  elsif C.respond_to?(:Element, :mozMatchesSelector)
-    def matches?(selector)
-      `#@native.mozMatchesSelector(#{selector})`
-    end
-  elsif C.respond_to?(:Element, :webkitMatchesSelector)
-    def matches?(selector)
-      `#@native.webkitMatchesSelector(#{selector})`
-    end
-  elsif C.sizzle?
-    def matches?(selector)
-      `Sizzle.matchesSelector(#@native, #{selector})`
-    end
-  else
-    def matches?(*)
-      raise NotImplementedError, 'matches by selector unsupported'
-    end
-  end
-end
-
-end; end; end

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

@@ -1,20 +0,0 @@
-module Browser; module DOM; class Element
-
-class Offset
-  unless C.has? `document.body`, :getBoundingClientRect
-    def position
-      doc  = document
-      root = doc.root.to_n
-      win  = doc.window.to_n
-
-      %x{
-        var y = (#{win}.pageYOffset || #{root}.scrollTop) - (#{root}.clientTop || 0),
-            x = (#{win}.pageXOffset || #{root}.scrollLeft) - (#{root}.clientLeft || 0);
-      }
-
-      Browser::Position.new(`x`, `y`)
-    end
-  end
-end
-
-end; end; end

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

@@ -1,25 +0,0 @@
-module Browser; module DOM; class Element
-
-unless C.has? `document.body`, :scrollLeft
-  if C.has? `document.body`, :pageXOffset
-    def scroll(to = nil)
-      if to
-        if x = to[:x]
-          `#@native.pageXOffset = #{x}`
-        end
-
-        if y = to[:y]
-          `#@native.pageYOffset = #{y}`
-        end
-      else
-        Position.new(`#@native.pageXOffset`, `#@native.pageYOffset`)
-      end
-    end
-  else
-    def scroll(*)
-      raise NotImplementedError, 'scroll on element not supported'
-    end
-  end
-end
-
-end; end; end

data/opal/browser/compatibility/dom/element/style.rb

@@ -1,15 +0,0 @@
-module Browser; module DOM; class Element
-
-unless C.has? :getComputedStyle
-  if C.has?(`document.documentElement`, :currentStyle)
-    def style!
-      CSS::Declaration.new(`#@native.currentStyle`)
-    end
-  else
-    def style!
-      raise NotImplementedError, 'computed style unsupported'
-    end
-  end
-end
-
-end; end; end

data/opal/browser/compatibility/dom/mutation_observer.rb

@@ -1,47 +0,0 @@
-module Browser; module DOM
-
-unless defined?(`window.MutationObserver`)
-  class MutationObserver
-    class Record
-      attr_reader :type, :target, :old, :attribute
-
-      def initialize(*)
-
-      end
-
-      def attributes?; type == :attributes; end
-      def tree?;       type == :tree;       end
-      def cdata?;      type == :cdata;      end
-    end
-
-    def initialize(&block)
-      @block    = block
-      @observed = []
-    end
-
-    def observe(target, options = nil)
-      unless options
-        options = {
-          children:   true,
-          tree:       true,
-          attributes: :old,
-          cdata:      :old
-        }
-      end
-
-      self
-    end
-
-    def take
-      result, @records = @records, []
-
-      result
-    end
-
-    def disconnect
-
-    end
-  end
-end
-
-end; end

data/opal/browser/compatibility/http/request.rb

@@ -1,15 +0,0 @@
-module Browser; module HTTP; class Request
-
-unless C.has? :XMLHttpRequest
-  if C.has? :ActiveXObject
-    def transport
-      `new ActiveXObject("MSXML2.XMLHTTP.3.0")`
-    end
-  else
-    def transport
-      raise NotImplementedError, 'XMLHttpRequest is unsupported'
-    end
-  end
-end
-
-end; end; end

data/opal/browser/compatibility/immediate.rb

@@ -1,107 +0,0 @@
-module Browser
-
-module Compatibility
-  def self.immediate?(prefix = nil)
-    if prefix
-      has?("#{prefix}SetImmediate")
-    else
-      has?(:setImmediate)
-    end
-  end
-
-  def self.post_message?
-    return false unless has?(:postMessage) && !has?(:importScripts)
-
-    %x{
-      var ok  = true,
-          old = window.onmessage;
-
-      window.onmessage = function() { ok = false; };
-      window.postMessage("", "*")
-      window.onmessage = old;
-
-      return ok;
-    }
-  end
-
-  def self.ready_state_change?
-    `"onreadystatechange" in window.document.createElement("script")`
-  end
-end
-
-class Immediate
-  if C.immediate?
-    def dispatch
-      @id = `window.setImmediate(function() {
-        #{@function.call(@arguments, &@block)};
-      })`
-    end
-
-    def prevent
-      `window.clearImmediate(#@id)`
-    end
-  elsif C.immediate? :ms
-    def dispatch
-      @id = `window.msSetImmediate(function() {
-        #{@function.call(@arguments, &@block)};
-      })`
-    end
-
-    def prevent
-      `window.msClearImmediate(#@id)`
-    end
-  elsif C.post_message?
-    @@tasks  = {}
-    @@prefix = "opal.browser.immediate.#{rand(1_000_000)}."
-
-    $window.on :message do |e|
-      if String === e.data && e.data.start_with?(@@prefix)
-        if task = @@tasks.delete(e.data[@@prefix.length .. -1])
-          task[0].call(*task[1], &task[2])
-        end
-      end
-    end
-
-    def dispatch
-      @id          = rand(1_000_000).to_s
-      @@tasks[@id] = [@function, @arguments, @block]
-
-      $window.send! "#{@@prefix}#{@id}"
-    end
-
-    def prevent
-      @@tasks.delete(@id)
-    end
-  elsif C.ready_state_change?
-    def dispatch
-      %x{
-        var script = document.createElement("script");
-
-        script.onreadystatechange = function() {
-          if (!#{aborted?}) {
-            #{@function.call(@arguments, &@block)};
-          }
-
-          script.onreadystatechange = null;
-          script.parentNode.removeChild(script);
-        };
-
-        document.documentElement.appendChild(script);
-      }
-    end
-
-    def prevent; end
-  else
-    def dispatch
-      @id = `window.setTimeout(function() {
-        #{@function.call(*@arguments, &@block)};
-      }, 0)`
-    end
-
-    def prevent
-      `window.clearTimeout(#@id)`
-    end
-  end
-end
-
-end

data/opal/browser/compatibility/window/scroll.rb

@@ -1,27 +0,0 @@
-module Browser; class Window; class Scroll
-
-unless C.has? `document.documentElement`, :scrollLeft
-  if C.has? :pageXOffset
-    def position
-      Position.new(x, y)
-    end
-
-    def x
-      `#@native.pageXOffset`
-    end
-
-    def y
-      `#@native.pageYOffset`
-    end
-  else
-    def x
-      raise NotImplementedError, 'window scroll unsupported'
-    end
-
-    def y
-      raise NotImplementedError, 'window scroll unsupported'
-    end
-  end
-end
-
-end; end; end

data/opal/browser/compatibility/window/size.rb

@@ -1,13 +0,0 @@
-module Browser; class Window; class Size
-
-unless C.has? :outerHeight
-  def width
-    raise NotImplementedError, 'window outer size not supported'
-  end
-
-  def height
-    raise NotImplementedError, 'window outer size not supported'
-  end
-end
-
-end; end; end

data/opal/browser/compatibility/window/view.rb

@@ -1,13 +0,0 @@
-module Browser; class Window; class View
-
-unless C.has? :innerHeight
-  def width
-    `#@native.document.documentElement.clientWidth`
-  end
-
-  def height
-    `#@native.document.documentElement.clientHeight`
-  end
-end
-
-end; end; end

data/opal/browser/compatibility.rb

@@ -1,59 +0,0 @@
-BROWSER_ENGINE = `/MSIE|WebKit|Presto|Gecko/.exec(navigator.userAgent)[0]`.downcase rescue :unknown
-
-module Browser
-
-module Compatibility
-  def self.sizzle?
-    defined?(`window.Sizzle`)
-  end
-
-  # FIXME: v
-  # def self.respond_to?(parent = `window`, object, method)
-  # ^
-  def self.respond_to?(*args)
-    if args.length == 2
-      parent         = `window`
-      object, method = args
-    else
-      parent, object, method = args
-    end
-
-    %x{
-      if (!#{parent}) {
-        return false;
-      }
-
-      var klass = #{parent}[#{object}];
-
-      if (!klass) {
-        return false;
-      }
-
-      return typeof(klass.prototype[#{method}]) === "function";
-    }
-  end
-
-  # FIXME: v
-  # def self.has?(parent = `window`, name)
-  # ^
-  def self.has?(*args)
-    if args.length == 1
-      parent = `window`
-      name,  = args
-    else
-      parent, name = args
-    end
-
-    %x{
-      if (!#{parent}) {
-        return false;
-      }
-
-      return #{parent}[#{name}] != null;
-    }
-  end
-end
-
-C = Compatibility
-
-end

data/opal/browser/dom/compatibility.rb

@@ -1,8 +0,0 @@
-require 'browser/compatibility/dom/document/window'
-
-require 'browser/compatibility/dom/mutation_observer'
-
-require 'browser/compatibility/dom/element/matches'
-require 'browser/compatibility/dom/element/css'
-require 'browser/compatibility/dom/element/offset'
-require 'browser/compatibility/dom/element/style'

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

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

@@ -1,207 +0,0 @@
-module Browser; module DOM
-
-class Event
-  include Native
-
-  class Definition
-    include Native
-
-    def self.new(&block)
-      data = super(`{}`)
-      block.call(data) if block
-
-      data.to_n
-    end
-
-    def bubbles!
-      `#@native.bubbles = true`
-    end
-
-    def cancelable!
-      `#@native.cancelable = true`
-    end
-  end
-
-  module Target
-    def self.converters
-      @converters ||= []
-    end
-
-    def self.register(&block)
-      converters << block
-    end
-
-    def self.convert(value)
-      return value unless native?(value)
-
-      converters.each {|block|
-        if result = block.call(value)
-          return result
-        end
-      }
-
-      nil
-    end
-
-    def self.included(klass)
-      klass.instance_eval {
-        def self.target(&block)
-          DOM::Event::Target.register(&block)
-        end
-      }
-    end
-
-    class Callback
-      attr_reader :target, :name, :selector
-
-      def initialize(target, name, selector = nil, &block)
-        %x{
-          callback = #{self};
-          func     = function(event) {
-            event = #{::Browser::DOM::Event.new(`event`, `callback`)};
-
-            if (!#{`event`.stopped?}) {
-              #{block.call(`event`, *`event`.arguments)};
-            }
-
-            return !#{`event`.stopped?};
-          }
-        }
-
-        @function = `func`
-        @target   = target
-        @name     = name
-        @selector = selector
-      end
-
-      def off
-        target.off(self)
-      end
-
-      def to_n
-        @function
-      end
-    end
-
-    def on(name, selector = nil, &block)
-      raise ArgumentError, 'no block has been passed' unless block
-
-      name     = Event.name_for(name)
-      callback = Callback.new(self, name, selector, &block)
-
-      callbacks.push(callback)
-
-      if selector
-        observe
-        deferred << [name, selector, block]
-
-        css(selector).on(name, &block)
-      else
-        `#@native.addEventListener(#{name}, #{callback.to_n})`
-      end
-
-      callback
-    end
-
-    def off(what = nil)
-      case what
-      when Callback
-        callbacks.delete(what)
-
-        `#@native.removeEventListener(#{what.name}, #{what.to_n}, false)`
-
-      when String
-        if what.include?(?*) or what.include?(??)
-          off(Regexp.new(what.gsub(/\*/, '.*?').gsub(/\?/, ?.)))
-        else
-          what = Event.name_for(what)
-
-          callbacks.delete_if {|callback|
-            if callback.name == what
-              `#@native.removeEventListener(#{callback.name}, #{callback.to_n}, false)`
-
-              true
-            end
-          }
-        end
-
-      when Regexp
-        callbacks.delete_if {|callback|
-          if callback.name =~ what
-            `#@native.removeEventListener(#{callback.name}, #{callback.to_n}, false)`
-
-            true
-          end
-        }
-
-      else
-        callbacks.each {|callback|
-          `#@native.removeEventListener(#{callback.name}, #{callback.to_n}, false)`
-        }
-
-        callbacks.clear
-      end
-    end
-
-    def trigger(event, *args, &block)
-      if event.is_a? String
-        event = Event.create(event, *args, &block)
-      end
-
-      `#@native.dispatchEvent(#{event.to_n})`
-    end
-
-  private
-    def callbacks
-      %x{
-        if (!#@native.$callbacks) {
-          #@native.$callbacks = [];
-        }
-
-        return #@native.$callbacks;
-      }
-    end
-
-    def observe
-      %x{
-        if (!#@native.$observer) {
-          #@native.$observer = #{MutationObserver.new {|mutations|
-            mutations.each {|mutation|
-              mutation.added.each {|node|
-                next unless Element === node
-
-                defer(node)
-              }
-            }
-          }};
-
-          #{`#@native.$observer`.observe(@native, children: true, tree: true)}
-        }
-      }
-    end
-
-    def deferred
-      %x{
-        if (!#@native.$deferred) {
-          #@native.$deferred = [];
-        }
-
-        return #@native.$deferred;
-      }
-    end
-
-    def defer(node)
-      deferred.each {|name, selector, block|
-        if node.matches?(selector)
-          node.on(name, &block)
-        end
-
-        node.elements.each {|el|
-          defer(el)
-        }
-      }
-    end
-  end
-end
-
-end; end

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

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

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

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