glimmer 0.1.0.0 → 0.1.2

data/test/glimmer_constant_test.rb

@@ -1,16 +1,16 @@
-# 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__) + "/helper"
 
 class GlimmerTest < Test::Unit::TestCase
-	include Glimmer
+  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
@@ -27,10 +27,5 @@ class GlimmerTest < Test::Unit::TestCase
     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

@@ -1,16 +1,16 @@
-# 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__) + "/helper"
 
 class GlimmerDataBindingTest < Test::Unit::TestCase
-	include Glimmer
+  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
@@ -34,10 +34,10 @@ class GlimmerDataBindingTest < Test::Unit::TestCase
     assert_equal "Bruce Ting", @text.widget.getText
     
     person.name = "Lady Butterfly"
-    assert_equal "Lady Butterfly", @text.widget.getText
+    assert_equal "Lady Butterfly", @text.widget.getText
     
     @text.widget.setText("Allen Cork")
-    assert_equal "Allen Cork", person.name
+    assert_equal "Allen Cork", person.name
   end
     
   def test_text_widget_data_binding_fixnum_property
@@ -55,10 +55,10 @@ class GlimmerDataBindingTest < Test::Unit::TestCase
     assert_equal "15", @text.widget.getText
     
     person.age = 27
-    assert_equal "27", @text.widget.getText
+    assert_equal "27", @text.widget.getText
     
     @text.widget.setText("30")
-    assert_equal 30, person.age
+    assert_equal 30, person.age
   end
     
   def test_label_widget_data_binding_string_property
@@ -94,11 +94,11 @@ class GlimmerDataBindingTest < Test::Unit::TestCase
     assert_equal true, @check_box.widget.getSelection
     
     person.adult = false
-    assert_equal false, @check_box.widget.getSelection
+    assert_equal false, @check_box.widget.getSelection
     
     @check_box.widget.setSelection(true)
     @check_box.widget.notifyListeners(SWT::Selection, nil)
-    assert_equal true, person.adult
+    assert_equal true, person.adult
   end
     
   def test_radio_widget_data_binding_boolean_property
@@ -116,11 +116,11 @@ class GlimmerDataBindingTest < Test::Unit::TestCase
     assert_equal true, @radio.widget.getSelection
     
     person.adult = false
-    assert_equal false, @radio.widget.getSelection
+    assert_equal false, @radio.widget.getSelection
     
     @radio.widget.setSelection(true)
     @radio.widget.notifyListeners(SWT::Selection, nil)
-    assert_equal true, person.adult
+    assert_equal true, person.adult
   end
     
   def test_spinner_widget_data_binding_fixnum_property
@@ -138,11 +138,11 @@ class GlimmerDataBindingTest < Test::Unit::TestCase
     assert_equal 17, @spinner.widget.getSelection
     
     person.age = 20
-    assert_equal 20, @spinner.widget.getSelection
+    assert_equal 20, @spinner.widget.getSelection
     
     @spinner.widget.setSelection(34)
     @spinner.widget.notifyListeners(SWT::Selection, nil)
-    assert_equal 34, person.age
+    assert_equal 34, person.age
   end
     
   def test_widget_data_binding_enablement

data/test/glimmer_list_data_binding_test.rb

@@ -0,0 +1,223 @@
+require File.dirname(__FILE__) + "/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_listeners_test.rb

@@ -1,16 +1,16 @@
-# 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__) + "/helper"
 
 class GlimmerDataBindingTest < Test::Unit::TestCase
-	include Glimmer
+  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

data/test/glimmer_shine_data_binding_test.rb

@@ -1,17 +1,18 @@
-# Copyright (C) 2007-2008 Annas Al Maleh
-# Licensed under the LGPL. See /COPYING.LGPL for more details.
+require File.dirname(__FILE__) + "/helper"
 
-require "test/unit"
-require File.dirname(__FILE__) + "/../src/swt"
-require File.dirname(__FILE__) + "/../src/shine"
+require File.dirname(__FILE__) + "/../lib/shine"
 
 class GlimmerDataBindingTest < Test::Unit::TestCase
-	include Glimmer
+  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

data/test/glimmer_tab_item_test.rb

@@ -0,0 +1,61 @@
+require File.dirname(__FILE__) + "/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
+