Changeset 338 for trunk/Include/Classes

Timestamp:

Sep 24, 2007, 3:15:09 PM (17 years ago)

Author:

dai

Message:

静的リンクライブラリ、デバッグ情報の内部形式をバイナリにした（コンパイル時間が短縮されました）。
デリゲートのベースを実装中（まだ動きません）

File:

• trunk/Include/Classes/System/Delegate.ab (modified) (1 diff)

trunk/Include/Classes/System/Delegate.ab

@@ +1 @@
+Namespace System
+
+Class _SimpleDelegate
+Public
+    object As Object
+    methodPtr As VoidPtr
+
+    Sub _SimpleDelegate( object As Object, methodPtr As VoidPtr )
+        This.object = object
+        This.methodPtr = methodPtr
+    End Sub
+End Class
+
+Class DelegateBase
+Protected
+    simpleDelegates As System.Collections.Generic.List<_SimpleDelegate>
+
+Public
+    Sub DelegateBase()
+        simpleDelegates = New System.Collections.Generic.List<_SimpleDelegate>()
+    End Sub
+    Sub Add( sd As System._SimpleDelegate )
+        simpleDelegates.Add( sd )
+    End Sub
+Public
+End Class
+
+
+End Namespace