Changeset 28664

Timestamp:

01/19/09 21:14:02 (4 years ago)

Author:

isaisstillalive

Message:

• ListBox?、ComboBoxの外観のテストを記述。
  

Location:

lang/ruby/ruwin

Files:

• lib/ruwin/combo_box.rb (modified) (1 diff)
• test/ruwin/test_combo_box.rb (modified) (3 diffs)
• test/ruwin/test_list_box.rb (modified) (4 diffs)

lang/ruby/ruwin/lib/ruwin/combo_box.rb

@@ -25 +25 @@
     
     class Dropdown < ComboBox
+      STYLE = superclass::STYLE|CBS_DROPDOWN
     end
   end

lang/ruby/ruwin/test/ruwin/test_combo_box.rb

@@ -5 +5 @@
 
 class TestRuwinComboBox < Test::Unit::TestCase
+  include Ruwin::Const::ComboBox
   include TestModuleListBox
   TARGET_CLASS = Ruwin::ComboBox
@@ -11 +12 @@
     assert_equal "COMBOBOX", @listbox.classname
   end
+  
+  def test_style
+    assert_equal CBS_SIMPLE, (@listbox.style&CBS_SIMPLE)
+  end
 end
 
 class TestRuwinComboBoxDropdown < Test::Unit::TestCase
+  include Ruwin::Const::ComboBox
   include TestModuleListBox
   TARGET_CLASS = Ruwin::ComboBox::Dropdown
@@ -20 +26 @@
     assert_equal "COMBOBOX", @listbox.classname
   end
+  
+  def test_style
+    assert_equal CBS_DROPDOWN, (@listbox.style&CBS_DROPDOWN)
+  end
 end

lang/ruby/ruwin/test/ruwin/test_list_box.rb

@@ -76 +76 @@
 
 class TestRuwinListBox < Test::Unit::TestCase
+  include Ruwin::Const::ListBox
   include TestModuleListBoxList
   TARGET_CLASS = Ruwin::ListBox
@@ -82 +83 @@
     assert_equal "LISTBOX", @listbox.classname
   end
+  
+  def test_style
+    assert_equal 0, (@listbox.style&LBS_MULTIPLESEL)
+  end
 end
 
 class TestRuwinListBoxDropdown < Test::Unit::TestCase
+  include Ruwin::Const::ComboBox
   include TestModuleListBoxList
   TARGET_CLASS = Ruwin::ListBox::Dropdown
@@ -91 +97 @@
     assert_equal "COMBOBOX", @listbox.classname
   end
+  
+  def test_style
+    assert_equal CBS_DROPDOWNLIST, (@listbox.style&CBS_DROPDOWNLIST)
+  end
 end
 
 class TestRuwinListBoxMultiple < Test::Unit::TestCase
+  include Ruwin::Const::ListBox
   include TestModuleListBox
   TARGET_CLASS = Ruwin::ListBox::Multiple
@@ -99 +110 @@
   def test_classname
     assert_equal "LISTBOX", @listbox.classname
+  end
+  
+  def test_style
+    assert_equal LBS_MULTIPLESEL, (@listbox.style&LBS_MULTIPLESEL)
   end