View | Details | Raw Unified | Return to bug 6758
Collapse All | Expand All

(-)a/dlls/mshtml/oleobj.c (-1 / +52 lines)
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
- 

Return to bug 6758