source:
Include/system/interface.ab@
293
| Last change on this file since 293 was 289, checked in by , 18 years ago | |
|---|---|
| File size: 367 bytes | |
| Rev | Line | |
|---|---|---|
| [288] | 1 | Type InterfaceStructure |
| 2 | thisPtr As VoidPtr | |
| 3 | vtblPtr As VoidPtr | |
| 4 | End Type | |
| 5 | ||
| 6 | Function CastToInterface( obj As Object, typeOfInterface As System.TypeInfo ) As InterfaceStructure | |
| 7 | Dim interfaceStructure As InterfaceStructure | |
| [289] | 8 | |
| 9 | ' TODO: 実装 | |
| 10 | 'interfaceStructure.thisPtr = ObjPtr( obj ) | |
| 11 | 'interfaceStructure.vtblPtr = obj.GetVtbl( typeOfInterface ) | |
| [288] | 12 | End Function |
Note:
See TracBrowser
for help on using the repository browser.
