Changeset 352 for trunk/bin/SubOperation/templates/delegate_class.tab

Timestamp:

Oct 4, 2007, 2:50:09 AM (17 years ago)

Author:

dai

Message:

System.Collections.Generic.List.RemoveAtメソッドを追加
デリゲート型に対する"-"演算子を追加

File:

• trunk/bin/SubOperation/templates/delegate_class.tab (modified) (2 diffs)

trunk/bin/SubOperation/templates/delegate_class.tab

@@ -7 +7 @@
         End Sub
         Sub #name#( dg As #name# )
-            Add( dg )
+            _Add( dg )
         End Sub
 
@@ -24 +24 @@
         #call_method_end#
 
-        Sub Add( dg As #name# )
-            _Add( dg )
-        End Sub
-
         Function Operator+ ( dg As #name# ) As #name#
             Dim result = New #name#( This )
             result._Add( dg )
+            Return result
+        End Function
+
+        Function Operator- ( dg As #name# ) As #name#
+            Dim result = New #name#( This )
+            result._Delete( dg )
             Return result
         End Function