opal-browser 0.1.0.beta1

data/opal/browser/canvas/data.rb

@@ -0,0 +1,73 @@
+#--
+#            DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE
+#                    Version 2, December 2004
+#
+#            DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE
+#   TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
+#
+#  0. You just DO WHAT THE FUCK YOU WANT TO.
+#++
+
+module Browser; class Canvas
+
+class Data
+  def self.create(canvas, width, height)
+    data = allocate
+
+    data.instance_eval {
+      @canvas = canvas.to_a
+      @x      = 0
+      @y      = 0
+      @width  = width
+      @height = height
+
+      @native = `#{canvas.to_n}.createImageData(width, height)`
+    }
+
+    data
+  end
+
+  include Native
+
+  attr_reader :x, :y, :width, :height
+
+  def initialize(canvas, x, y, width, height)
+    @canvas = canvas.to_n
+    @x      = x
+    @y      = y
+    @width  = width
+    @height = height
+
+    super(`#@canvas.getImageData(x, y, width, height)`)
+  end
+
+  def length
+    `#@native.length`
+  end
+
+  def [](index)
+    `#@native.data[index]`
+  end
+
+  def []=(index, value)
+    `#@native.data[index] = value`
+  end
+
+  def save(x = nil, y = nil)
+    x ||= 0
+    y ||= 0
+
+    `#@canvas.putImageData(#@native, x, y)`
+  end
+
+  def save_to(canvas, x = nil, y = nil)
+    x ||= 0
+    y ||= 0
+
+    `#{canvas.to_n}.putImageData(#@native, x, y)`
+  end
+
+  alias size length
+end
+
+end; end

data/opal/browser/canvas/gradient.rb

@@ -0,0 +1,37 @@
+#--
+#            DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE
+#                    Version 2, December 2004
+#
+#            DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE
+#   TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
+#
+#  0. You just DO WHAT THE FUCK YOU WANT TO.
+#++
+
+module Browser; class Canvas
+
+class Gradient
+  include Native
+
+  attr_reader :context
+
+  def initialize(context, *args, &block)
+    @context = context
+
+    super(case args.length
+      when 4 then `#{@context.to_n}.createLinearGradient.apply(self, args)`
+      when 6 then `#{@context.to_n}.createRadialGradient.apply(self, args)`
+      else raise ArgumentError, "don't know where to dispatch"
+    end)
+
+    instance_eval(&block)
+  end
+
+  def add(position, color)
+    `#{@context.to_n}.addColorStop(position, color)`
+
+    self
+  end
+end
+
+end; end

data/opal/browser/canvas/style.rb

@@ -0,0 +1,123 @@
+#--
+#            DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE
+#                    Version 2, December 2004
+#
+#            DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE
+#   TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
+#
+#  0. You just DO WHAT THE FUCK YOU WANT TO.
+#++
+
+module Browser; class Canvas
+
+class StyleObject
+  include Native
+
+  attr_reader :context
+
+  def initialize(context)
+    @context = context
+
+    super(@context.to_n)
+  end
+end
+
+class Style < StyleObject
+  class Line < StyleObject
+    attr_reader :width, :cap, :join, :miter_limit
+
+    def width=(value)
+      `#@native.lineWidth = #{@width = value}`
+    end
+
+    def cap=(value)
+      `#@native.lineCap = #{@cap = value}`
+    end
+
+    def join=(value)
+      `#@native.lineJoin = #{@join = value}`
+    end
+
+    def miter_limit=(value)
+      `#@native.miterLimit = #{@miter_limit = value}`
+    end
+  end
+
+  class Text < StyleObject
+    attr_reader :font, :align, :baseline
+
+    def font=(value)
+      `#@native.font = #{@font = value}`
+    end
+
+    def align=(value)
+      `#@native.textAlign = #{@align = value}`
+    end
+
+    def baseline=(value)
+      `#@native.textBaseline = #{@baseline = value}`
+    end
+  end
+
+  class Image < StyleObject
+    attr_reader :smooth
+
+    alias smooth? smooth
+
+    def smooth!
+      `#@native.mozImageSmoothingEnabled = #{@smooth = true}`
+    end
+
+    def no_smooth!
+      `#@native.mozImageSmoothingEnabled = #{@smooth = false}`
+    end
+  end
+
+  class Shadow < StyleObject
+    attr_reader :offset, :blur, :color
+
+    def offset=(value)
+      `#@native.shadowOffsetX = #{value[:x]}`
+      `#@native.shadowOffsetY = #{value[:y]}`
+
+      @offset = value
+    end
+
+    def blur=(value)
+      `#@native.shadowBlur = #{@blur = value}`
+    end
+
+    def color=(value)
+      `#@native.shadowColor = #{@color = value}`
+    end
+  end
+
+  attr_reader :line, :text, :image, :shadow, :fill, :stroke, :alpha, :composite_operation
+
+  def initialize(context)
+    super(context)
+
+    @line   = Line.new(context)
+    @text   = Text.new(context)
+    @image  = Image.new(context)
+    @shadow = Shadow.new(context)
+  end
+
+  def fill=(value)
+    `#@native.fillStyle = #{(@fill = value).to_n}`
+  end
+
+  def stroke=(value)
+    `#@native.strokeStyle = #{(@stroke = value).to_n}`
+  end
+
+  def alpha=(value)
+    `#@native.globalAlpha = #{@alpha = value}`
+  end
+
+  def composite_operation=(value)
+    `#@native.globalCompositeOperation = #{@composite_operation = value}`
+  end
+end
+
+end; end

data/opal/browser/canvas/text.rb

@@ -0,0 +1,55 @@
+#--
+#            DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE
+#                    Version 2, December 2004
+#
+#            DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE
+#   TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
+#
+#  0. You just DO WHAT THE FUCK YOU WANT TO.
+#++
+
+module Browser; class Canvas
+
+class Text
+  include Native
+
+  attr_reader :context
+
+  def initialize(context)
+    @context = context
+
+    super(@context.to_n)
+  end
+
+  def measure(text)
+    `#@native.measureText(text)`
+  end
+
+  def fill(text, x = nil, y = nil, max_width = nil)
+    x ||= 0
+    y ||= 0
+
+    if max_width
+      `#@native.fillText(text, x, y, max_width)`
+    else
+      `#@native.fillText(text, x, y)`
+    end
+
+    @context
+  end
+
+  def stroke(text, x = nil, y = nil, max_width = nil)
+    x ||= 0
+    y ||= 0
+
+    if max_width
+      `#@native.strokeText(text, x, y, max_width)`
+    else
+      `#@native.strokeText(text, x, y)`
+    end
+
+    @context
+  end
+end
+
+end; end

data/opal/browser/compatibility.rb

@@ -0,0 +1,59 @@
+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/compatibility/animation_frame.rb

@@ -0,0 +1,93 @@
+module Browser
+
+class Compatibility
+  def self.request_animation?(prefix = nil)
+    if prefix
+      has?("#{prefix}RequestAnimationFrame")
+    else
+      has?(:requestAnimationFrame)
+    end
+  end
+
+  def self.cancel_animation?(prefix = nil)
+    if prefix
+      has?("#{prefix}CancelAnimationFrame")
+    else
+      has?(:cancelAnimationFrame)
+    end
+  end
+
+  def self.cancel_request_animation?(prefix = nil)
+    if prefix
+      has?("#{prefix}CancelRequestAnimationFrame")
+    else
+      has?(:cancelAnimationFrame)
+    end
+  end
+end
+
+class AnimationFrame
+  if C.request_animation?
+    def request(block)
+      `#@native.requestAnimationFrame(#{block.to_n})`
+    end
+  elsif C.request_animation? :webkit
+    def request(block)
+      `#@native.webkitRequestAnimationFrame(#{block.to_n})`
+    end
+  elsif C.request_animation? :moz
+    def request(block)
+      `#@native.mozRequestAnimationFrame(#{block.to_n})`
+    end
+  elsif C.request_animation? :o
+    def request(block)
+      `#@native.oRequestAnimationFrame(#{block.to_n})`
+    end
+  elsif C.request_animation? :ms
+    def request(block)
+      `#@native.msRequestAnimationFrame(#{block.to_n})`
+    end
+  end
+
+  if C.cancel_animation?
+    def cancel
+      `#@native.cancelAnimationFrame(#@id)`
+    end
+  else
+    if C.cancel_animation? :webkit
+      def cancel
+        `#@native.webkitCancelAnimationFrame(#@id)`
+      end
+    elsif C.cancel_request_animation? :webkit
+      def cancel
+        `#@native.webkitCancelRequestAnimationFrame(#@id)`
+      end
+    elsif C.cancel_animation? :moz
+      def cancel
+        `#@native.mozCancelAnimationFrame(#@id)`
+      end
+    elsif C.cancel_request_animation? :moz
+      def cancel
+        `#@native.mozCancelRequestAnimationFrame(#@id)`
+      end
+    elsif C.cancel_animation? :o
+      def cancel
+        `#@native.oCancelAnimationFrame(#@id)`
+      end
+    elsif C.cancel_request_animation? :o
+      def cancel
+        `#@native.oCancelRequestAnimationFrame(#@id)`
+      end
+    elsif C.cancel_animation? :ms
+      def cancel
+        `#@native.msCancelAnimationFrame(#@id)`
+      end
+    elsif C.cancel_request_animation? :ms
+      def cancel
+        `#@native.msCancelRequestAnimationFrame(#@id)`
+      end
+    end
+  end
+end
+
+end