Index: trunk/bin/SubOperation/templates/delegate_class.tab
===================================================================
--- trunk/bin/SubOperation/templates/delegate_class.tab	(revision 351)
+++ trunk/bin/SubOperation/templates/delegate_class.tab	(revision 352)
@@ -7,5 +7,5 @@
 		End Sub
 		Sub #name#( dg As #name# )
-			Add( dg )
+			_Add( dg )
 		End Sub
 
@@ -24,11 +24,13 @@
 		#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