glimmer 0.1.5.470 → 0.1.8.470

data/test/glimmer_constant_test.rb

@@ -1,30 +0,0 @@
-require_relative "helper"
-
-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 setup
-    dsl :swt
-  end
-
-	def teardown
-		@target.display.dispose if @target.display
-	end
-
-  def test_shell_with_default_layout_and_composite
-    @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 :no_focus, composite_widget
-    assert_has_style :border, composite_widget
-  end
-end

data/test/glimmer_list_data_binding_test.rb

@@ -1,223 +0,0 @@
-require_relative "helper"
-
-class GlimmerListDataBindingTest < Test::Unit::TestCase
-  include Glimmer
-
-	include_package 'org.eclipse.swt'
-	include_package 'org.eclipse.swt.widgets'
-	include_package 'org.eclipse.swt.layout'
-		
-  def setup
-    dsl :swt
-  end
-
-	def teardown
-  	@target.display.dispose if @target.display
-	end
-  
-  class Person 
-    attr_accessor :country, :country_options
-    attr_accessor :provinces, :provinces_options
-    
-    def initialize
-      self.country_options=[
-        "", 
-        "Canada", 
-        "US", 
-        "Mexico"
-      ]
-      self.provinces_options=[
-        "", 
-        "Quebec", 
-        "Ontario", 
-        "Manitoba", 
-        "Saskatchewan", 
-        "Alberta", 
-        "British Columbia", 
-        "Nova Skotia", 
-        "Newfoundland"
-      ]
-    end
-  end
-
-  def test_single_selection_property
-    person = Person.new
-    
-    @target = shell {
-      @list = list {
-        selection bind(person, :country)
-      }
-    }
-    
-    assert_equal 4, @list.widget.item_count
-    assert_equal -1, @list.widget.selection_index
-    assert_equal [], @list.widget.selection.to_a
-
-    @list.widget.select(1)
-    @list.widget.notifyListeners(SWT::Selection, nil)
-    assert_equal "Canada", person.country
-
-    person.country_options << "France"
-    
-    assert_equal 5, @list.widget.item_count
-    
-    person.country_options=["", "Canada", "US", "Mexico", "Russia", "France"]
-    
-    assert_equal 6, @list.widget.item_count
-    
-    person.country_options << "Italy"
-    person.country_options << "Germany"
-    person.country_options << "Australia"
-    
-    assert_equal 9, @list.widget.item_count
-    
-    person.country = "Canada"
-    
-    assert_equal 1, @list.widget.selection_index
-    assert_equal ["Canada"], @list.widget.selection.to_a
-
-    person.country = "Russia"
-    
-    assert_equal 4, @list.widget.selection_index
-    assert_equal ["Russia"], @list.widget.selection.to_a
-
-    person.country = ""
-    
-    assert_equal 0, @list.widget.selection_index
-    assert_equal [""], @list.widget.selection.to_a
-
-    person.country = "Japan"
-    
-    assert_equal 0, @list.widget.selection_index
-    assert_equal [""], @list.widget.selection.to_a
-    
-    @list.widget.select(2)
-    @list.widget.notifyListeners(SWT::Selection, nil)
-    assert_equal "US", person.country
-  end
-    
-  def test_single_selection_property_with_model_preinitialized
-    person = Person.new
-    person.country = "Canada" 
-    
-    @target = shell {
-      @list = list {
-        selection bind(person, :country)
-      }
-    }
-    
-    assert_equal 4, @list.widget.item_count
-    assert_equal 1, @list.widget.selection_index
-    assert_equal ["Canada"], @list.widget.selection.to_a
-
-    @list.widget.select(2)
-    @list.widget.notifyListeners(SWT::Selection, nil)
-    assert_equal "US", person.country
-
-    person.country_options << "France"
-    
-    assert_equal 5, @list.widget.item_count
-    
-    person.country_options=["", "Canada", "US", "Mexico", "Russia", "France"]
-    
-    assert_equal 6, @list.widget.item_count
-    
-    person.country_options << "Italy"
-    person.country_options << "Germany"
-    person.country_options << "Australia"
-    
-    assert_equal 9, @list.widget.item_count
-    
-    person.country = "Canada"
-    
-    assert_equal 1, @list.widget.selection_index
-    assert_equal ["Canada"], @list.widget.selection.to_a
-
-    person.country = "Russia"
-    
-    assert_equal 4, @list.widget.selection_index
-    assert_equal ["Russia"], @list.widget.selection.to_a
-
-    person.country = ""
-    
-    assert_equal 0, @list.widget.selection_index
-    assert_equal [""], @list.widget.selection.to_a
-
-    person.country = "Japan"
-    
-    assert_equal 0, @list.widget.selection_index
-    assert_equal [""], @list.widget.selection.to_a
-  end
-  
-  def test_multi_selection_property
-    person = Person.new
-    
-    @target = shell {
-      @list = list(:multi) {
-        selection bind(person, :provinces)
-      }
-    }
-    
-    assert_equal 0, @list.widget.selection_count.to_i
-    assert_equal [], @list.widget.selection.to_a
-
-    @list.widget.select(1)
-    @list.widget.notifyListeners(SWT::Selection, nil)
-    assert_equal ["Quebec"], person.provinces
-
-    @list.widget.select(2)
-    @list.widget.notifyListeners(SWT::Selection, nil)
-    assert_equal ["Quebec", "Ontario"], person.provinces
-
-    person.provinces=["Ontario", "Manitoba", "Alberta"]
-    
-    assert_equal 3, @list.widget.selection_count.to_i
-    assert_equal [2, 3, 5], @list.widget.selection_indices.to_a
-    assert_equal ["Ontario", "Manitoba", "Alberta"], @list.widget.selection.to_a
-    
-    person.provinces << "Quebec"
-    person.provinces << "Saskatchewan"
-    person.provinces << "British Columbia"
-    
-    assert_equal 6, @list.widget.selection_count.to_i
-    assert_equal [1, 2, 3, 4, 5, 6], @list.widget.selection_indices.to_a
-    assert_equal ["Quebec", "Ontario", "Manitoba", "Saskatchewan", "Alberta", "British Columbia"], @list.widget.selection.to_a
-   end
-
-  def test_multi_selection_property_with_model_preinitialized
-    person = Person.new
-    person.provinces = []
-    
-    @target = shell {
-      @list = list(:multi) {
-        selection bind(person, :provinces)
-      }
-    }
-    
-    assert_equal 0, @list.widget.selection_count.to_i
-    assert_equal [], @list.widget.selection.to_a
-
-    @list.widget.select(1)
-    @list.widget.notifyListeners(SWT::Selection, nil)
-    assert_equal ["Quebec"], person.provinces
-
-    @list.widget.select(2)
-    @list.widget.notifyListeners(SWT::Selection, nil)
-    assert_equal ["Quebec", "Ontario"], person.provinces
-
-    person.provinces=["Ontario", "Manitoba", "Alberta"]
-    
-    assert_equal 3, @list.widget.selection_count.to_i
-    assert_equal [2, 3, 5], @list.widget.selection_indices.to_a
-    assert_equal ["Ontario", "Manitoba", "Alberta"], @list.widget.selection.to_a
-    
-    person.provinces << "Quebec"
-    person.provinces << "Saskatchewan"
-    person.provinces << "British Columbia"
-    
-    assert_equal 6, @list.widget.selection_count.to_i
-    assert_equal [1, 2, 3, 4, 5, 6], @list.widget.selection_indices.to_a
-    assert_equal ["Quebec", "Ontario", "Manitoba", "Saskatchewan", "Alberta", "British Columbia"], @list.widget.selection.to_a
-   end
-end
-

data/test/glimmer_shine_data_binding_test.rb

@@ -1,89 +0,0 @@
-require_relative "helper"
-
-require_relative "../lib/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 setup
-    dsl :swt
-  end
-
-	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(: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_tab_item_test.rb

@@ -1,61 +0,0 @@
-require_relative "helper"
-
-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 setup
-    dsl :swt
-  end
-
-	def teardown
-		@target.display.dispose if @target.display
-	end
-	
-  def test_tab_item_composite_with_default_layout
-    @target = shell {
-      @tab_folder = tab_folder {
-        @tab_item_composite = tab_item {
-          text "Tab 1"
-          label {text "Hello"}
-        }
-      }
-    }
-    
-    assert_not_nil @target
-    assert_not_nil @target.widget
-    assert_equal 1, @tab_folder.widget.items.size
-    assert_instance_of Composite, @tab_item_composite.widget
-    assert_equal @tab_item_composite.widget, @tab_folder.widget.items[0].control
-    assert_equal "Tab 1", @tab_item_composite.tab_item.widget.text
-    assert_not_nil @tab_item_composite.widget.getLayout
-    assert_instance_of GridLayout, @tab_item_composite.widget.getLayout
-  end
-  
-  def test_tab_item_composite_with_fill_layout
-    @target = shell {
-      @tab_folder = tab_folder {
-        @tab_item_composite = tab_item {
-          text "Tab 2"
-          layout FillLayout.new
-          label {text "Hello"}
-        }
-      }
-    }
-    
-    assert_not_nil @target
-    assert_not_nil @target.widget
-    assert_equal 1, @tab_folder.widget.items.size
-    assert_instance_of Composite, @tab_item_composite.widget
-    assert_equal @tab_item_composite.widget, @tab_folder.widget.items[0].control
-    assert_equal "Tab 2", @tab_item_composite.tab_item.widget.text
-    assert_not_nil @tab_item_composite.widget.getLayout
-    assert_instance_of FillLayout, @tab_item_composite.widget.getLayout
-  end
-  
-end
-

data/test/glimmer_table_data_binding_test.rb

@@ -1,122 +0,0 @@
-require_relative "helper"
-
-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 setup
-    dsl :swt
-  end
-
-	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
-    
-    @target = 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)
-    
-    person1.name = "Bruce Flee"
-    
-    assert_equal "Bruce Flee", @table.widget.getItems[1].getText(0)
-  end
-    
-end
-