glimmer 0.3.5 → 0.4.0

data/lib/command_handlers/models/r_tab_item_composite.rb

@@ -1,31 +0,0 @@
-require File.dirname(__FILE__) + "/r_widget_listener"
-require File.dirname(__FILE__) + "/r_runnable"
-
-class RTabItemComposite < RWidget
-  include_package 'org.eclipse.swt.widgets'
-  
-  attr_reader :tab_item
-  def initialize(tab_item, parent, style, &contents)
-    super("composite", parent, style, &contents)
-    @tab_item = tab_item
-    @tab_item.widget.control = self.widget
-  end
-  
-  def has_attribute?(attribute_name, *args)
-    if attribute_name.to_s == "text"
-      true
-    else
-      super(attribute_name, *args)
-    end
-  end
-
-  def set_attribute(attribute_name, *args)
-    if attribute_name.to_s == "text"
-      text_value = args[0]
-      @tab_item.widget.text = text_value
-    else
-      super(attribute_name, *args)
-    end
-  end
-
-end

data/lib/command_handlers/models/r_widget.rb

@@ -1,183 +0,0 @@
-require_relative "r_widget_listener"
-require_relative "r_runnable"
-require_relative "r_color"
-require_relative "r_font"
-require_relative "r_swt"
-
-class RWidget
-  include_package 'org.eclipse.swt'
-  include_package 'org.eclipse.swt.widgets'
-  include_package 'org.eclipse.swt.layout'
-  include_package 'org.eclipse.swt.graphics'
-  include Parent
-
-  attr_reader :widget
-
-  #TODO externalize
-  @@default_styles = {
-    "text" => RSwt[:border],
-    "table" => RSwt[:border],
-    "spinner" => RSwt[:border],
-    "list" => RSwt[:border, :v_scroll],
-    "button" => RSwt[: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) },
-  }
-
-  #styles is a comma separate list of symbols representing SWT styles in lower case
-  def initialize(underscored_widget_name, parent, styles, &contents)
-    @widget = underscored_widget_name.swt_widget.new(parent, style(underscored_widget_name, styles))
-    @@default_initializers[underscored_widget_name].call(@widget) if @@default_initializers[underscored_widget_name]
-  end
-
-  def has_attribute?(attribute_name, *args)
-    @widget.respond_to?(attribute_setter(attribute_name), args)
-  end
-
-  def set_attribute(attribute_name, *args)
-    apply_property_type_converters(attribute_name, args)
-    @widget.send(attribute_setter(attribute_name), *args)
-  end
-
-  def property_type_converters
-    @property_type_converters ||= {
-      :text => Proc.new { |value| value.to_s },
-      :items => Proc.new { |value| value.to_java :string},
-      :visible => Proc.new { |value| !!value},
-      :font => Proc.new do |value|
-        if value.is_a?(Hash)
-          font_properties = value
-          RFont.for(self).font(font_properties)
-        else
-          value
-        end
-      end,
-    }
-  end
-
-  def apply_property_type_converters(attribute_name, args)
-    if args.count == 1
-      value = args.first
-      converter = property_type_converters[attribute_name.to_sym]
-      args[0] = converter.call(value) if converter
-    end
-    if args.count == 1 && args.first.is_a?(Symbol) && args.first.to_s.start_with?('color_')
-      standard_color = args.first
-      args[0] = RColor.for(widget.getDisplay, standard_color)
-    elsif args.count == 1 && args.first.is_a?(RColor)
-      r_color = args.first
-      r_color.display = widget.display if r_color.display.nil? || r_color.display != widget.display
-      args[0] = r_color.color
-    end
-  end
-
-  def self.widget_exists?(underscored_widget_name)
-    begin
-      eval underscored_widget_name.camelcase(:upper)
-      true
-    rescue NameError
-      false
-    end
-  end
-
-  def widget_listener_exists?(underscored_listener_name)
-    listener_method_name = underscored_listener_name.listener_method_name(:lower)
-    @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 == 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(:lower)
-    @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 == 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(:lower)
-    @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 == listener_method_name)
-              listener_class = Class.new(Object)
-              listener_class.send :include, (eval listener_type.to_s.sub("interface", ""))
-              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
-
-  def has_style?(style)
-    (widget.style & RSwt[style]) == RSwt[style]
-  end
-
-  private
-
-  def style(underscored_widget_name, styles)
-    styles.empty? ? default_style(underscored_widget_name) : RSwt[*styles]
-  end
-
-  def default_style(underscored_widget_name)
-    style = @@default_styles[underscored_widget_name] if @@default_styles[underscored_widget_name]
-    style = RSwt[:none] unless style
-    style
-  end
-
-  def attribute_setter(attribute_name)
-    "set#{attribute_name.to_s.camelcase(:upper)}"
-  end
-
-end

data/lib/command_handlers/models/r_widget_listener.rb

@@ -1,9 +0,0 @@
-class RWidgetListener
-  
-  attr_reader :listener
-  
-  def initialize(listener)
-    @listener = listener
-  end
-  
-end

data/lib/command_handlers/models/table_items_binding.rb

@@ -1,43 +0,0 @@
-require_relative 'observable_array'
-require_relative 'observable_model'
-require_relative 'observable'
-require_relative 'observer'
-
-class TableItemsBinding
-  include Glimmer
-  include Observable
-  include Observer
-  include_package 'org.eclipse.swt'
-  include_package 'org.eclipse.swt.widgets'
-
-  def initialize(parent, model_binding, column_properties)
-    @table = parent
-    @model_binding = model_binding
-    @column_properties = column_properties
-    update(@model_binding.evaluate_property)
-    model = model_binding.base_model
-    observe(model, model_binding.property_name_expression)
-    add_contents(@table) {
-      on_widget_disposed { |dispose_event|
-        unregister_all_observables
-      }
-    }
-  end
-  def update(model_collection=nil)
-    if model_collection and model_collection.is_a?(Array)
-      observe(model_collection, @column_properties)
-      @model_collection = model_collection
-    end
-    populate_table(@model_collection, @table, @column_properties)
-  end
-  def populate_table(model_collection, parent, column_properties)
-    parent.widget.removeAll
-    model_collection.each do |model|
-      table_item = TableItem.new(parent.widget, RSwt[:none])
-      for index in 0..(column_properties.size-1)
-        table_item.setText(index, model.send(column_properties[index]).to_s)
-      end
-    end
-  end
-
-end

data/lib/command_handlers/models/tree_items_binding.rb

@@ -1,47 +0,0 @@
-require_relative 'observable_array'
-require_relative 'observable_model'
-require_relative 'observable'
-require_relative 'observer'
-
-class TreeItemsBinding
-  include Glimmer
-  include Observable
-  include Observer
-  include_package 'org.eclipse.swt'
-  include_package 'org.eclipse.swt.widgets'
-
-  def initialize(parent, model_binding, tree_properties)
-    @tree = parent
-    @model_binding = model_binding
-    @tree_properties = [tree_properties].flatten.first.to_h
-    update(@model_binding.evaluate_property)
-    model = model_binding.base_model
-    observe(model, model_binding.property_name_expression)
-    add_contents(@tree) {
-      on_widget_disposed { |dispose_event|
-        unregister_all_observables
-      }
-    }
-  end
-  def update(model_tree_root_node=nil)
-    if model_tree_root_node and model_tree_root_node.respond_to?(@tree_properties[:children])
-      observe(model_tree_root_node, @tree_properties[:text])
-      observe(model_tree_root_node, @tree_properties[:children])
-      @model_tree_root_node = model_tree_root_node
-    end
-    populate_tree(@model_tree_root_node, @tree, @tree_properties)
-  end
-  def populate_tree(model_tree_root_node, parent, tree_properties)
-    parent.widget.removeAll
-    populate_tree_node(model_tree_root_node, parent.widget, tree_properties)
-  end
-  def populate_tree_node(model_tree_node, parent, tree_properties)
-    table_item = TreeItem.new(parent, RSwt[:none])
-    table_item.setText((model_tree_node && model_tree_node.send(tree_properties[:text])).to_s)
-      [model_tree_node && model_tree_node.send(tree_properties[:children])].flatten.to_a.compact.each do |child|
-      observe(child, @tree_properties[:text])
-      populate_tree_node(child, table_item, tree_properties)
-    end
-  end
-
-end

data/lib/command_handlers/models/widget_binding.rb

@@ -1,27 +0,0 @@
-require_relative 'observable'
-require_relative 'observer'
-
-class WidgetBinding
-  include Glimmer
-  include Observable
-  include Observer
-
-  attr_reader :widget, :property
-  def initialize(model, property, translator = nil)
-    @widget = model
-    @property = property
-    @translator = translator || proc {|value| value}
-    add_contents(@widget) {
-      on_widget_disposed { |dispose_event|
-        unregister_all_observables
-      }
-    }
-  end
-  def update(value)
-    converted_value = translated_value = @translator.call(value)
-    @widget.set_attribute(@property, converted_value) unless evaluate_property == converted_value
-  end
-  def evaluate_property
-    @widget.widget.send(@property)
-  end
-end

data/lib/command_handlers/shell_command_handler.rb

@@ -1,15 +0,0 @@
-require File.dirname(__FILE__) + "/../command_handler"
-require File.dirname(__FILE__) + "/models/r_shell"
-
-class ShellCommandHandler
-  include CommandHandler
-
-  def can_handle?(parent, command_symbol, *args, &block)
-    command_symbol.to_s == "shell"
-  end
-
-  def do_handle(parent, command_symbol, *args, &block)
-    RShell.send(:new, *args)
-  end
-
-end

data/lib/command_handlers/tab_item_command_handler.rb

@@ -1,19 +0,0 @@
-require File.dirname(__FILE__) + "/../command_handler"
-require File.dirname(__FILE__) + "/models/r_shell"
-require File.dirname(__FILE__) + "/models/r_tab_item_composite"
-
-class TabItemCommandHandler
-  include CommandHandler
-  include Glimmer
-  
-  def can_handle?(parent, command_symbol, *args, &block)
-    parent.is_a?(RWidget) and 
-      command_symbol.to_s == "tab_item"
-  end
-  
-  def do_handle(parent, command_symbol, *args, &block) 
-    tab_item = RWidget.new(command_symbol.to_s, parent.widget, args)
-    RTabItemComposite.new(tab_item, parent.widget, args)
-  end
-  
-end

data/lib/command_handlers/table_column_properties_data_binding_command_handler.rb

@@ -1,23 +0,0 @@
-require File.dirname(__FILE__) + "/../command_handler"
-require File.dirname(__FILE__) + "/models/r_widget"
-
-# Responsible for providing a readable keyword (command symbol) to capture
-# and return column properties for use in TreeItemsDataBindingCommandHandler
-class TableColumnPropertiesDataBindingCommandHandler
-  include CommandHandler
-
-  include_package 'org.eclipse.swt'
-  include_package 'org.eclipse.swt.widgets'
-
-  def can_handle?(parent, command_symbol, *args, &block)
-    parent.is_a?(RWidget) and
-    parent.widget.is_a?(Table) and
-    command_symbol.to_s == "column_properties" and
-    block == nil
-  end
-
-  def do_handle(parent, command_symbol, *args, &block)
-    args
-  end
-
-end

data/lib/command_handlers/table_items_data_binding_command_handler.rb

@@ -1,28 +0,0 @@
-require File.dirname(__FILE__) + "/../command_handler"
-require File.dirname(__FILE__) + "/models/r_widget"
-require File.dirname(__FILE__) + "/models/table_items_binding"
-
-#Depends on BindCommandHandler and TableColumnPropertiesDataBindingCommandHandler
-class TableItemsDataBindingCommandHandler
-  include CommandHandler
-
-  include_package 'org.eclipse.swt.widgets'
-
-  def can_handle?(parent, command_symbol, *args, &block)
-    parent.is_a?(RWidget) and
-    parent.widget.is_a?(Table) and
-    command_symbol.to_s == "items" and
-    args.size == 2 and
-    args[0].is_a?(ModelBinding) and
-    args[0].evaluate_property.is_a?(Array) and
-    args[1].is_a?(Array) and
-    block == nil
-  end
-
-  def do_handle(parent, command_symbol, *args, &block)
-    model_binding = args[0]
-    column_properties = args[1]
-    TableItemsBinding.new(parent, model_binding, column_properties)
-  end
-
-end

data/lib/command_handlers/tree_items_data_binding_command_handler.rb

@@ -1,27 +0,0 @@
-require File.dirname(__FILE__) + "/../command_handler"
-require File.dirname(__FILE__) + "/models/r_widget"
-require File.dirname(__FILE__) + "/models/tree_items_binding"
-
-class TreeItemsDataBindingCommandHandler
-  include CommandHandler
-
-  include_package 'org.eclipse.swt.widgets'
-
-  def can_handle?(parent, command_symbol, *args, &block)
-    (parent.is_a?(RWidget)) and
-    (parent.widget.is_a?(Tree)) and
-    (command_symbol.to_s == "items") and
-    (args.size == 2) and
-    (args[0].is_a?(ModelBinding)) and
-    (!args[0].evaluate_property.is_a?(Array)) and
-    (args[1].is_a?(Array) && !args[1].empty? && args[1].first.is_a?(Hash)) and
-    (block == nil)
-  end
-
-  def do_handle(parent, command_symbol, *args, &block)
-    model_binding = args[0]
-    tree_properties = args[1]
-    TreeItemsBinding.new(parent, model_binding, tree_properties)
-  end
-
-end