Lines 855-860
static const IOleContainerVtbl OleContainerVtbl = {
Link Here
|
855 |
OleContainer_LockContainer |
855 |
OleContainer_LockContainer |
856 |
}; |
856 |
}; |
857 |
|
857 |
|
|
|
858 |
|
859 |
#define INFO_THIS(iface) DEFINE_THIS(HTMLDocument, Info, iface) |
860 |
|
861 |
static HRESULT WINAPI Info_QueryInterface(IProvideClassInfo* iface, REFIID riid, void **ppv) |
862 |
{ |
863 |
HTMLDocument *This = INFO_THIS(iface); |
864 |
return htmldoc_query_interface(This, riid, ppv); |
865 |
} |
866 |
|
867 |
static ULONG WINAPI Info_AddRef(IProvideClassInfo* iface) |
868 |
{ |
869 |
HTMLDocument *This = INFO_THIS(iface); |
870 |
return htmldoc_addref(This); |
871 |
} |
872 |
|
873 |
static ULONG WINAPI Info_Release(IProvideClassInfo* iface) |
874 |
{ |
875 |
HTMLDocument *This = INFO_THIS(iface); |
876 |
return htmldoc_release(This); |
877 |
} |
878 |
|
879 |
static HRESULT WINAPI Info_GetClassInfo(IProvideClassInfo* iface, ITypeInfo **ppTI) |
880 |
{ |
881 |
HTMLDocument *This = INFO_THIS(iface); |
882 |
FIXME("(%p)->(%p)\n", This, ppTI); |
883 |
|
884 |
/* HRESULT hres; |
885 |
|
886 |
hres = IDispatchEx_GetTypeInfo(DISPATCHEX(This), 0, 0, ppTI); |
887 |
if (FAILED(hres)) { |
888 |
FIXME("ERROR hres = %08x", hres); |
889 |
} |
890 |
ITypeInfo_AddRef(*ppTI);*/ |
891 |
|
892 |
/*WRONG, BUT FIX BUG #1994*/ |
893 |
*ppTI = (ITypeInfo*)HTMLDOC(This); |
894 |
ITypeInfo_AddRef(*ppTI); |
895 |
|
896 |
return S_OK; |
897 |
} |
898 |
|
899 |
#undef INFO_THIS |
900 |
|
901 |
static const IProvideClassInfoVtbl InfoVtbl = { |
902 |
Info_QueryInterface, |
903 |
Info_AddRef, |
904 |
Info_Release, |
905 |
Info_GetClassInfo |
906 |
}; |
907 |
|
908 |
|
858 |
void HTMLDocument_LockContainer(HTMLDocumentObj *This, BOOL fLock) |
909 |
void HTMLDocument_LockContainer(HTMLDocumentObj *This, BOOL fLock) |
859 |
{ |
910 |
{ |
860 |
IOleContainer *container; |
911 |
IOleContainer *container; |
Lines 878-881
void HTMLDocument_OleObj_Init(HTMLDocument *This)
Link Here
|
878 |
This->IOleControl_iface.lpVtbl = &OleControlVtbl; |
929 |
This->IOleControl_iface.lpVtbl = &OleControlVtbl; |
879 |
This->lpObjectWithSiteVtbl = &ObjectWithSiteVtbl; |
930 |
This->lpObjectWithSiteVtbl = &ObjectWithSiteVtbl; |
880 |
This->IOleContainer_iface.lpVtbl = &OleContainerVtbl; |
931 |
This->IOleContainer_iface.lpVtbl = &OleContainerVtbl; |
|
|
932 |
This->lpInfoVtbl = &InfoVtbl; |
881 |
} |
933 |
} |
882 |
- |
|
|