glimmer 0.1.0.0

data/src/command_handlers/models/r_widget_listener.rb

@@ -0,0 +1,12 @@
+# Copyright (C) 2007-2008 Annas Al Maleh
+# Licensed under the LGPL. See /COPYING.LGPL for more details.
+
+class RWidgetListener
+  
+  attr_reader :listener
+  
+  def initialize(listener)
+    @listener = listener
+  end
+  
+end

data/src/command_handlers/models/r_widget_packages.rb

@@ -0,0 +1,9 @@
+# Copyright (C) 2007-2008 Annas Al Maleh
+# Licensed under the LGPL. See /COPYING.LGPL for more details.
+
+# edit to add more packages and support custom widgets
+class RWidget
+  include_package 'org.eclipse.swt'
+  include_package 'org.eclipse.swt.layout'
+  include_package 'org.eclipse.swt.widgets'
+end

data/src/command_handlers/models/table_items_updater.rb

@@ -0,0 +1,39 @@
+# Copyright (C) 2007-2008 Annas Al Maleh
+# Licensed under the LGPL. See /COPYING.LGPL for more details.
+
+require File.dirname(__FILE__) + "/observable_array"
+require File.dirname(__FILE__) + "/observable_model"
+
+class TableItemsUpdater
+  include_package 'org.eclipse.swt'
+  include_package 'org.eclipse.swt.widgets'
+  
+  def initialize(parent, model_observer, column_properties)
+    @table = parent
+    @model_observer = model_observer
+    @column_properties = column_properties
+    update(@model_observer.evaluate_property)
+    model = model_observer.model
+    model.extend(ObservableModel) unless model.is_a?(ObservableModel)
+    model.add_observer(model_observer.property_name, self)
+  end
+  def update(model_collection=nil)
+    if (model_collection and model_collection.is_a?(Array))
+      model_collection.extend(ObservableArray)
+      model_collection.add_observer(@column_properties, self)
+      @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, SWT::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/src/command_handlers/models/widget_observer.rb

@@ -0,0 +1,23 @@
+# Copyright (C) 2007-2008 Annas Al Maleh
+# Licensed under the LGPL. See /COPYING.LGPL for more details.
+
+class WidgetObserver
+  attr_reader :widget, :property
+  @@property_type_converters = {
+    :text => Proc.new { |value| value.to_s }
+  }
+  def initialize model, property
+    @widget = model
+    @property = property
+  end
+  def update(value)
+    converted_value = value
+    converter = @@property_type_converters[@property.to_sym]
+    converted_value = converter.call(value) if converter
+    @widget.widget.send "set" + @property.camelcase(true), converted_value unless evaluate_property == converted_value
+  end
+  def evaluate_property
+    @widget.widget.send("get" + @property.camelcase(true))
+  end
+end
+  

data/src/command_handlers/shell_command_handler.rb

@@ -0,0 +1,18 @@
+# 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_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/src/command_handlers/swt_constant_command_handler.rb

@@ -0,0 +1,22 @@
+# 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"
+
+class SwtConstantCommandHandler
+  include CommandHandler
+  
+  include_package 'org.eclipse.swt'
+
+  def can_handle?(parent, command_symbol, *args, &block)
+      args.size == 0 and
+      block == nil
+  end
+  
+  def do_handle(parent, command_symbol, *args, &block)
+    puts 'org.eclipse.swt.SWT::' + command_symbol.to_s.upcase
+    eval 'org.eclipse.swt.SWT::' + command_symbol.to_s.upcase
+  end
+  
+end

data/src/command_handlers/table_column_properties_data_binding_command_handler.rb

@@ -0,0 +1,24 @@
+# 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"
+
+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/src/command_handlers/table_items_data_binding_command_handler.rb

@@ -0,0 +1,30 @@
+# 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/table_items_updater"
+
+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?(ModelObserver) 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_observer = args[0]
+    column_properties = args[1]
+    TableItemsUpdater.new(parent, model_observer, column_properties)
+  end
+
+end

data/src/command_handlers/widget_command_handler.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"
+require File.dirname(__FILE__) + "/models/r_widget"
+
+class WidgetCommandHandler
+  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 != "shell" and
+      (args.size == 0 or 
+        (args.size == 1 and args[0].is_a?(Fixnum))) and
+      RWidget.widget_exists?(command_symbol.to_s)
+  end
+  
+  def do_handle(parent, command_symbol, *args, &block)
+    style = args[0] if args.size == 1
+    puts "style argument is: " + style.to_s
+    RWidget.new(command_symbol.to_s, parent.widget, style)
+  end
+  
+end

data/src/command_handlers/widget_listener_command_handler.rb

@@ -0,0 +1,35 @@
+# 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"
+
+class WidgetListenerCommandHandler
+  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[0,3] == "on_" and
+      command_symbol.to_s.length > 3 and
+      args.size == 0 and
+      parent.can_add_listener?(command_symbol.to_s[3, command_symbol.to_s.length])
+  end
+  
+  def do_handle(parent, command_symbol, *args, &block)
+    parent.add_listener(command_symbol.to_s[3, command_symbol.to_s.length], &block)
+    ListenerParent.new #TODO refactor and move to models
+  end
+  
+  #TODO refactor and move to separate file
+  class ListenerParent
+      include Parent
+      
+    def process_block(block)
+      #NOOP
+    end
+    
+  end
+  
+end

data/src/command_handlers/widget_method_command_handler.rb

@@ -0,0 +1,22 @@
+# 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"
+
+class WidgetMethodCommandHandler
+  include CommandHandler
+  
+  def can_handle?(parent, command_symbol, *args, &block)
+    parent.is_a?(RWidget) and 
+      args.size > 0 and
+      block == nil and
+      parent.respond_to?(command_symbol, *args)
+  end
+  
+  def do_handle(parent, command_symbol, *args, &block) 
+    parent.send(command_symbol, *args)
+    nil
+  end
+  
+end

data/src/glimmer.rb

@@ -0,0 +1,45 @@
+# Glimmer - a JRuby DSL that enables easy and efficient authoring of user-interfaces 
+# using the robust platform-independent Eclipse SWT library. Glimmer comes with built-in 
+# data-binding support to greatly facilitate synchronizing UI with domain models.
+#
+# Copyright (C) 2007-2008 Annas Al Maleh
+# Licensed under the LGPL. See /COPYING.LGPL for more details.
+
+require "rubygems"
+require "facets"
+require "java"
+require File.dirname(__FILE__) + "/parent"
+
+module Glimmer
+  
+  include_package 'org.eclipse.swt'
+  
+  @@parent_stack = []
+
+  def self.method_missing(method_symbol, *args, &block)
+    puts "method: " + method_symbol.to_s + " and args: " + args.to_s
+    command_handler_chain = CommandHandlerChainFactory.chain
+    return_value = command_handler_chain.handle(@@parent_stack.last, method_symbol, *args, &block)
+    add_contents(return_value, &block)
+    return return_value
+  end
+
+  def self.add_contents(parent, &block)
+    @@parent_stack.push(parent) if parent.is_a?(Parent)
+    @@parent_stack.last.process_block(block) if block and @@parent_stack.last
+    @@parent_stack.pop if parent.is_a?(Parent)
+  end
+
+  #added for convenience
+  
+  def method_missing(method_symbol, *args, &block)
+    Glimmer.method_missing(method_symbol, *args, &block)
+  end
+
+  def add_contents(parent, &block)
+    Glimmer.add_contents(parent, &block)
+  end
+end
+
+# Command handlers may rely on Glimmer, so this is put here to avoid an infinite loop.
+#require File.dirname(__FILE__) + "/command_handlers"

data/src/parent.rb

@@ -0,0 +1,8 @@
+# Copyright (C) 2007-2008 Annas Al Maleh
+# Licensed under the LGPL. See /COPYING.LGPL for more details.
+
+module Parent
+  def process_block(block)
+    raise "must be implemented by a class"
+  end
+end

data/src/shine.rb

@@ -0,0 +1,24 @@
+# Copyright (C) 2007-2008 Annas Al Maleh
+# Licensed under the LGPL. See /COPYING.LGPL for more details.
+
+require File.dirname(__FILE__) + "/glimmer"
+
+class Array
+  include Glimmer
+  
+  alias original_compare <=>
+  
+  def <=>(other)
+    if (self[0].class.name == "RWidget")
+      add_contents(self[0]) {
+        if (other.size == 2)
+          eval("#{self[1]} bind (other[0], other[1])")
+        elsif (other.size == 3)
+          eval("#{self[1]} bind (other[0], other[1], other[2])")
+        end
+      }
+    else
+      original_compare(other)
+    end
+  end
+end

data/src/swt.rb

@@ -0,0 +1,10 @@
+# Glimmer - a JRuby DSL that enables easy and efficient authoring of user-interfaces 
+# using the robust platform-independent Eclipse SWT library. Glimmer comes with built-in 
+# data-binding support to greatly facilitate synchronizing UI with domain models.
+#
+# Copyright (C) 2007-2008 Annas Al Maleh
+# Licensed under the LGPL. See /COPYING.LGPL for more details.
+
+require File.dirname(__FILE__) + "/glimmer"
+require File.dirname(__FILE__) + "/command_handlers"
+

data/src/xml.rb

@@ -0,0 +1,10 @@
+# Glimmer - a JRuby DSL that enables easy and efficient authoring of user-interfaces 
+# using the robust platform-independent Eclipse SWT library. Glimmer comes with built-in 
+# data-binding support to greatly facilitate synchronizing UI with domain models.
+#
+# Copyright (C) 2007-2008 Annas Al Maleh
+# Licensed under the LGPL. See /COPYING.LGPL for more details.
+
+require File.dirname(__FILE__) + "/glimmer"
+require File.dirname(__FILE__) + "/xml_command_handlers"
+

data/src/xml_command_handlers.rb

@@ -0,0 +1,18 @@
+# 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__) + "/xml_command_handlers/xml_name_space_command_handler"
+require File.dirname(__FILE__) + "/xml_command_handlers/xml_text_command_handler"
+require File.dirname(__FILE__) + "/xml_command_handlers/xml_tag_command_handler"
+require File.dirname(__FILE__) + "/xml_command_handlers/html_command_handler"
+require File.dirname(__FILE__) + "/xml_command_handlers/xml_command_handler"
+
+# edit to add more command handlers and extend Glimmer
+CommandHandlerChainFactory.set_command_handlers(
+  XmlNameSpaceCommandHandler.new,
+  XmlTextCommandHandler.new,
+  XmlTagCommandHandler.new,
+  HtmlCommandHandler.new,
+  XmlCommandHandler.new
+)

data/src/xml_command_handlers/html_command_handler.rb

@@ -0,0 +1,49 @@
+# Copyright (C) 2007-2008 Annas Al Maleh
+# Licensed under the LGPL. See /COPYING.LGPL for more details.
+
+require "facets/dictionary"
+require File.dirname(__FILE__) + "/../command_handler"
+require File.dirname(__FILE__) + "/models/node"
+
+class HtmlCommandHandler
+  include CommandHandler
+  
+  def can_handle?(parent, command_symbol, *args, &block)
+    (parent == nil or parent.is_a?(Node)) and
+    (args.size == 0 or ((args.size == 1) and ((args[0].is_a?(Hash)) or (args[0].is_a?(Hash)))))
+  end
+  
+  def do_handle(parent, command_symbol, *args, &block)
+    attributes = Dictionary.new
+    attributes = args[0] if (args.size == 1) 
+    append_id_and_class_attributes(command_symbol.to_s, attributes)
+    tag_name = parse_tag_name(command_symbol.to_s)
+    Node.new(parent, tag_name, attributes, &block)
+  end
+  
+  def parse_tag_name(command)
+    match_data = command.match("_")
+    if (match_data.to_a.size > 0)
+      command.match("_").pre_match
+    else
+      command
+    end
+  end
+  
+  def append_id_and_class_attributes(command, attributes)
+    class_only_match = command.match("__.+").to_s
+    if class_only_match.length > 0
+      class_value = class_only_match[2, class_only_match.length] 
+    else
+      match_data = command.match("_[^_]+")
+      return unless match_data
+      match = match_data.to_s
+      id_value = match[1, match.length] if match.length > 0
+      attributes[:id] = id_value if id_value
+      match2 = match_data.post_match.match("_[^_]+").to_s if match_data.post_match
+      class_value = match2[1, match2.length] if match2.length > 0
+    end
+    attributes[:class] = class_value if class_value
+  end
+  
+end