opal 0.2.2 → 0.3.0

data/opals/opal/browser/lib/browser/event/dom_events.rb

@@ -1,81 +0,0 @@
-# 
-# dom_events.rb
-# vienna
-# 
-# Created by Adam Beynon.
-# Copyright 2010 Adam Beynon.
-#
-# Permission is hereby granted, free of charge, to any person obtaining a copy
-# of this software and associated documentation files (the "Software"), to deal
-# in the Software without restriction, including without limitation the rights
-# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
-# copies of the Software, and to permit persons to whom the Software is
-# furnished to do so, subject to the following conditions:
-# 
-# The above copyright notice and this permission notice shall be included in
-# all copies or substantial portions of the Software.
-# 
-# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
-# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
-# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
-# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
-# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
-# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
-# THE SOFTWARE.
-#
-
-class Event
-  
-  module DOMEvents
-    
-    # Adds the given +listener+ to the receiver for the given +event_name+.
-    # More than one listeners can be added using this method, and they are 
-    # called in the order that they are added as a listener.
-    # 
-    # @param [String, Symbol] event_name the event type to listen for
-    # @param [Proc] listener the proc to deal with the event
-    # @return [Element, Document] returns the receiver
-    def on(event_name, &listener)
-      event_class = Event
-      `var func = function(evt) {
-        //console.log(#{event_class});
-        evt = #{event_class}.$from_native(evt);
-        var res = #{listener}.apply(#{listener}.__self__, [evt]);
-        return (res !==undefined && res.r);
-      };
-      
-      var element = #{self}.__element__;
-      if (element.addEventListener) {
-        element.addEventListener(#{event_name.to_s}, func, false);
-      } else {
-        element.attachEvent('on' + #{event_name.to_s}, func);
-      }`
-      self
-    end
-    
-    # Add methods for our core event names
-    %W(mousedown mouseup mousemove).each do |event_name|
-      define_method(event_name) do |&block|
-        # on event_name, &`arguments[0]`
-        # this should be:
-        # 
-        # if block_given?
-        #   self.on event_name, &block
-        # else
-        #   self.fire event_name
-        # end
-        # 
-        # to allow us to fire events (pretend they fired for testing???!)
-        `if (arguments[0] && arguments[0].info & #{self}.TP) {
-          return this.$on(#{event_name}, arguments[0]);
-        } else {
-          return console.log("need to fire event: " + #{event_name});
-        }`
-      end
-    end
-    
-  end
-end
-
-Element.include Event::DOMEvents
-Document.extend Event::DOMEvents

data/opals/opal/browser/lib/browser/event/event.rb

@@ -1,177 +0,0 @@
-# 
-# event.rb
-# vienna
-# 
-# Created by Adam Beynon.
-# Copyright 2010 Adam Beynon.
-#
-# Permission is hereby granted, free of charge, to any person obtaining a copy
-# of this software and associated documentation files (the "Software"), to deal
-# in the Software without restriction, including without limitation the rights
-# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
-# copies of the Software, and to permit persons to whom the Software is
-# furnished to do so, subject to the following conditions:
-# 
-# The above copyright notice and this permission notice shall be included in
-# all copies or substantial portions of the Software.
-# 
-# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
-# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
-# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
-# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
-# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
-# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
-# THE SOFTWARE.
-#
-
-# Event class
-class Event
-  
-  # Create an Event instance from the given native_event.
-  # 
-  # @param {Native} native_event
-  # @return {Event} event
-  # 
-  def self.from_native(event)
-    result = allocate
-    `#{event} = #{event} || window.event;
-    
-    var type = #{event}.type,
-        target = #{event}.target || #{event}.srcElement,
-        code = #{event}.which || #{event}.keyCode,
-        key = #{Event::KEYS}['$[]'](code);
-    
-    if (!key.r) {
-      key = #{self}.Y(String.fromCharCode(code).toLowerCase());
-    }
-    
-    while (target && target.nodeType == 3) {
-      target = target.parentNode;
-    }
-    
-    #{result}.__shift__ = #{event}.shiftKey ? #{true} : #{false};
-    #{result}.__alt__ = #{event}.altKey ? #{true} : #{false};
-    #{result}.__ctrl__ = #{event}.ctrlKey ? #{true} : #{false};
-    #{result}.__meta__ = #{event}.metaKey ? #{true} : #{false};
-    
-    #{result}.__code__ = code;
-    #{result}.__key__ = key;
-    #{result}.__event__ = #{event};
-    #{result}.__type__ = type;`
-    result
-  end
-  
-  # Stop the receiver from propagating.
-  # 
-  # @return [Event] returns receiver
-  def stop_propagation
-    `var evt = #{self}.__event__;
-    if (evt.stopPropagation) {
-      evt.stopPropagation();
-    } else {
-      evt.cancelBubble = true;
-    }`
-    self
-  end
-  
-  # Stop the default behaviour from the event
-  # 
-  # @return [Event] returns the receiver
-  def prevent_default
-    `var evt = #{self}.__event__;
-    if (evt.preventDefault) {
-      evt.preventDefault();
-    } else {
-      evt.returnValue = false;
-    }`
-    self
-  end
-  
-  # Completely stop the given event.
-  # 
-  # @return [Event] returns the receiver
-  def stop!
-    stop_propagation
-    prevent_default
-  end
-  
-  # Type of event, as a symbol. Here we convert the actual event type into a 
-  # symbol, and also rename some ie only events into more w3c friendly events.
-  # 
-  def type
-    if @type
-      return @type
-    else
-      @type = `vnY(#{self}.__event__.type)`
-      return @type
-    end
-  end
-  
-  # Allow event type to be overridden. This only sets the type for our
-  # abstraction: the native event type is not altered
-  # 
-  # @param {Symbol} event_type for the event
-  # 
-  def type=(event_type)
-    @type = event_type
-  end
-  
-  # ==============
-  # = Key Events =
-  # ==============
-  
-  # Hash of associated key code numbers to their descriptors.
-  KEYS = {
-    8   => :backspace,
-    9   => :tab,
-    13  => :enter,
-    27  => :escape,
-    32  => :space,
-    37  => :left,
-    38  => :up,
-    39  => :right,
-    40  => :down,
-    46  => :delete
-  }
-  
-  # If the receiver was a key based event, then returns a +Symbol+ for the typed
-  # key, otherwise +nil+. Special keys in +KEYS+ are represented as the symbol
-  # names as the keys in the hash.
-  # 
-  # @return [Symbol, nil] the typed key
-  def key
-    `return #{self}.__key__ || #{nil};`
-  end
-  
-  # Returns +true+ if the shift key was pressed, +false+ otherwise.
-  # 
-  # @return [true, false] was shift pressed
-  def shift?
-    `return #{self}.__shift__;`
-  end
-  
-  # Returns +true+ if the alt key was pressed, +false+ otherwise.
-  # 
-  # @return [true, false] was alt pressed
-  def alt?
-    `return #{self}.__alt__;`
-  end
-  
-  # Returns +true+ if the ctrl key was pressed, +false+ otherwise.
-  # 
-  # @return [true, false] was ctrl pressed
-  def ctrl?
-    `return #{self}.__ctrl__;`
-  end
-  
-  # Returns +true+ if the meta key was pressed, +false+ otherwise.
-  # 
-  # @return [true, false] was meta pressed
-  def meta?
-    `return #{self}.__meta__;`
-  end
-  
-end
-
-require 'browser/event/trigger_events'
-require 'browser/event/dom_events'

data/opals/opal/browser/lib/browser/event/trigger_events.rb

@@ -1,53 +0,0 @@
-# 
-# trigger_events.rb
-# vienna
-# 
-# Created by Adam Beynon.
-# Copyright 2010 Adam Beynon.
-#
-# Permission is hereby granted, free of charge, to any person obtaining a copy
-# of this software and associated documentation files (the "Software"), to deal
-# in the Software without restriction, including without limitation the rights
-# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
-# copies of the Software, and to permit persons to whom the Software is
-# furnished to do so, subject to the following conditions:
-# 
-# The above copyright notice and this permission notice shall be included in
-# all copies or substantial portions of the Software.
-# 
-# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
-# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
-# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
-# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
-# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
-# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
-# THE SOFTWARE.
-#
-
-
-class Event
-  
-  module TriggerEvents
-    
-    def on(name, &block)
-      name = name.to_sym
-      
-      @trigger_events = @trigger_events || {}
-      @trigger_events[name] || @trigger_events[name] = [block]
-      self
-    end
-    
-    def trigger(name, *args)
-      puts "triggering #{name}"
-      name = name.to_sym
-      
-      if @trigger_events && listeners = @trigger_events[name]
-        listeners.each do |listener|
-          listener.call args[0], args[1], args[2]
-        end
-      end
-      
-      self
-    end
-  end
-end

data/opals/opal/browser/lib/browser/geometry.rb

@@ -1,97 +0,0 @@
-# 
-# graphics.rb
-# vienna
-# 
-# Created by Adam Beynon.
-# Copyright 2010 Adam Beynon.
-#
-# Permission is hereby granted, free of charge, to any person obtaining a copy
-# of this software and associated documentation files (the "Software"), to deal
-# in the Software without restriction, including without limitation the rights
-# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
-# copies of the Software, and to permit persons to whom the Software is
-# furnished to do so, subject to the following conditions:
-# 
-# The above copyright notice and this permission notice shall be included in
-# all copies or substantial portions of the Software.
-# 
-# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
-# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
-# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
-# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
-# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
-# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
-# THE SOFTWARE.
-#
-
-class Point
-  
-  attr_accessor :x, :y
-  
-  def initialize(x, y)
-    @x = x
-    @y = y
-  end
-end
-
-class Size
-  
-  attr_accessor :height, :width
-  
-  def initialize(w, h)
-    @width = w
-    @height = h
-  end
-  
-  def inspect
-    "#<Size #{@width}, #{@height}>"
-  end
-end
-
-class Rect
-  
-  attr_accessor :size, :origin
-  
-  def initialize(x, y, w, h)
-    @origin = Point.new x, y
-    @size = Size.new w, h
-  end
-  
-  def x
-    origin.x
-  end
-  
-  def x=(x)
-    origin.x = x
-  end
-  
-  def y
-    origin.y
-  end
-  
-  def y=(y)
-    origin.y = y
-  end
-  
-  def width
-    size.width
-  end
-  
-  def width=(width)
-    size.width = width
-  end
-  
-  def height
-    size.height
-  end
-  
-  def height=(height)
-    size.height = height
-  end
-  
-  def contains_point?(point)
-    `var res = (#{self.x} < #{point.x}) && (#{self.y} < #{point.y}) && ((#{self.x} + #{self.width}) > #{point.x}) && ((#{self.y} + #{self.height}) > #{point.y});
-    return res ? #{true} : #{false};
-    `
-  end
-end

data/opals/opal/browser/lib/browser/json.rb

@@ -1,32 +0,0 @@
-# 
-# json.rb
-# vienna
-# 
-# Created by Adam Beynon.
-# Copyright 2010 Adam Beynon.
-#
-# Permission is hereby granted, free of charge, to any person obtaining a copy
-# of this software and associated documentation files (the "Software"), to deal
-# in the Software without restriction, including without limitation the rights
-# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
-# copies of the Software, and to permit persons to whom the Software is
-# furnished to do so, subject to the following conditions:
-# 
-# The above copyright notice and this permission notice shall be included in
-# all copies or substantial portions of the Software.
-# 
-# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
-# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
-# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
-# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
-# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
-# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
-# THE SOFTWARE.
-#
-
-module JSON
-  
-  def self.parse(text = "")
-    raise "JSON.parse empty string" if text == ""
-  end
-end

data/opals/opal/browser/lib/browser/request/request.rb

@@ -1,201 +0,0 @@
-# 
-# request.rb
-# vienna
-# 
-# Created by Adam Beynon.
-# Copyright 2010 Adam Beynon.
-#
-# Permission is hereby granted, free of charge, to any person obtaining a copy
-# of this software and associated documentation files (the "Software"), to deal
-# in the Software without restriction, including without limitation the rights
-# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
-# copies of the Software, and to permit persons to whom the Software is
-# furnished to do so, subject to the following conditions:
-# 
-# The above copyright notice and this permission notice shall be included in
-# all copies or substantial portions of the Software.
-# 
-# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
-# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
-# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
-# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
-# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
-# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
-# THE SOFTWARE.
-#
-
-require 'browser/event/trigger_events'
-
-# Request class
-# 
-# ## Events
-# 
-# ### request
-# 
-# Triggered when request is initially sent.
-# 
-# ### complete
-# 
-# Triggered when the request completes. Last callback to be triggered (it is
-# fired after :success/:failure)
-# 
-# ### cancel
-# 
-# Triggered if request cancels
-# 
-# ### success
-# 
-# Triggered if the event completes successfully
-# 
-# ### failure
-# 
-# Triggered if the request failed (got a response, but it was an error code)
-# 
-class Request
-  
-  include Event::TriggerEvents
-  
-  OPTIONS = {
-    :url            => '',
-    :data           => {},
-    # :headers        => {
-    #   'X-Requested-With'  => 'XMLHttpRequest',
-    #   'Accept'  =>' text/javascript, text/html, application/xml, text/xml, */*'
-    # },
-    :async          => true,
-    :format         => nil,
-    :method         => 'POST',
-    :link           => 'ignore',
-    :is_success     => nil,
-    :emulation      => true,
-    :url_encoded    => true,
-    :encoding       => 'utf-8',
-    :eval_scripts   => false,
-    :eval_response  => false,
-    :timeout        => 0,
-    :no_cache       => false
-  }
-  
-  # Get the current status of the request
-  attr_reader :status
-  
-  attr_reader :text
-  
-  def initialize(options = {})
-    `#{self}.__xhr__ = opal.request();`
-    @options = OPTIONS.merge options
-    @headers = @options[:headers]
-    @running = false
-    @status = 0
-    @text = ""
-  end
-  
-  # FIXME: Do we want lowercase? good practice to use uppercase?
-  %W{get post put delete GET POST PUT DELETE}.each do |method|
-    define_method(method) do |data|
-      send :data => data, :method => method
-    end
-  end
-  
-  # Sends the request with the given data and options. Can also take a block
-  # that acts as the on :complete proc callback handler.
-  # 
-  # @example
-  #     request = Request.new :url => 'clients.html, :method => 'get'
-  # 
-  # @param [Hash] options to set on receiver before sending
-  # @return [Request] returns receiver
-  def send(options = {}, &block)
-    @running = true
-    
-    
-    method = :post
-    
-    url = options[:url] || ""
-    
-    request = self
-    `#{self}.__xhr__.onreadystatechange = function() {
-      #{request}.$state_change();
-    };`
-    
-    `#{self}.__xhr__.open(#{method.to_s}.toUpperCase(), #{url}, true);`
-    
-    trigger :request, self
-    
-    `#{self}.__xhr__.send(null);`
-  end
-  
-  # Returns +true+ if the +Request+ is running, +false+ otherwise
-  # 
-  # @example
-  #     req = Request.new
-  #     req.running?        # => false
-  #     req.send
-  #     req.running?        # => true
-  # 
-  # @return [true, false]
-  def running?
-    @running
-  end
-  
-  # Returns +true+ if the request succeeded, +false+ otherwise
-  # 
-  # @return [true, false]
-  def success?
-    `return (#{@status} >= 200 && #{@status} < 300) ? #{true} : #{false};`
-  end
-  
-  # Returns +true+ if the request failed, +false+ otherwise
-  # 
-  # @return [true, false]
-  def failed?
-    !success?
-  end
-  
-  def state_change
-    # only handle state change when request is done (state 4)
-    `if (#{self}.__xhr__.readyState !== 4 || !#{@running}.r) return;`
-    
-    `#{self}.__xhr__.onreadystatechange = function() { };`
-    
-    @running = false
-    @status = 0
-    
-    begin
-      @status = `#{self}.__xhr__.status`
-    rescue Exception => e
-      # warning?
-      puts "warning"
-    end
-    
-    puts "our status is now #{@status}"
-    
-    # should be:
-    # @status = `#{@xhr}.status` rescue nil
-    
-    if success?
-      # puts "success #{@status}"
-      @text = `#{self}.__xhr__.responseText || ''`
-      
-      trigger :success, self
-      trigger :complete, self
-    else
-      `console.log(#{@status});`
-      puts "aww :( #{@status}"
-    
-      trigger :failure, self
-      trigger :complete, self
-    end
-  end
-  
-  def cancel
-    return self unless @running
-    @running = false
-    `#{self}.__xhr__.abort();`
-    `#{self}.__xhr__.onreadystatechange = function() {};`
-    `#{self}.__xhr__ = opal.request();`
-    trigger :cancel
-    self
-  end
-  
-end