opal-browser 0.2.0.beta1 → 0.2.0

data/opal/browser/dom/element/attributes.rb

@@ -0,0 +1,87 @@
+module Browser; module DOM; class Element < Node
+
+class Attributes
+  attr_reader :namespace
+
+  def initialize(element, options)
+    @element   = element
+    @native    = element.to_n
+    @namespace = options[:namespace]
+  end
+
+  if Browser.supports?('Element.className') || Browser.supports?('Element.htmlFor')
+    def [](name, options = {})
+      if name == :class && Browser.supports?('Element.className')
+        name = :className
+      elsif name == :for && Browser.supports?('Element.htmlFor')
+        name = :htmlFor
+      end
+
+      if namespace = options[:namespace] || @namespace
+        `#@native.getAttributeNS(#{namespace.to_s}, #{name.to_s}) || nil`
+      else
+        `#@native.getAttribute(#{name.to_s}) || nil`
+      end
+    end
+
+    def []=(name, value, options = {})
+      if name == :class && Browser.supports?('Element.className')
+        name = :className
+      elsif name == :for && Browser.supports?('Element.htmlFor')
+        name = :htmlFor
+      end
+
+      if namespace = options[:namespace] || @namespace
+        `#@native.setAttributeNS(#{namespace.to_s}, #{name.to_s}, #{value})`
+      else
+        `#@native.setAttribute(#{name.to_s}, #{value.to_s})`
+      end
+    end
+  else
+    def [](name, options = {})
+      if namespace = options[:namespace] || @namespace
+        `#@native.getAttributeNS(#{namespace.to_s}, #{name.to_s}) || nil`
+      else
+        `#@native.getAttribute(#{name.to_s}) || nil`
+      end
+    end
+
+    def []=(name, value, options = {})
+      if namespace = options[:namespace] || @namespace
+        `#@native.setAttributeNS(#{namespace.to_s}, #{name.to_s}, #{value})`
+      else
+        `#@native.setAttribute(#{name.to_s}, #{value.to_s})`
+      end
+    end
+  end
+
+  include Enumerable
+
+  def each(&block)
+    return enum_for :each unless block_given?
+
+    @element.attribute_nodes.each {|attr|
+      yield attr.name, attr.value
+    }
+
+    self
+  end
+
+  alias get []
+
+  def has_key?(name)
+    !!self[name]
+  end
+
+  def merge!(hash)
+    hash.each {|name, value|
+      self[name] = value
+    }
+
+    self
+  end
+
+  alias set []=
+end
+
+end; end; end

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

@@ -0,0 +1,67 @@
+module Browser; module DOM; class Element < Node
+
+class Data
+  attr_reader :element
+
+  def initialize(element)
+    @element = element
+    @native  = element.to_n
+
+    unless defined?(`#@native.$data`)
+      `#@native.$data = {}`
+    end
+  end
+
+  include Enumerable
+
+  def each(&block)
+    return enum_for :each unless block
+
+    %x{
+      var data = #@native.$data;
+
+      for (var key in data) {
+        #{block.call `key`, `data[key]`};
+      }
+    }
+
+    @element.attributes.each {|name, value|
+      if name =~ /^data-(.*)$/
+        block.call $1, value
+      end
+    }
+
+    self
+  end
+
+  def assign(data)
+    data.each {|name, value|
+      `#@native.$data[name] = value`
+    }
+
+    self
+  end
+
+  def [](name)
+    if data = @element["data-#{name}"]
+      return data
+    end
+
+    %x{
+      var value = #@native.$data[name];
+
+      if (value === undefined) {
+        return nil;
+      }
+      else {
+        return value;
+      }
+    }
+  end
+
+  def []=(name, value)
+    `#@native.$data[name] = value`
+  end
+end
+
+end; end; end

data/opal/browser/dom/element/input.rb

@@ -2,13 +2,24 @@ module Browser; module DOM; class Element < Node
 
 class Input < Element
   def value
-    `#@native.value`
+    %x{
+      if (#@native.value == "") {
+        return nil;
+      }
+      else {
+        return #@native.value;
+      }
+    }
   end
 
   def value=(value)
     `#@native.value = #{value}`
   end
 
+  def checked?
+    `#@native.checked`
+  end
+
   def clear
     `#@native.value = ''`
   end

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

@@ -3,6 +3,7 @@ module Browser; module DOM; class Element < Node
 class Offset
   attr_reader :element
 
+  # @private
   def initialize(element)
     @element = element
     @native  = element.to_n
@@ -12,6 +13,8 @@ class Offset
     DOM(`#@native.offsetParent || #{@element.document.root.to_n}`)
   end
 
+  # @!attribute x
+  # @return [Integer]
   def x
     get.x
   end
@@ -20,6 +23,8 @@ class Offset
     set value, nil
   end
 
+  # @!attribute y
+  # @return [Integer]
   def y
     get.y
   end

data/opal/browser/dom/element/position.rb

@@ -1,11 +1,15 @@
 module Browser; module DOM; class Element < Node
 
 class Position
+  attr_reader :element
+
+  # @private
   def initialize(element)
     @element = element
     @native  = element.to_n
   end
 
+  # @private
   def get
     offset        = @element.offset
     position      = offset.get
@@ -21,14 +25,19 @@ class Position
       parent_offset.y += parent.style['border-left-width'].to_i
     end
 
-    Browser::Position.new(position.x - parent_offset.x - @element.style['margin-left'].to_i,
-                          position.y - parent_offset.y - @element.style['margin-top'].to_i)
+    Browser::Position.new(
+      position.x - parent_offset.x - @element.style['margin-left'].to_i,
+      position.y - parent_offset.y - @element.style['margin-top'].to_i)
   end
 
+  # @!attribute [r] x
+  # @return [Integer] the position of the element on the x axis
   def x
     get.x
   end
 
+  # @!attribute [r] y
+  # @return [Integer] the position of the element on the y axis
   def y
     get.y
   end

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

@@ -1,15 +1,22 @@
 module Browser; module DOM; class Element < Node
 
 class Scroll
+  attr_reader :element
+
+  # @private
   def initialize(element)
     @element = element
     @native  = element.to_n
   end
 
   if Browser.supports? 'Element.scroll'
-    def to(what)
-      x   = what[:x] || self.x
-      y   = what[:y] || self.y
+    def to(*args)
+      if Hash === args.first
+        x = args.first[:x] || self.x
+        y = args.first[:y] || self.y
+      else
+        x, y = args
+      end
 
       `#@native.scrollTop  = #{y}`
       `#@native.scrollLeft = #{x}`
@@ -19,9 +26,13 @@ class Scroll
       Browser::Position.new(`#@native.scrollLeft`, `#@native.scrollTop`)
     end
   elsif Browser.supports? 'Element.pageOffset'
-    def to(what)
-      x   = what[:x] || self.x
-      y   = what[:y] || self.y
+    def to(*args)
+      if Hash === args.first
+        x = args.first[:x] || self.x
+        y = args.first[:y] || self.y
+      else
+        x, y = args
+      end
 
       `#@native.pageYOffset = #{y}`
       `#@native.pageXOffset = #{x}`
@@ -31,7 +42,22 @@ class Scroll
       Position.new(`#@native.pageXOffset`, `#@native.pageYOffset`)
     end
   else
-    def to(what)
+    # @overload to(x, y)
+    #
+    #   Scroll to the given x and y.
+    #
+    #   @param x [Integer] scroll to x on the x axis
+    #   @param y [Integer] scroll to y on the y axis
+    #
+    # @overload to(hash)
+    #
+    #   Scroll to the given x and y.
+    #
+    #   @param hash [Hash] the descriptor
+    #
+    #   @option hash [Integer] :x scroll to x on the x axis
+    #   @option hash [Integer] :y scroll to y on the y axis
+    def to(*args)
       raise NotImplementedError, 'scroll on element unsupported'
     end
 
@@ -40,30 +66,71 @@ class Scroll
     end
   end
 
+  # @!attribute [r] x
+  # @return [Integer] the scroll position on the x axis
   def x
     position.x
   end
 
+  # @!attribute [r] y
+  # @return [Integer] the scroll position on the y axis
   def y
     position.y
   end
 
+  # @!attribute [r] height
+  # @return [Integer] the height of the scroll
   def height
     `#@native.scrollHeight`
   end
 
+  # @!attribute [r] width
+  # @return [Integer] the width of the scroll
   def width
     `#@native.scrollWidth`
   end
 
-  def by(what)
-    x = what[:x] || 0
-    y = what[:y] || 0
+  # @overload by(x, y)
+  #
+  #   Scroll by the given x and y.
+  #
+  #   @param x [Integer] scroll by x on the x axis
+  #   @param y [Integer] scroll by y on the y axis
+  #
+  # @overload by(hash)
+  #
+  #   Scroll by the given x and y.
+  #
+  #   @param hash [Hash] the descriptor
+  #
+  #   @option hash [Integer] :x scroll by x on the x axis
+  #   @option hash [Integer] :y scroll by y on the y axis
+  def by(*args)
+    if Hash === args.first
+      x = args.first[:x] || 0
+      y = args.first[:y] || 0
+    else
+      x, y = args
+    end
 
     `#@native.scrollBy(#{x}, #{y})`
 
     self
   end
+
+  if Browser.supports? 'Element.scrollIntoViewIfNeeded'
+    def to(align = true)
+      `#@native.scrollIntoViewIfNeeded(align)`
+    end
+  else
+    def to(align = true)
+      raise NotImplementedError
+    end
+  end
+
+  def to!(align = true)
+    `#@native.scrollIntoView(align)`
+  end
 end
 
 end; end; end

data/opal/browser/dom/element/select.rb

@@ -0,0 +1,36 @@
+module Browser; module DOM; class Element < Node
+
+class Select < Element
+  def value
+    %x{
+      if (#@native.value == "") {
+        return nil;
+      }
+      else {
+        return #@native.value;
+      }
+    }
+  end
+
+  def labels
+    NodeSet[Native::Array.new(`#@native.labels`)]
+  end
+
+  def options
+    NodeSet[Native::Array.new(`#@native.options`)]
+  end
+
+  def option
+    DOM(`#@native.options[#@native.selectedIndex]`)
+  end
+
+  def index
+    `#@native.selectedIndex`
+  end
+
+  alias_native :multiple?, :multiple
+  alias_native :required?, :required
+  alias_native :length
+end
+
+end; end; end

data/opal/browser/dom/element/size.rb

@@ -3,12 +3,15 @@ module Browser; module DOM; class Element < Node
 class Size
   attr_reader :element
 
+  # @private
   def initialize(element, *inc)
     @element = element
     @native  = element.to_n
     @include = inc
   end
 
+  # @!attribute width
+  # @return [Integer] the element width
   def width
     `#@native.offsetWidth`
   end
@@ -17,6 +20,8 @@ class Size
     @element.style[:width] = value
   end
 
+  # @!attribute height
+  # @return [Integer] the element height
   def height
     `#@native.offsetHeight`
   end