振り分けルールを認識しないバグを修正(r856でエンバグ)

git-svn-id: http://svn.sourceforge.jp/svnroot/tween/trunk@859 e39ad16e-3079-482e-bb30-4b4d378143b6

diff --git a/Tween/StatusDictionary.vb b/Tween/StatusDictionary.vb
index 2befddd..fa2e705 100644 (file)
--- a/Tween/StatusDictionary.vb
+++ b/Tween/StatusDictionary.vb
@@ -1730,14 +1730,33 @@ Public NotInheritable Class TabClass
     End Sub
 
     <Xml.Serialization.XmlIgnore()> _
-    Public ReadOnly Property Filters() As List(Of FiltersClass)
+    Public Property Filters() As List(Of FiltersClass)
         Get
             SyncLock Me._lockObj
                 Return _filters
             End SyncLock
         End Get
+        Set(ByVal value As List(Of FiltersClass))
+            SyncLock Me._lockObj
+                _filters = value
+            End SyncLock
+        End Set
     End Property
 
+    Public Property FilterArray() As FiltersClass()
+        Get
+            SyncLock Me._lockObj
+                Return _filters.ToArray
+            End SyncLock
+        End Get
+        Set(ByVal value As FiltersClass())
+            SyncLock Me._lockObj
+                For Each filters As FiltersClass In value
+                    _filters.Add(filters)
+                Next
+            End SyncLock
+        End Set
+    End Property
     Public Function Contains(ByVal ID As Long) As Boolean
         Return _ids.Contains(ID)
     End Function