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

Timestamp:

Sep 29, 2007, 12:44:41 PM (17 years ago)

Author:

dai

Message:

静的メソッドのデリゲートに対応

File:

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

trunk/bin/SubOperation/templates/delegate_class.tab

@@ -15 +15 @@
             For i = 0 To ELM(simpleDelegates.Count)
                 Dim sd = simpleDelegates[i]
-                #result# __delegate_dynamicmethod_call(sd.methodPtr, sd.object, #params#)
+                If sd.hasThisPtr Then
+                    #result# __delegate_dynamicmethod_call(sd.methodPtr, sd.object, #params#)
+                Else
+                    #result# __delegate_staticmethod_call(sd.methodPtr, #params#)
+                End If
             Next
         'End Sub
@@ -30 +34 @@
         End Function
 
-        Static Function _CreateDelegate( object As Object, methodPtr As VoidPtr ) As #name#
+        Static Function _CreateDynamicDelegate( object As Object, methodPtr As VoidPtr ) As #name#
             Dim dg = New #name#
             dg.simpleDelegates.Add( New System._SimpleDelegate( object, methodPtr ) )
             Return dg
         End Function
+
+        Static Function _CreateStaticDelegate( methodPtr As VoidPtr ) As #name#
+            Dim dg = New #name#
+            dg.simpleDelegates.Add( New System._SimpleDelegate( methodPtr ) )
+            Return dg
+        End Function
     End Class
 #namespace_end#