opal-browser 0.2.0.beta1 → 0.3.2

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

@@ -1,37 +1,122 @@
 module Browser; module DOM; class Element < Node
 
+# @todo Consider using the new interfaces which allow for optional
+#       smooth transitions.
 class Scroll
+  attr_reader :element
+
+  # @private
   def initialize(element)
     @element = element
     @native  = element.to_n
+
+    # Portable support for Window#scroll and Document#scroll
+    @scrolling_native = @native
+    if [Document, Window].include?(@element.class)
+      # If we are a window, let's become a document first.
+      if defined? `#@scrolling_native.document`
+        @scrolling_native = `#@scrolling_native.document`
+      end
+      # There were slight disagreements in the past which element
+      # should we handle.
+      if defined? `#@scrolling_native.documentElement.scrollTop`
+        @scrolling_native = `#@scrolling_native.documentElement`
+      elsif defined? `#@scrolling_native.body.scrollTop`
+        @scrolling_native = `#@scrolling_native.body`
+      end
+    end
   end
 
-  if Browser.supports? 'Element.scroll'
-    def to(what)
-      x   = what[:x] || self.x
-      y   = what[:y] || self.y
+  # @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
+  #
+  # @overload to(symbol)
+  #
+  #   Scroll to :top or to :bottom
+  #
+  #   @param symbol [Symbol] either :top or :bottom
+  def to(*args)
+    x, y = nil, nil
+    case args.first
+    when Hash
+      x = args.first[:x]
+      y = args.first[:y]
+    when :top
+      y = 0
+    when :bottom
+      y = 99999999
+    else
+      x, y = args
+    end
+
+    set(x, y) if x || y
 
-      `#@native.scrollTop  = #{y}`
-      `#@native.scrollLeft = #{x}`
+    self
+  end
+
+  # @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)
+    case args.first
+    when Hash
+      x = args.first[:x] || 0
+      y = args.first[:y] || 0
+    else
+      x, y = args
     end
 
-    def position
-      Browser::Position.new(`#@native.scrollLeft`, `#@native.scrollTop`)
+    set_by(x, y)
+
+    self
+  end
+
+  if Browser.supports? 'Element.scrollBy'
+    private def set_by(x, y)
+      `#@scrolling_native.scrollBy(#{x}, #{y})`
+    end
+  else
+    private def set_by(x, y)
+      set(self.x + x, self.y + y)
     end
-  elsif Browser.supports? 'Element.pageOffset'
-    def to(what)
-      x   = what[:x] || self.x
-      y   = what[:y] || self.y
+  end
 
-      `#@native.pageYOffset = #{y}`
-      `#@native.pageXOffset = #{x}`
+  if Browser.supports? 'Element.scroll'
+    private def set(x=nil, y=nil)
+      `#@scrolling_native.scrollTop  = #{y}` if y
+      `#@scrolling_native.scrollLeft = #{x}` if x
     end
 
     def position
-      Position.new(`#@native.pageXOffset`, `#@native.pageYOffset`)
+      Browser::Position.new(`#@scrolling_native.scrollLeft`, `#@scrolling_native.scrollTop`)
     end
   else
-    def to(what)
+    private def set(x=nil, y=nil)
       raise NotImplementedError, 'scroll on element unsupported'
     end
 
@@ -40,29 +125,43 @@ 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`
+    `#@scrolling_native.scrollHeight`
   end
 
+  # @!attribute [r] width
+  # @return [Integer] the width of the scroll
   def width
-    `#@native.scrollWidth`
+    `#@scrolling_native.scrollWidth`
   end
 
-  def by(what)
-    x = what[:x] || 0
-    y = what[:y] || 0
-
-    `#@native.scrollBy(#{x}, #{y})`
+  if Browser.supports? 'Element.scrollIntoViewIfNeeded'
+    def into_view(align = true)
+      `#@scrolling_native.scrollIntoViewIfNeeded(align)`
+    end
+  else
+    # Non-standard. Not supported by modern Firefox. Use {#into_view!}
+    def into_view(align = true)
+      raise NotImplementedError
+    end
+  end
 
-    self
+  def into_view!(align = true)
+    `#@scrolling_native.scrollIntoView(align)`
   end
 end
 

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

@@ -0,0 +1,42 @@
+module Browser; module DOM; class Element < Node
+
+class Select < Element
+  def_selector "select"
+
+  def value
+    %x{
+      if (#@native.value == "") {
+        return nil;
+      }
+      else {
+        return #@native.value;
+      }
+    }
+  end
+
+  def value= value
+    `#@native.value = #{value.to_n}`
+  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
@@ -24,6 +29,18 @@ class Size
   def height=(value)
     @element.style[:height] = value
   end
+
+  # @!attribute client_width
+  # @return [Integer] the content-box width of an element
+  def client_width
+    `#@native.clientWidth`
+  end
+
+  # @!attribute client_height
+  # @return [Integer] the content-box height of an element
+  def client_height
+    `#@native.clientHeight`
+  end
 end
 
 end; end; end

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

@@ -0,0 +1,11 @@
+module Browser; module DOM; class Element < Node
+
+class Template < Element
+  def_selector "template"
+
+  def content
+    DOM(`#@native.content`)
+  end
+end
+
+end; end; end

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

@@ -0,0 +1,26 @@
+module Browser; module DOM; class Element < Node
+
+class Textarea < Element
+  def_selector "textarea"
+
+  def value
+    %x{
+      if (#@native.value == "") {
+        return nil;
+      }
+      else {
+        return #@native.value;
+      }
+    }
+  end
+
+  def value=(value)
+    `#@native.value = #{value}`
+  end
+
+  def clear
+    `#@native.value = ''`
+  end
+end
+
+end; end; end