glimmer 0.1.0.0

data/src/xml_command_handlers/models/depth_first_search_iterator.rb

@@ -0,0 +1,20 @@
+# Copyright (C) 2007-2008 Annas Al Maleh
+# Licensed under the LGPL. See /COPYING.LGPL for more details.
+
+class DepthFirstSearchIterator
+  def initialize(node, node_visitor)
+    @node = node
+    @node_visitor = node_visitor
+  end
+  
+  def iterate
+    process(@node)
+  end
+  
+  def process(node)
+    @node_visitor.process_before_children(node)
+    node.children.each { |child| process(child) } unless node.is_a?(String)
+    @node_visitor.process_after_children(node)
+  end
+  
+end

data/src/xml_command_handlers/models/name_space_visitor.rb

@@ -0,0 +1,21 @@
+# Copyright (C) 2007-2008 Annas Al Maleh
+# Licensed under the LGPL. See /COPYING.LGPL for more details.
+
+require File.dirname(__FILE__) + "/node_visitor"
+
+class NameSpaceVisitor < NodeVisitor
+  
+  def initialize(name_space_name)
+    @name_space_name = name_space_name
+  end
+  
+  def process_before_children(node)
+    return if node.is_a?(String)
+    node.name_space = Node.new(nil, @name_space_name, nil) if node and !node.name_space
+  end
+  
+  def process_after_children(node)
+    #NOOP
+  end
+  
+end

data/src/xml_command_handlers/models/node.rb

@@ -0,0 +1,83 @@
+# Copyright (C) 2007-2008 Annas Al Maleh
+# Licensed under the LGPL. See /COPYING.LGPL for more details.
+
+require File.dirname(__FILE__) + "/depth_first_search_iterator"
+require File.dirname(__FILE__) + "/xml_visitor"
+
+class Node
+  include Parent, Glimmer
+  
+  attr_accessor :children, :name, :contents, :attributes, :is_name_space, :is_attribute, :name_space, :parent
+    
+  def initialize(parent, name, attributes, &contents)
+    @is_name_space = false
+    @children = []
+    @parent = parent
+    if (parent and parent.is_name_space)
+      @name_space = parent
+      @parent = @name_space.parent
+    end
+    @parent.children << self if @parent
+    @name = name
+    @contents = contents
+    @attributes = attributes
+    if @attributes
+      @attributes.each_key do |attribute|
+        if attribute.is_a?(Node)
+          attribute.is_attribute = true 
+          attribute.parent.children.delete(attribute) if attribute.parent
+          attribute.parent = nil #attributes do not usually have parents
+        end
+      end
+      p attributes
+    end
+  end
+  
+  def method_missing(symbol, *args, &block)
+    @is_name_space = true
+    parent.children.delete(self) if parent
+    Glimmer.add_contents(self) {@tag = super}
+    @tag
+  end
+  
+  def to_xml
+    xml_visitor = XmlVisitor.new
+    DepthFirstSearchIterator.new(self, xml_visitor).iterate
+    xml_visitor.document
+  end
+   
+  def process_block(block)
+    return_value = block.call(@widget)
+    if return_value.is_a?(String) and !@children.include?(return_value)
+      text = return_value
+      first_match = text.match(/[#][^{]+[{][^}]+[}]/)
+      match = first_match
+      while (match) 
+        Glimmer.module_eval(text_command(match.pre_match))
+        tag_text = match.to_s
+        Glimmer.module_eval(rubyize(tag_text))
+        text = tag_text
+        post_match = match.post_match
+        match = text.match(/[#]\w+[{]\w+[}]/)
+      end
+      Glimmer.module_eval(text_command(post_match)) if post_match
+      @children << return_value unless first_match
+    end
+  end
+  
+  def text_command(text)
+    "text \"#{text}\""
+  end
+  
+  def rubyize(text)
+    text = text.gsub(/[}]/, '"}')
+    text = text.gsub(/[{]/, '{"')
+    text = text.gsub(/[#]/, '')
+  end
+
+  #override Object default id method and route it to Glimmer engine
+  def id
+    method_missing(:id)
+  end
+  
+end

data/src/xml_command_handlers/models/node_visitor.rb

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

data/src/xml_command_handlers/models/xml_visitor.rb

@@ -0,0 +1,62 @@
+# Copyright (C) 2007-2008 Annas Al Maleh
+# Licensed under the LGPL. See /COPYING.LGPL for more details.
+
+require File.dirname(__FILE__) + "/node_visitor"
+
+class XmlVisitor < NodeVisitor
+  
+  attr_reader :document
+  
+  def initialize
+    @document = ""
+  end
+  
+  def process_before_children(node)
+    if (node.is_a?(String))
+      @document << node
+      return
+    end
+    begin_open_tag(node)
+    append_attributes(node) if node.attributes
+    end_open_tag(node)
+  end
+  
+  def process_after_children(node)
+    return if (node.is_a?(String))
+    append_close_tag(node)
+  end
+  
+  def begin_open_tag(node)
+    @document << "<"
+    @document << "#{node.name_space.name}:" if node.name_space
+    @document << node.name
+  end
+  
+  def end_open_tag(node)
+    if (node.contents) 
+      @document << ">"
+    else
+      @document << " " if node.attributes.keys.size > 0
+      @document << "/>"
+    end
+  end
+  
+  def append_close_tag(node)
+    if (node.contents)
+      @document << "</"
+      @document << "#{node.name_space.name}:" if node.name_space
+      @document << "#{node.name}>"
+    end
+  end
+  
+  def append_attributes(node)
+    puts "Take 3"
+    p node.attributes
+    node.attributes.each_key do |attribute|
+      attribute_name = attribute
+      attribute_name = "#{attribute.name_space.name}:#{attribute.name}" if attribute.is_a?(Node)
+      @document << " #{attribute_name}=\"#{node.attributes[attribute]}\""
+    end
+  end
+  
+end

data/src/xml_command_handlers/xml_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 "facets/dictionary"
+require File.dirname(__FILE__) + "/../command_handler"
+require File.dirname(__FILE__) + "/models/node"
+
+class XmlCommandHandler
+  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) 
+    Node.new(parent, command_symbol.to_s, attributes, &block)
+  end
+  
+end

data/src/xml_command_handlers/xml_name_space_command_handler.rb

@@ -0,0 +1,34 @@
+# 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/node"
+require File.dirname(__FILE__) + "/models/depth_first_search_iterator"
+require File.dirname(__FILE__) + "/models/name_space_visitor"
+
+class XmlNameSpaceCommandHandler
+  include CommandHandler, Glimmer
+  
+  def can_handle?(parent, command_symbol, *args, &block)
+    (parent == nil or parent.is_a?(Node)) and
+    (command_symbol.to_s == "name_space")
+    (args.size == 1) and 
+    (args[0].is_a?(Symbol)) and
+    block
+  end
+  
+  def do_handle(parent, command_symbol, *args, &block)
+    node = block.call
+    unless node.is_a?(String)
+      name_space_visitor = NameSpaceVisitor.new(args[0].to_s)
+      DepthFirstSearchIterator.new(node, name_space_visitor).iterate
+      def node.process_block(block) 
+      puts 'block'
+        #NOOP
+      end
+    end
+    parent.children << node if parent and !parent.children.include?(node)
+    node
+  end
+  
+end

data/src/xml_command_handlers/xml_tag_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 "facets/dictionary"
+require File.dirname(__FILE__) + "/../command_handler"
+require File.dirname(__FILE__) + "/models/node"
+
+class XmlTagCommandHandler
+  include CommandHandler
+  
+  def can_handle?(parent, command_symbol, *args, &block)
+    (parent == nil or parent.is_a?(Node)) and
+    (command_symbol.to_s == "tag") and
+    ((args.size == 1) and ((args[0].is_a?(Hash)) or (args[0].is_a?(Hash)))) and
+    args[0].include?(:_name)
+  end
+  
+  def do_handle(parent, command_symbol, *args, &block)
+    attributes = nil
+    attributes = args[0] if (args.size == 1) 
+    tag_name = attributes[:_name]
+    attributes.delete(:_name)
+    Node.new(parent, tag_name, attributes, &block)
+  end
+  
+end

data/src/xml_command_handlers/xml_text_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/node"
+
+class XmlTextCommandHandler
+  include CommandHandler
+  
+  def can_handle?(parent, command_symbol, *args, &block)
+    (parent == nil or parent.is_a?(Node)) and
+    (command_symbol.to_s == "text") and
+    ((args.size == 1) and (args[0].is_a?(String))) and
+    !block
+  end
+  
+  def do_handle(parent, command_symbol, *args, &block)
+    parent.children << args[0] if parent
+    args[0]
+  end
+  
+end

data/test/glimmer_constant_test.rb

@@ -0,0 +1,36 @@
+# Copyright (C) 2007-2008 Annas Al Maleh
+# Licensed under the LGPL. See /COPYING.LGPL for more details.
+
+require "test/unit"
+require File.dirname(__FILE__) + "/../src/swt"
+
+class GlimmerTest < Test::Unit::TestCase
+	include Glimmer
+
+	include_package 'org.eclipse.swt'
+	include_package 'org.eclipse.swt.widgets'
+	include_package 'org.eclipse.swt.layout'
+  
+	def teardown
+		@target.display.dispose if @target.display
+	end
+	
+  def test_shell_with_default_layout
+    @target = shell {
+      composite(border | no_focus) {
+      }
+    }
+    
+    assert_equal 1, @target.widget.children.size
+    assert_instance_of Composite, @target.widget.children[0]
+    composite_widget = @target.widget.children[0]
+    assert_has_style SWT::NO_FOCUS, composite_widget
+    assert_has_style SWT::BORDER, composite_widget
+  end
+  
+  def assert_has_style(style, widget)
+    assert_equal style, widget.getStyle & style
+  end
+  
+end
+

data/test/glimmer_data_binding_test.rb

@@ -0,0 +1,236 @@
+# Copyright (C) 2007-2008 Annas Al Maleh
+# Licensed under the LGPL. See /COPYING.LGPL for more details.
+
+require "test/unit"
+require File.dirname(__FILE__) + "/../src/swt"
+
+class GlimmerDataBindingTest < Test::Unit::TestCase
+	include Glimmer
+
+	include_package 'org.eclipse.swt'
+	include_package 'org.eclipse.swt.widgets'
+	include_package 'org.eclipse.swt.layout'
+		
+	def teardown
+  	@target.display.dispose if @target.display
+	end
+	
+  class Person 
+    attr_accessor :name, :age, :adult
+  end
+  
+  def test_text_widget_data_binding_string_property
+    person = Person.new
+    person.name = "Bruce Ting"
+    
+    @target = shell {
+      composite {
+        @text = text {
+          text bind(person, :name)
+        }
+      }
+    }
+    
+    assert_equal "Bruce Ting", @text.widget.getText
+    
+    person.name = "Lady Butterfly"
+    assert_equal "Lady Butterfly", @text.widget.getText
+    
+    @text.widget.setText("Allen Cork")
+    assert_equal "Allen Cork", person.name
+  end
+    
+  def test_text_widget_data_binding_fixnum_property
+    person = Person.new
+    person.age = 15
+    
+    @target = shell {
+      composite {
+        @text = text {
+          text bind(person, :age, :fixnum)
+        }
+      }
+    }
+    
+    assert_equal "15", @text.widget.getText
+    
+    person.age = 27
+    assert_equal "27", @text.widget.getText
+    
+    @text.widget.setText("30")
+    assert_equal 30, person.age
+  end
+    
+  def test_label_widget_data_binding_string_property
+    person = Person.new
+    person.name = "Bruce Ting"
+    
+    @target = shell {
+      composite {
+        @label = label {
+          text bind(person, :name)
+        }
+      }
+    }
+    
+    assert_equal "Bruce Ting", @label.widget.getText
+    
+    person.name = "Lady Butterfly"
+    assert_equal "Lady Butterfly", @label.widget.getText
+  end
+    
+  def test_checkbox_widget_data_binding_boolean_property
+    person = Person.new
+    person.adult = true
+    
+    @target = shell {
+      composite {
+        @check_box = button(SWT::CHECK) {
+          selection bind(person, :adult)
+        }
+      }
+    }
+    
+    assert_equal true, @check_box.widget.getSelection
+    
+    person.adult = false
+    assert_equal false, @check_box.widget.getSelection
+    
+    @check_box.widget.setSelection(true)
+    @check_box.widget.notifyListeners(SWT::Selection, nil)
+    assert_equal true, person.adult
+  end
+    
+  def test_radio_widget_data_binding_boolean_property
+    person = Person.new
+    person.adult = true
+    
+    @target = shell {
+      composite {
+        @radio = button(SWT::RADIO) {
+          selection bind(person, :adult)
+        }
+      }
+    }
+    
+    assert_equal true, @radio.widget.getSelection
+    
+    person.adult = false
+    assert_equal false, @radio.widget.getSelection
+    
+    @radio.widget.setSelection(true)
+    @radio.widget.notifyListeners(SWT::Selection, nil)
+    assert_equal true, person.adult
+  end
+    
+  def test_spinner_widget_data_binding_fixnum_property
+    person = Person.new
+    person.age = 17
+    
+    @target = shell {
+      composite {
+        @spinner = spinner {
+          selection bind(person, :age)
+        }
+      }
+    }
+    
+    assert_equal 17, @spinner.widget.getSelection
+    
+    person.age = 20
+    assert_equal 20, @spinner.widget.getSelection
+    
+    @spinner.widget.setSelection(34)
+    @spinner.widget.notifyListeners(SWT::Selection, nil)
+    assert_equal 34, person.age
+  end
+    
+  def test_widget_data_binding_enablement
+    person = Person.new
+    person.adult = true
+    
+    @target = shell {
+      composite {
+        @text = text {
+          enabled bind(person, :adult)
+        }
+      }
+    }
+    
+    assert_equal true, @text.widget.isEnabled
+    
+    person.adult = false
+    assert_equal false, @text.widget.isEnabled
+  end
+    
+  def test_multiple_widget_data_binding_enablement_to_same_model_property
+    person = Person.new
+    person.adult = true
+    
+    @target = shell {
+      composite {
+        @text = text {
+          enabled bind(person, :adult)
+        }
+        @text2 = text {
+          enabled bind(person, :adult)
+        }
+        @text3 = text {
+          enabled bind(person, :adult)
+        }
+      }
+    }
+    
+    assert_equal true, @text.widget.isEnabled
+    assert_equal true, @text2.widget.isEnabled
+    assert_equal true, @text3.widget.isEnabled
+    
+    person.adult = false
+    assert_equal false, @text.widget.isEnabled
+    assert_equal false, @text2.widget.isEnabled
+    assert_equal false, @text3.widget.isEnabled
+  end
+    
+  def test_multiple_widget_data_bindings_to_different_model_properties
+    person = Person.new
+    person.name = "Nancy"
+    person.age = 15
+    person.adult = true
+    
+    @target = shell {
+      composite {
+        @label = label {
+          text bind(person, :name)
+        }
+        @text = text {
+          text bind(person, :age, :fixnum)
+        }
+        @check_box = button(SWT::CHECK) {
+          selection bind(person, :adult)
+        }
+      }
+    }
+    
+    assert_equal "Nancy", @label.widget.getText
+    assert_equal "15", @text.widget.getText
+    assert_equal true, @check_box.widget.getSelection
+    
+    person.name = "Drew"
+    assert_equal "Drew", @label.widget.getText
+    
+    person.age = 27
+    assert_equal "27", @text.widget.getText
+
+    person.adult = false
+    assert_equal false, @check_box.widget.getSelection
+    
+    @text.widget.setText("30")
+    assert_equal 30, person.age
+
+    @check_box.widget.setSelection(true)
+    @check_box.widget.notifyListeners(SWT::Selection, nil)
+    assert_equal true, person.adult
+  end
+    
+end
+