Changeset 299 for Include/Classes/ActiveBasic/Core
- Timestamp:
- Aug 24, 2007, 2:10:26 AM (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Include/Classes/ActiveBasic/Core/TypeInfo.ab
r275 r299 174 174 Class _System_TypeBase 175 175 Static pTypes As *TypeBaseImpl 176 Static count As Long 176 177 177 Static isReady = False 178 178 … … 207 207 208 208 Public 209 209 Static count As Long 210 210 Static Sub Initialize() 211 211 pTypes = GC_malloc( 1 ) … … 230 230 Static Function Search( strNamespace As LPSTR, typeName As LPSTR ) As TypeBaseImpl 231 231 ' TODO: 名前空間に対応する 232 232 233 Dim i As Long 233 234 For i = 0 To ELM( count ) … … 251 252 End Namespace 252 253 End Namespace 254 255 Function _System_TypeBase_Search( strNamespace As LPSTR, typeName As LPSTR ) As ActiveBasic.Core.TypeBaseImpl 256 Return ActiveBasic.Core._System_TypeBase.Search( strNamespace, typeName ) 257 End Function
Note:
See TracChangeset
for help on using the changeset viewer.