glimmer 0.1.0.0

data/test/glimmer_listeners_test.rb

@@ -0,0 +1,61 @@
+# 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_verify_listener
+    @target = shell {
+      composite {
+        @text = text {
+          text "Howdy"
+          on_verify_text do |verify_event|
+            verify_event.doit = false if verify_event.text == "Hello"
+          end
+        }
+      }
+    }
+    
+    @text.widget.setText("Hi")
+    assert_equal "Hi", @text.widget.getText
+    
+    @text.widget.setText("Hello")
+    assert_equal "Hi", @text.widget.getText
+  end
+    
+  def test_button_widget_selection_listener
+    person = Person.new
+    person.name = "Bruce Ting"
+    
+    @target = shell {
+      composite {
+        @button = button {
+          on_widget_selected do
+            person.name = "Bruce Lao"
+          end
+        }
+      }
+    }
+    assert_equal "Bruce Ting", person.name
+    @button.widget.setSelection(true)
+    @button.widget.notifyListeners(SWT::Selection, nil)
+    assert_equal "Bruce Lao", person.name
+  end
+    
+end
+

data/test/glimmer_shine_data_binding_test.rb

@@ -0,0 +1,88 @@
+# 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"
+require File.dirname(__FILE__) + "/../src/shine"
+
+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_spaceship
+    person = Person.new
+    person.name = "Bruce Ting"
+    
+    @target = shell {
+      composite {
+        @text = text {
+        }
+      }
+    }
+    
+    [@text, :text] <=> [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
+    
+    comparison = ["he"] <=> ["he"]
+    assert_equal(0, comparison)
+  end
+  
+  def test_multiple_widget_data_bindings_to_different_model_properties_spaceship
+    person = Person.new
+    person.name = "Nancy"
+    person.age = 15
+    person.adult = true
+    
+    @target = shell {
+      composite {
+        @label = label {}
+        @text = text {}
+        @check_box = button(SWT::CHECK) {}
+      }
+    }
+    
+    [@label,     :text]      <=> [person, :name]
+    [@text,      :text]      <=> [person, :age, :fixnum]
+    [@check_box, :selection] <=> [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
+

data/test/glimmer_table_data_binding_test.rb

@@ -0,0 +1,135 @@
+# 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 GlimmerTableDataBindingTest < 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 Group
+    def initialize
+      @people = []
+    end
+    
+    attr_accessor :people
+  end
+	
+  class Person 
+    attr_accessor :name, :age, :adult
+  end
+
+  def test_text_widget_data_binding_string_property
+    person1 = Person.new
+    person1.name = "Bruce Ting"
+    person1.age = 45
+    person1.adult = true
+    
+    person2 = Person.new
+    person2.name = "Julia Fang"
+    person2.age = 17
+    person2.adult = false
+    
+    group = Group.new
+    group.people << person1
+    group.people << person2
+    
+    shell {
+      @table = table {
+        table_column {
+          text "Name"
+          width 120
+        }
+        table_column {
+          text "Age"
+          width 120
+        }
+        table_column {
+          text "Adult"
+          width 120
+        }
+        items bind(group, :people), column_properties(:name, :age, :adult)
+      }
+    }
+    
+    assert_equal 3, @table.widget.getColumnCount
+    assert_equal 2, @table.widget.getItems.size
+    
+    assert_equal "Bruce Ting", @table.widget.getItems[0].getText(0)
+    assert_equal "45", @table.widget.getItems[0].getText(1)
+    assert_equal "true", @table.widget.getItems[0].getText(2)
+    
+    assert_equal "Julia Fang", @table.widget.getItems[1].getText(0)
+    assert_equal "17", @table.widget.getItems[1].getText(1)
+    assert_equal "false", @table.widget.getItems[1].getText(2)
+    
+    person3 = Person.new
+    person3.name = "Andrea Shingle"
+    person3.age = 23
+    person3.adult = true
+    
+    group.people << person3
+    
+    assert_equal 3, @table.widget.getItems.size
+    assert_equal "Andrea Shingle", @table.widget.getItems[2].getText(0)
+    assert_equal "23", @table.widget.getItems[2].getText(1)
+    assert_equal "true", @table.widget.getItems[2].getText(2)
+    
+    group.people.delete person2
+    
+    assert_equal 2, @table.widget.getItems.size
+    assert_equal "Andrea Shingle", @table.widget.getItems[1].getText(0)
+    assert_equal "23", @table.widget.getItems[1].getText(1)
+    assert_equal "true", @table.widget.getItems[1].getText(2)
+    
+    group.people.delete_at(0)
+    
+    assert_equal 1, @table.widget.getItems.size
+    assert_equal "Andrea Shingle", @table.widget.getItems[0].getText(0)
+    assert_equal "23", @table.widget.getItems[0].getText(1)
+    assert_equal "true", @table.widget.getItems[0].getText(2)
+    
+    group.people.clear
+    
+    assert_equal 0, @table.widget.getItems.size
+    
+    group.people = [person2, person1]
+    
+    assert_equal 2, @table.widget.getItems.size
+    
+    assert_equal "Julia Fang", @table.widget.getItems[0].getText(0)
+    assert_equal "17", @table.widget.getItems[0].getText(1)
+    assert_equal "false", @table.widget.getItems[0].getText(2)
+    
+    assert_equal "Bruce Ting", @table.widget.getItems[1].getText(0)
+    assert_equal "45", @table.widget.getItems[1].getText(1)
+    assert_equal "true", @table.widget.getItems[1].getText(2)
+    
+    group.people += [person1, person2]
+    
+    assert_equal 4, @table.widget.getItems.size
+    
+    assert_equal "Bruce Ting", @table.widget.getItems[2].getText(0)
+    assert_equal "45", @table.widget.getItems[2].getText(1)
+    assert_equal "true", @table.widget.getItems[2].getText(2)
+    
+    assert_equal "Julia Fang", @table.widget.getItems[3].getText(0)
+    assert_equal "17", @table.widget.getItems[3].getText(1)
+    assert_equal "false", @table.widget.getItems[3].getText(2)
+    
+    person1.name = "Bruce Flee"
+    
+    assert_equal "Bruce Flee", @table.widget.getItems[1].getText(0)
+    assert_equal "Bruce Flee", @table.widget.getItems[2].getText(0)
+  end
+    
+end
+

data/test/glimmer_test.rb

@@ -0,0 +1,233 @@
+# 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'
+	include_package 'org.eclipse.swt.graphics'
+		
+	def teardown
+		@target.display.dispose if @target.display
+	end
+	
+  def test_shell_with_default_layout
+    @target = shell
+    
+    assert_not_nil @target
+    assert_not_nil @target.widget
+    assert_instance_of Shell, @target.widget
+    assert_not_nil @target.widget.getLayout
+    assert_instance_of FillLayout, @target.widget.getLayout
+  end
+  
+  def test_shell_with_title_and_layout
+    shell_layout = GridLayout.new
+    @target = shell {
+      text "Title"
+      layout shell_layout
+    }
+    
+    assert_equal "Title", @target.widget.getText
+    assert_equal shell_layout, @target.widget.getLayout
+  end
+  
+  def test_shell_with_bounds
+    @target = shell {
+      bounds 50, 75, 800, 600
+    }
+    
+    assert_equal Rectangle.new(50, 75, 800, 600), @target.widget.getBounds
+  end
+  
+  def test_shell_with_size
+    GlimmerTest.class_eval("undef_method :size") #hack to remove existing size method in test class
+    
+    @target = shell {
+      size 800, 600
+    }
+    
+    assert_equal Point.new(800, 600), @target.widget.getSize
+  end
+  
+  def test_shell_and_composite_with_default_style_and_layout
+    @target = shell {
+      composite
+    }
+    
+    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::NONE, composite_widget
+    assert_instance_of GridLayout, composite_widget.getLayout
+    grid_layout = composite_widget.getLayout
+    assert_equal 1, grid_layout.numColumns
+    assert_equal false, grid_layout.makeColumnsEqualWidth
+  end
+  
+  def test_shell_and_group_with_default_style_and_layout
+    @target = shell {
+      group {
+        text "Title"
+      }
+    }
+    
+    assert_equal 1, @target.widget.children.size
+    assert_instance_of Group, @target.widget.children[0]
+    group_widget = @target.widget.children[0]
+    assert_has_style SWT::NONE, group_widget
+    assert_instance_of GridLayout, group_widget.getLayout
+    grid_layout = group_widget.getLayout
+    assert_equal 1, grid_layout.numColumns
+    assert_equal false, grid_layout.makeColumnsEqualWidth
+    assert_equal "Title", group_widget.getText
+  end
+  
+  def test_shell_and_composite_with_style_and_layout
+    composite_layout = RowLayout.new
+    @target = shell {
+      composite(SWT::NO_FOCUS) {
+        layout composite_layout
+      }
+    }
+    
+    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_equal composite_layout, composite_widget.getLayout
+  end
+  
+  def test_shell_and_composite_and_text_with_default_style
+    @target = shell {
+      composite {
+        text
+      }
+    }
+    
+    composite_widget = @target.widget.children[0]
+    assert_equal 1, composite_widget.children.size
+    assert_instance_of Text, composite_widget.children[0]
+    text_widget = composite_widget.children[0]
+    assert_has_style SWT::BORDER, text_widget
+  end
+  
+  def test_shell_and_composite_with_custom_layout_and_text_with_default_style
+    composite_layout = RowLayout.new
+    @target = shell {
+      composite {
+        text
+        layout composite_layout
+      }
+    }
+    
+    composite_widget = @target.widget.children[0]
+    assert_equal composite_layout, composite_widget.getLayout
+    assert_equal 1, composite_widget.children.size
+    assert_instance_of Text, composite_widget.children[0]
+    text_widget = composite_widget.children[0]
+    assert_has_style SWT::BORDER, text_widget
+  end
+  
+  def test_shell_and_composite_and_text_with_style_and_text
+    @target = shell {
+      composite {
+        text(SWT::PASSWORD) {
+          text "Hello"
+        }
+      }
+    }
+    
+    composite_widget = @target.widget.children[0]
+    assert_equal 1, composite_widget.children.size
+    assert_instance_of Text, composite_widget.children[0]
+    text_widget = composite_widget.children[0]
+    assert_has_style SWT::PASSWORD, text_widget
+    assert_equal "Hello", text_widget.getText
+  end
+    
+  def test_shell_and_spinner_default
+    @target = shell {
+      @spinner = spinner {
+        selection 55
+      }
+    }
+    
+    assert_instance_of Spinner, @spinner.widget
+    assert_has_style SWT::BORDER, @spinner.widget
+    assert_equal 55, @spinner.widget.getSelection
+  end
+    
+  def test_shell_and_button_default
+    @target = shell {
+      @button = button {
+        text "Push Me"
+      }
+    }
+    
+    assert_instance_of Button, @button.widget
+    assert_has_style SWT::PUSH, @button.widget
+    assert_equal "Push Me", @button.widget.text
+  end
+    
+  def test_shell_and_table_and_table_column_defaults
+    @target = shell {
+      @table = table {
+        @table_column = table_column
+      }
+    }
+
+    assert_has_style SWT::BORDER, @table.widget
+    assert @table.widget.getHeaderVisible
+    assert @table.widget.getLinesVisible
+    assert_equal 80, @table_column.widget.getWidth
+  end
+    
+  def test_shell_containing_undefined_command
+    @target = shell {
+      undefined_command(:undefined_parameter) { 
+      }
+    }
+    
+    assert_not_nil @target
+    assert_not_nil @target.widget
+    assert_instance_of Shell, @target.widget
+    assert_not_nil @target.widget.getLayout
+    assert_instance_of FillLayout, @target.widget.getLayout
+  end
+  
+    
+  def test_add_contents
+    @target = shell {
+    }
+    
+    add_contents(@target) {
+      composite {
+        text(SWT::PASSWORD) {
+          text "Hello"
+        }
+      }
+    }
+    
+    composite_widget = @target.widget.children[0]
+    assert_equal 1, composite_widget.children.size
+    assert_instance_of Text, composite_widget.children[0]
+    text_widget = composite_widget.children[0]
+    assert_has_style SWT::PASSWORD, text_widget
+    assert_equal "Hello", text_widget.getText
+  end
+  
+  private
+  
+  def assert_has_style(style, widget)
+    assert_equal style, widget.getStyle & style
+  end
+  
+  
+end
+