glimmer 0.1.0.0

data/src/command_handler.rb

@@ -0,0 +1,11 @@
+# Copyright (C) 2007-2008 Annas Al Maleh
+# Licensed under the LGPL. See /COPYING.LGPL for more details.
+
+module CommandHandler
+  def can_handle?(parent, command_symbol, *args, &block)
+    raise "must be implemented by a class"
+  end
+  def do_handle(parent, command_symbol, *args, &block) 
+    raise "must be implemented by a class"
+  end
+end

data/src/command_handler_chain_factory.rb

@@ -0,0 +1,23 @@
+# Copyright (C) 2007-2008 Annas Al Maleh
+# Licensed under the LGPL. See /COPYING.LGPL for more details.
+
+require File.dirname(__FILE__) + "/command_handler_chain_link"
+
+class CommandHandlerChainFactory
+  @@last_chain_link = nil
+  @@chain = nil
+  
+  def self.set_command_handlers(*command_handler_array)
+    command_handler_array.each do |command_handler|
+      puts "Loading #{command_handler.class.to_s}..."
+      chain_link = CommandHandlerChainLink.new(command_handler)
+      @@last_chain_link.chain_to(chain_link) if @@last_chain_link
+      @@last_chain_link = chain_link
+      @@chain = chain_link unless @@chain
+    end
+  end
+  
+  def self.chain
+    @@chain
+  end
+end

data/src/command_handler_chain_link.rb

@@ -0,0 +1,22 @@
+# Copyright (C) 2007-2008 Annas Al Maleh
+# Licensed under the LGPL. See /COPYING.LGPL for more details.
+
+class CommandHandlerChainLink
+  def initialize(command_handler)
+    @command_handler = command_handler
+  end
+  def chain_to(next_chain_link)
+    @next_chain_link = next_chain_link
+  end
+  def handle(parent, command_symbol, *args, &block)
+    if (@command_handler.can_handle?(parent, command_symbol, *args, &block))
+      puts "#{@command_handler.class.to_s} will handle command: #{command_symbol} with arguments #{args}"
+      return @command_handler.do_handle(parent, command_symbol, *args, &block)
+    elsif @next_chain_link
+      return @next_chain_link.handle(parent, command_symbol, *args, &block)
+    else
+      puts "Command: #{command_symbol} cannot be handled!"
+      return nil
+    end
+  end
+end

data/src/command_handlers.rb

@@ -0,0 +1,26 @@
+# Copyright (C) 2007-2008 Annas Al Maleh
+# Licensed under the LGPL. See /COPYING.LGPL for more details.
+
+require File.dirname(__FILE__) + "/command_handler_chain_factory"
+require File.dirname(__FILE__) + "/command_handlers/shell_command_handler"
+require File.dirname(__FILE__) + "/command_handlers/widget_listener_command_handler"
+require File.dirname(__FILE__) + "/command_handlers/bind_command_handler"
+require File.dirname(__FILE__) + "/command_handlers/table_items_data_binding_command_handler"
+require File.dirname(__FILE__) + "/command_handlers/table_column_properties_data_binding_command_handler"
+require File.dirname(__FILE__) + "/command_handlers/data_binding_command_handler"
+require File.dirname(__FILE__) + "/command_handlers/widget_method_command_handler"
+require File.dirname(__FILE__) + "/command_handlers/widget_command_handler"
+require File.dirname(__FILE__) + "/command_handlers/swt_constant_command_handler"
+
+# edit to add more command handlers and extend Glimmer
+CommandHandlerChainFactory.set_command_handlers(
+  ShellCommandHandler.new,
+  WidgetListenerCommandHandler.new,
+  BindCommandHandler.new,
+  TableItemsDataBindingCommandHandler.new,
+  TableColumnPropertiesDataBindingCommandHandler.new,
+  DataBindingCommandHandler.new,
+  WidgetMethodCommandHandler.new,
+  WidgetCommandHandler.new,
+  SwtConstantCommandHandler.new #at the bottom to avoid stealing commands from other command handlers
+)

data/src/command_handlers/bind_command_handler.rb

@@ -0,0 +1,29 @@
+# Copyright (C) 2007-2008 Annas Al Maleh
+# Licensed under the LGPL. See /COPYING.LGPL for more details.
+
+require File.dirname(__FILE__) + "/../command_handler"
+require File.dirname(__FILE__) + "/models/r_widget"
+require File.dirname(__FILE__) + "/models/model_observer"
+
+class BindCommandHandler
+  include CommandHandler
+  
+  include_package 'org.eclipse.swt.widgets'
+
+  def can_handle?(parent, command_symbol, *args, &block)
+    parent.is_a?(RWidget) and
+    command_symbol.to_s == "bind" and
+    (((args.size == 2) and
+    (args[1].is_a?(Symbol) or args[1].is_a?(String))) or
+    ((args.size == 3) and
+    (args[1].is_a?(Symbol) or args[1].is_a?(String)) and
+    (args[2].is_a?(Symbol) or args[2].is_a?(String)))) and
+    block == nil
+  end
+  
+  def do_handle(parent, command_symbol, *args, &block)
+    property_type = args[2] if (args.size == 3)
+    ModelObserver.new(args[0], args[1].to_s, property_type)
+  end
+  
+end

data/src/command_handlers/data_binding_command_handler.rb

@@ -0,0 +1,64 @@
+# Copyright (C) 2007-2008 Annas Al Maleh
+# Licensed under the LGPL. See /COPYING.LGPL for more details.
+
+require File.dirname(__FILE__) + "/../command_handler"
+require File.dirname(__FILE__) + "/models/r_widget"
+require File.dirname(__FILE__) + "/models/observable_model"
+require File.dirname(__FILE__) + "/models/model_observer"
+require File.dirname(__FILE__) + "/models/widget_observer"
+
+class DataBindingCommandHandler 
+  extend Glimmer
+  include CommandHandler
+  
+  include_package 'org.eclipse.swt.widgets'
+  
+  @@widget_data_binders = {
+    Java::OrgEclipseSwtWidgets::Text => {
+      :text => Proc.new do |rwidget, model_observer|
+        add_contents(rwidget) {
+          on_modify_text { |modify_event|
+            model_observer.update(rwidget.widget.getText)
+          }
+        }
+        end,
+      },
+      Java::OrgEclipseSwtWidgets::Button => {
+        :selection => Proc.new do |rwidget, model_observer|
+          add_contents(rwidget) {
+            on_widget_selected { |selection_event|
+              model_observer.update(rwidget.widget.getSelection)
+            }
+          }
+        end
+      },
+      Java::OrgEclipseSwtWidgets::Spinner => {
+        :selection => Proc.new do |rwidget, model_observer|
+          add_contents(rwidget) {
+            on_widget_selected { |selection_event|
+              model_observer.update(rwidget.widget.getSelection)
+            }
+          }
+        end
+      }
+    }    
+    
+    def can_handle?(parent, command_symbol, *args, &block)
+      parent.is_a?(RWidget) and
+       args.size == 1 and
+       args[0].is_a?(ModelObserver)
+    end
+    
+    def do_handle(parent, command_symbol, *args, &block)
+      model_observer = args[0]
+      widget_observer = WidgetObserver.new(parent, command_symbol.to_s)
+      widget_observer.update(model_observer.evaluate_property)
+      model = model_observer.model
+      model.extend ObservableModel unless model.is_a?(ObservableModel)
+      model.add_observer(model_observer.property_name, widget_observer)
+      widget_data_binder_map = @@widget_data_binders[parent.widget.class]
+      widget_data_binder = widget_data_binder_map[command_symbol.to_s.to_sym] if widget_data_binder_map
+      widget_data_binder.call(parent, model_observer) if widget_data_binder
+    end
+    
+  end

data/src/command_handlers/models/model_observer.rb

@@ -0,0 +1,25 @@
+# Copyright (C) 2007-2008 Annas Al Maleh
+# Licensed under the LGPL. See /COPYING.LGPL for more details.
+
+class ModelObserver
+  attr_reader :model, :property_name, :property_type
+  @@property_type_converters = {
+    :undefined => Proc.new { |value| value }, 
+    :fixnum => Proc.new { |string_value| string_value.to_i }
+    #TODO check what other types are needed
+  }
+  def initialize(model, property_name, property_type)
+    property_type = :undefined unless property_type
+    @model = model
+    @property_name = property_name
+    @property_type = property_type
+  end
+  def update(value)
+    converted_value = @@property_type_converters[@property_type].call(value)
+    @model.send(@property_name + "=", converted_value) unless evaluate_property == converted_value
+  end
+  def evaluate_property
+    @model.send(@property_name)
+  end
+end
+  

data/src/command_handlers/models/observable_array.rb

@@ -0,0 +1,46 @@
+# Copyright (C) 2007-2008 Annas Al Maleh
+# Licensed under the LGPL. See /COPYING.LGPL for more details.
+
+module ObservableArray
+  
+  def add_observer(element_properties, observer)
+    property_observer_list << observer
+    each do |element|
+      element_properties.each do |property|
+        element.extend(ObservableModel) unless element.is_a?(ObservableModel)
+        element.add_observer(property, observer)
+      end
+    end
+  end
+
+  def property_observer_list
+    @property_observer_list = [] unless @property_observer_list
+    @property_observer_list
+  end
+  
+  def notify_observers
+    property_observer_list.each {|observer| observer.update}
+  end
+  
+  def self.extend_object(array)
+    array.instance_eval("alias original_add <<")
+    array.instance_eval "def <<(value) \n self.original_add(value); notify_observers; \nend"
+    
+    notify_observers_on_invokation(array, "delete", 1)
+    notify_observers_on_invokation(array, "delete_at", 1)
+    notify_observers_on_invokation(array, "clear")
+    
+    super
+  end
+  
+  def self.notify_observers_on_invokation(model, method, argument_count=0)
+    model.instance_eval "alias original_#{method} #{method}\n"
+    arguments = ""
+    for index in 1..argument_count
+      arguments += "argument" + index.to_s + ","
+    end
+    arguments = arguments[0..-2]
+    model.instance_eval "def #{method}(#{arguments}) \n self.original_#{method}(#{arguments}); notify_observers; \nend"
+  end
+
+end

data/src/command_handlers/models/observable_model.rb

@@ -0,0 +1,35 @@
+# Copyright (C) 2007-2008 Annas Al Maleh
+# Licensed under the LGPL. See /COPYING.LGPL for more details.
+
+module ObservableModel
+  
+  def add_observer(property_name, observer)
+    property_observer_list(property_name) << observer
+  end
+
+  def property_observer_hash
+    @property_observers = Hash.new unless @property_observers
+    @property_observers
+  end
+  
+  def property_observer_list(property_name)
+    property_observer_hash[property_name.to_sym] = [] unless property_observer_hash[property_name.to_sym]
+    property_observer_hash[property_name.to_sym]
+  end
+  
+  def notify_observers(property_name)
+    property_observer_list(property_name).each {|observer| observer.update(send(property_name))}
+  end
+  
+  def self.extend_object(model)
+    super
+    model.methods.each do |method|
+      setter_method_pattern = /^\w+=$/
+      if (method.match(setter_method_pattern))
+        getter_method = method[0, method.length - 1]
+        model.instance_eval "alias original_#{method} #{method}\n"
+        model.instance_eval "def #{method}(value) \n self.original_#{method}(value); notify_observers('#{getter_method}'); \nend"
+      end
+    end
+  end
+end

data/src/command_handlers/models/r_runnable.rb

@@ -0,0 +1,14 @@
+# Copyright (C) 2007-2008 Annas Al Maleh
+# Licensed under the LGPL. See /COPYING.LGPL for more details.
+
+class RRunnable
+  include java.lang.Runnable
+  
+  def initialize(&block)
+    @block = block
+  end
+  
+  def run
+    @block.call
+  end
+end

data/src/command_handlers/models/r_shell.rb

@@ -0,0 +1,27 @@
+# Copyright (C) 2007-2008 Annas Al Maleh
+# Licensed under the LGPL. See /COPYING.LGPL for more details.
+
+require File.dirname(__FILE__) + "/r_widget"
+
+class RShell < RWidget
+  include_package 'org.eclipse.swt.layout'
+  include_package 'org.eclipse.swt.widgets'
+  
+  attr_reader :display
+  
+  def initialize(display = Display.new)
+    @display = display
+    @widget = Shell.new(@display)
+    @widget.setLayout(FillLayout.new)
+  end
+  
+  def open
+    @widget.pack
+    @widget.open
+    until @widget.isDisposed
+      @display.sleep unless @display.readAndDispatch
+    end
+    @display.dispose
+  end
+  
+end

data/src/command_handlers/models/r_widget.rb

@@ -0,0 +1,146 @@
+# Copyright (C) 2007-2008 Annas Al Maleh
+# Licensed under the LGPL. See /COPYING.LGPL for more details.
+
+require File.dirname(__FILE__) + "/r_widget_listener"
+require File.dirname(__FILE__) + "/r_runnable"
+
+class RWidget
+  require File.dirname(__FILE__) + "/r_widget_packages"
+
+  include Parent
+  
+  attr_reader :widget
+  
+  #TODO externalize
+  @@default_styles = {
+    "text" => SWT::BORDER,
+    "table" => SWT::BORDER,
+    "spinner" => SWT::BORDER,
+    "button" => SWT::PUSH,
+  }
+  
+  #TODO externalize
+  @@default_initializers = {
+    "composite" => Proc.new {|composite| composite.setLayout(GridLayout.new) },
+    "table" => Proc.new do |table| 
+      table.setHeaderVisible(true)
+      table.setLinesVisible(true)
+    end,
+    "table_column" => Proc.new { |table_column| table_column.setWidth(80) },
+    "group" => Proc.new {|group| group.setLayout(GridLayout.new) },
+  }
+  
+  def initialize(underscored_widget_name, parent, style, &contents)
+    style = default_style(underscored_widget_name) unless style
+    @widget = eval underscored_widget_name.to_s.camelcase(true) + '.new(parent, style)'
+    @@default_initializers[underscored_widget_name].call(@widget) if @@default_initializers[underscored_widget_name]
+  end
+  
+  def default_style(underscored_widget_name)
+    style = @@default_styles[underscored_widget_name] if @@default_styles[underscored_widget_name]
+    style = SWT::NONE unless style
+    style
+  end
+  
+  def respond_to?(method_symbol, *args)
+    @widget.respond_to?("set" + method_symbol.to_s.camelcase(true), args)
+  end
+  
+  def method_missing(method_symbol, *args)
+    statement_to_eval = "@widget.send('set' + method_symbol.to_s.camelcase(true)"
+    statement_to_eval << expand_arguments(args)
+    statement_to_eval << ")"
+    eval statement_to_eval
+  end
+  
+  def expand_arguments(args)
+    expanded_args = ""
+    index = 0
+    args.each do
+      expanded_args << ", args[#{index}]"
+      index += 1
+    end
+    expanded_args
+  end
+  
+  def self.widget_exists?(underscored_widget_name)
+    begin
+      eval underscored_widget_name.camelcase(true)
+      true
+    rescue NameError        
+      false
+    end
+  end
+  
+  def widget_listener_exists?(underscored_listener_name)
+    listener_method_name = underscored_listener_name.camelcase()
+    @widget.getClass.getMethods.each do |widget_method| 
+      if widget_method.getName.match(/add.*Listener/)
+        widget_method.getParameterTypes.each do |listener_type|
+          listener_type.getMethods.each do |listener_method|
+            if (listener_method.getName.match(listener_method_name))
+              return true
+            end
+          end
+        end
+      end
+    end
+    return false
+  end
+  
+  def can_add_listener?(underscored_listener_name)
+    listener_method_name = underscored_listener_name.camelcase()
+    @widget.getClass.getMethods.each do |widget_method| 
+      if widget_method.getName.match(/add.*Listener/)
+        widget_method.getParameterTypes.each do |listener_type|
+          listener_type.getMethods.each do |listener_method|
+            if (listener_method.getName.match(listener_method_name))
+              return true
+            end
+          end
+        end
+      end
+    end
+    return false
+  end
+  
+  def add_listener(underscored_listener_name, &block) 
+    listener_method_name = underscored_listener_name.camelcase()
+    @widget.getClass.getMethods.each do |widget_method| 
+      if widget_method.getName.match(/add.*Listener/)
+        widget_method.getParameterTypes.each do |listener_type|
+          listener_type.getMethods.each do |listener_method|
+            if (listener_method.getName.match(listener_method_name))
+              listener_class = Class.new(Object)
+              listener_class.send :include, (eval listener_type.to_s)
+              listener = listener_class.new
+              listener_type.getMethods.each do |t_method|
+                eval "def listener.#{t_method.getName}(event) end"
+              end
+              def listener.block=(block)
+                @block = block
+              end
+              listener.block=block
+              eval "def listener.#{listener_method.getName}(event) @block.call(event) if @block end"
+              @widget.send(widget_method.getName, listener)
+              return RWidgetListener.new(listener)
+            end
+          end
+        end
+      end
+    end
+  end
+  
+  def process_block(block)
+    block.call(@widget)
+  end
+  
+  def async_exec(&block)
+    @widget.getDisplay.asyncExec(RRunnable.new(&block))
+  end
+
+  def sync_exec(&block)
+    @widget.getDisplay.syncExec(RRunnable.new(&block))
+  end
+  
+end