Changeset 186

Timestamp:

Mar 28, 2007, 3:40:56 AM (17 years ago)

Author:

dai

Message:

タイプミスを修正。

Location:

Include

Files:

• Classes/System/TypeInfo.ab (modified) (1 diff)
• OAIdl.ab (modified) (1 diff)
• com/vbobject.ab (modified) (1 diff)
• ole2.ab (modified) (2 diffs)

Include/Classes/System/TypeInfo.ab

@@ -41 +41 @@
     strNamespace As String
 
-    baseType As Type
+    baseType As TypeInfo
     'interfaces As f(^^;;;
 

Include/OAIdl.ab

@@ -764 +764 @@
     dwHelpContext As DWord
     pvReserved As VoidPtr
-    pfnDeferredFillIn = *Function(p As *EXCEPINFO) As HRESULT
+    pfnDeferredFillIn As *Function(p As *EXCEPINFO) As HRESULT
     scode As SCODE
 End Type

Include/com/vbobject.ab

@@ -88 +88 @@
     End Sub
 
-    Sub Detach() As *IDispatch
+    Sub Detach()
         VBObject.Move(Detach, pdisp)
     End Sub

Include/ole2.ab

@@ -189 +189 @@
 Declare Function OleSave Lib "ole32.dll" (/*IN*/ ByVal pPS As *IPersistStorage, /*IN*/ ByVal pStg As *IStorage, /*IN*/ fSameAsLoad As BOOL) As HRESULT
 
-Declare Function OleLoadFromStream Lib "ole32.dll" ( /*IN*/ ByVal pStm As IStream, /*IN*/ ByRef iidInterface As IID, /*OUT*/ ByRef ppvObj As Any) As HRESULT
-Declare Function OleSaveToStream Lib "ole32.dll" ( /*IN*/ ByVal pPStm As *IPersistStream, /*IN*/ ByVal pStm As IStream) As HRESULT
+Declare Function OleLoadFromStream Lib "ole32.dll" ( /*IN*/ ByVal pStm As *IStream, /*IN*/ ByRef iidInterface As IID, /*OUT*/ ByRef ppvObj As Any) As HRESULT
+Declare Function OleSaveToStream Lib "ole32.dll" ( /*IN*/ ByVal pPStm As *IPersistStream, /*IN*/ ByVal pStm As *IStream) As HRESULT
 
 
@@ -244 +244 @@
                     /*IN*/ ByRef rcBounds As RECT) As HRESULT
 
-Declare Function OleRun Lib "ole32.dll" (/*IN*/ ByVal pUnknown As IUnknown) As HRESULT
+Declare Function OleRun Lib "ole32.dll" (/*IN*/ ByVal pUnknown As *IUnknown) As HRESULT
 Declare Function OleIsRunning Lib "ole32.dll" (/*IN*/ ByVal pObject As *IOleObject) As BOOL
 Declare Function OleLockRunning Lib "ole32.dll" (/*IN*/ ByVal pUnknown As *IUnknown, /*IN*/ ByVal fLock As BOOL, /*IN*/ ByVal fLastUnlockCloses As BOOL) As HRESULT