usp10: Propagate the script analysis to the GPOS lookup functions.
[wine] / dlls / mshtml / oleobj.c
1 /*
2  * Copyright 2005 Jacek Caban
3  *
4  * This library is free software; you can redistribute it and/or
5  * modify it under the terms of the GNU Lesser General Public
6  * License as published by the Free Software Foundation; either
7  * version 2.1 of the License, or (at your option) any later version.
8  *
9  * This library is distributed in the hope that it will be useful,
10  * but WITHOUT ANY WARRANTY; without even the implied warranty of
11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
12  * Lesser General Public License for more details.
13  *
14  * You should have received a copy of the GNU Lesser General Public
15  * License along with this library; if not, write to the Free Software
16  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
17  */
18
19 #include "config.h"
20
21 #include <stdarg.h>
22 #include <stdio.h>
23
24 #define COBJMACROS
25
26 #include "windef.h"
27 #include "winbase.h"
28 #include "winuser.h"
29 #include "ole2.h"
30 #include "shlguid.h"
31 #include "shdeprecated.h"
32 #include "mshtmdid.h"
33 #include "idispids.h"
34
35 #include "wine/debug.h"
36
37 #include "mshtml_private.h"
38
39 WINE_DEFAULT_DEBUG_CHANNEL(mshtml);
40
41 #define DOCHOST_DOCCANNAVIGATE  0
42
43 typedef struct {
44     IEnumUnknown IEnumUnknown_iface;
45     LONG ref;
46 } EnumUnknown;
47
48 static inline EnumUnknown *impl_from_IEnumUnknown(IEnumUnknown *iface)
49 {
50     return CONTAINING_RECORD(iface, EnumUnknown, IEnumUnknown_iface);
51 }
52
53 static HRESULT WINAPI EnumUnknown_QueryInterface(IEnumUnknown *iface, REFIID riid, void **ppv)
54 {
55     EnumUnknown *This = impl_from_IEnumUnknown(iface);
56
57     if(IsEqualGUID(&IID_IUnknown, riid)) {
58         TRACE("(%p)->(IID_IUnknown %p)\n", This, ppv);
59         *ppv = &This->IEnumUnknown_iface;
60     }else if(IsEqualGUID(&IID_IEnumUnknown, riid)) {
61         TRACE("(%p)->(IID_IEnumUnknown %p)\n", This, ppv);
62         *ppv = &This->IEnumUnknown_iface;
63     }else {
64         WARN("(%p)->(%s %p)\n", This, debugstr_guid(riid), ppv);
65         *ppv = NULL;
66         return E_NOINTERFACE;
67     }
68
69     IUnknown_AddRef((IUnknown*)*ppv);
70     return S_OK;
71 }
72
73 static ULONG WINAPI EnumUnknown_AddRef(IEnumUnknown *iface)
74 {
75     EnumUnknown *This = impl_from_IEnumUnknown(iface);
76     LONG ref = InterlockedIncrement(&This->ref);
77
78     TRACE("(%p) ref=%d\n", This, ref);
79
80     return ref;
81 }
82
83 static ULONG WINAPI EnumUnknown_Release(IEnumUnknown *iface)
84 {
85     EnumUnknown *This = impl_from_IEnumUnknown(iface);
86     LONG ref = InterlockedDecrement(&This->ref);
87
88     TRACE("(%p) ref=%d\n", This, ref);
89
90     if(!ref)
91         heap_free(This);
92
93     return ref;
94 }
95
96 static HRESULT WINAPI EnumUnknown_Next(IEnumUnknown *iface, ULONG celt, IUnknown **rgelt, ULONG *pceltFetched)
97 {
98     EnumUnknown *This = impl_from_IEnumUnknown(iface);
99
100     TRACE("(%p)->(%u %p %p)\n", This, celt, rgelt, pceltFetched);
101
102     /* FIXME: It's not clear if we should ever return something here */
103     if(pceltFetched)
104         *pceltFetched = 0;
105     return S_FALSE;
106 }
107
108 static HRESULT WINAPI EnumUnknown_Skip(IEnumUnknown *iface, ULONG celt)
109 {
110     EnumUnknown *This = impl_from_IEnumUnknown(iface);
111     FIXME("(%p)->(%u)\n", This, celt);
112     return E_NOTIMPL;
113 }
114
115 static HRESULT WINAPI EnumUnknown_Reset(IEnumUnknown *iface)
116 {
117     EnumUnknown *This = impl_from_IEnumUnknown(iface);
118     FIXME("(%p)\n", This);
119     return E_NOTIMPL;
120 }
121
122 static HRESULT WINAPI EnumUnknown_Clone(IEnumUnknown *iface, IEnumUnknown **ppenum)
123 {
124     EnumUnknown *This = impl_from_IEnumUnknown(iface);
125     FIXME("(%p)->(%p)\n", This, ppenum);
126     return E_NOTIMPL;
127 }
128
129 static const IEnumUnknownVtbl EnumUnknownVtbl = {
130     EnumUnknown_QueryInterface,
131     EnumUnknown_AddRef,
132     EnumUnknown_Release,
133     EnumUnknown_Next,
134     EnumUnknown_Skip,
135     EnumUnknown_Reset,
136     EnumUnknown_Clone
137 };
138
139 /**********************************************************
140  * IOleObject implementation
141  */
142
143 static inline HTMLDocument *impl_from_IOleObject(IOleObject *iface)
144 {
145     return CONTAINING_RECORD(iface, HTMLDocument, IOleObject_iface);
146 }
147
148 static HRESULT WINAPI OleObject_QueryInterface(IOleObject *iface, REFIID riid, void **ppv)
149 {
150     HTMLDocument *This = impl_from_IOleObject(iface);
151     return htmldoc_query_interface(This, riid, ppv);
152 }
153
154 static ULONG WINAPI OleObject_AddRef(IOleObject *iface)
155 {
156     HTMLDocument *This = impl_from_IOleObject(iface);
157     return htmldoc_addref(This);
158 }
159
160 static ULONG WINAPI OleObject_Release(IOleObject *iface)
161 {
162     HTMLDocument *This = impl_from_IOleObject(iface);
163     return htmldoc_release(This);
164 }
165
166 static void update_hostinfo(HTMLDocumentObj *This, DOCHOSTUIINFO *hostinfo)
167 {
168     nsIScrollable *scrollable;
169     nsresult nsres;
170
171     if(!This->nscontainer)
172         return;
173
174     nsres = nsIWebBrowser_QueryInterface(This->nscontainer->webbrowser, &IID_nsIScrollable, (void**)&scrollable);
175     if(NS_SUCCEEDED(nsres)) {
176         nsres = nsIScrollable_SetDefaultScrollbarPreferences(scrollable, ScrollOrientation_Y,
177                 (hostinfo->dwFlags & DOCHOSTUIFLAG_SCROLL_NO) ? Scrollbar_Never : Scrollbar_Always);
178         if(NS_FAILED(nsres))
179             ERR("Could not set default Y scrollbar prefs: %08x\n", nsres);
180
181         nsres = nsIScrollable_SetDefaultScrollbarPreferences(scrollable, ScrollOrientation_X,
182                 hostinfo->dwFlags & DOCHOSTUIFLAG_SCROLL_NO ? Scrollbar_Never : Scrollbar_Auto);
183         if(NS_FAILED(nsres))
184             ERR("Could not set default X scrollbar prefs: %08x\n", nsres);
185
186         nsIScrollable_Release(scrollable);
187     }else {
188         ERR("Could not get nsIScrollable: %08x\n", nsres);
189     }
190 }
191
192 /* Calls undocumented 84 cmd of CGID_ShellDocView */
193 void call_docview_84(HTMLDocumentObj *doc)
194 {
195     IOleCommandTarget *olecmd;
196     VARIANT var;
197     HRESULT hres;
198
199     if(!doc->client)
200         return;
201
202     hres = IOleClientSite_QueryInterface(doc->client, &IID_IOleCommandTarget, (void**)&olecmd);
203     if(FAILED(hres))
204         return;
205
206     VariantInit(&var);
207     hres = IOleCommandTarget_Exec(olecmd, &CGID_ShellDocView, 84, 0, NULL, &var);
208     IOleCommandTarget_Release(olecmd);
209     if(SUCCEEDED(hres) && V_VT(&var) != VT_NULL)
210         FIXME("handle result\n");
211 }
212
213 static HRESULT WINAPI OleObject_SetClientSite(IOleObject *iface, IOleClientSite *pClientSite)
214 {
215     HTMLDocument *This = impl_from_IOleObject(iface);
216     IOleCommandTarget *cmdtrg = NULL;
217     IOleWindow *ole_window;
218     BOOL hostui_setup;
219     VARIANT silent;
220     HWND hwnd;
221     HRESULT hres;
222
223     TRACE("(%p)->(%p)\n", This, pClientSite);
224
225     if(pClientSite == This->doc_obj->client)
226         return S_OK;
227
228     if(This->doc_obj->client) {
229         IOleClientSite_Release(This->doc_obj->client);
230         This->doc_obj->client = NULL;
231         This->doc_obj->usermode = UNKNOWN_USERMODE;
232     }
233
234     if(This->doc_obj->client_cmdtrg) {
235         IOleCommandTarget_Release(This->doc_obj->client_cmdtrg);
236         This->doc_obj->client_cmdtrg = NULL;
237     }
238
239     if(This->doc_obj->hostui && !This->doc_obj->custom_hostui) {
240         IDocHostUIHandler_Release(This->doc_obj->hostui);
241         This->doc_obj->hostui = NULL;
242     }
243
244     if(This->doc_obj->doc_object_service) {
245         IDocObjectService_Release(This->doc_obj->doc_object_service);
246         This->doc_obj->doc_object_service = NULL;
247     }
248
249     memset(&This->doc_obj->hostinfo, 0, sizeof(DOCHOSTUIINFO));
250     This->doc_obj->is_webbrowser = FALSE;
251
252     if(!pClientSite)
253         return S_OK;
254
255     IOleClientSite_AddRef(pClientSite);
256     This->doc_obj->client = pClientSite;
257
258     hostui_setup = This->doc_obj->hostui_setup;
259
260     if(!This->doc_obj->hostui) {
261         IDocHostUIHandler *uihandler;
262
263         This->doc_obj->custom_hostui = FALSE;
264
265         hres = IOleClientSite_QueryInterface(pClientSite, &IID_IDocHostUIHandler, (void**)&uihandler);
266         if(SUCCEEDED(hres))
267             This->doc_obj->hostui = uihandler;
268     }
269
270     if(This->doc_obj->hostui) {
271         DOCHOSTUIINFO hostinfo;
272         LPOLESTR key_path = NULL, override_key_path = NULL;
273         IDocHostUIHandler2 *uihandler2;
274
275         memset(&hostinfo, 0, sizeof(DOCHOSTUIINFO));
276         hostinfo.cbSize = sizeof(DOCHOSTUIINFO);
277         hres = IDocHostUIHandler_GetHostInfo(This->doc_obj->hostui, &hostinfo);
278         if(SUCCEEDED(hres)) {
279             TRACE("hostinfo = {%u %08x %08x %s %s}\n",
280                     hostinfo.cbSize, hostinfo.dwFlags, hostinfo.dwDoubleClick,
281                     debugstr_w(hostinfo.pchHostCss), debugstr_w(hostinfo.pchHostNS));
282             update_hostinfo(This->doc_obj, &hostinfo);
283             This->doc_obj->hostinfo = hostinfo;
284         }
285
286         if(!hostui_setup) {
287             hres = IDocHostUIHandler_GetOptionKeyPath(This->doc_obj->hostui, &key_path, 0);
288             if(hres == S_OK && key_path) {
289                 if(key_path[0]) {
290                     /* FIXME: use key_path */
291                     TRACE("key_path = %s\n", debugstr_w(key_path));
292                 }
293                 CoTaskMemFree(key_path);
294             }
295
296             hres = IDocHostUIHandler_QueryInterface(This->doc_obj->hostui, &IID_IDocHostUIHandler2,
297                     (void**)&uihandler2);
298             if(SUCCEEDED(hres)) {
299                 hres = IDocHostUIHandler2_GetOverrideKeyPath(uihandler2, &override_key_path, 0);
300                 if(hres == S_OK && override_key_path && override_key_path[0]) {
301                     if(override_key_path[0]) {
302                         /*FIXME: use override_key_path */
303                         TRACE("override_key_path = %s\n", debugstr_w(override_key_path));
304                     }
305                     CoTaskMemFree(override_key_path);
306                 }
307                 IDocHostUIHandler2_Release(uihandler2);
308             }
309
310             This->doc_obj->hostui_setup = TRUE;
311         }
312     }
313
314     /* Native calls here GetWindow. What is it for?
315      * We don't have anything to do with it here (yet). */
316     hres = IOleClientSite_QueryInterface(pClientSite, &IID_IOleWindow, (void**)&ole_window);
317     if(SUCCEEDED(hres)) {
318         IOleWindow_GetWindow(ole_window, &hwnd);
319         IOleWindow_Release(ole_window);
320     }
321
322     hres = IOleClientSite_QueryInterface(pClientSite, &IID_IOleCommandTarget, (void**)&cmdtrg);
323     if(SUCCEEDED(hres)) {
324         VARIANT var;
325         OLECMD cmd = {OLECMDID_SETPROGRESSTEXT, 0};
326
327         This->doc_obj->client_cmdtrg = cmdtrg;
328
329         if(!hostui_setup) {
330             IDocObjectService *doc_object_service;
331             IBrowserService *browser_service;
332             IWebBrowser2 *wb;
333
334             V_VT(&var) = VT_UNKNOWN;
335             V_UNKNOWN(&var) = (IUnknown*)&This->window->base.IHTMLWindow2_iface;
336             IOleCommandTarget_Exec(cmdtrg, &CGID_DocHostCmdPriv, DOCHOST_DOCCANNAVIGATE, 0, &var, NULL);
337
338             hres = do_query_service((IUnknown*)pClientSite, &IID_IShellBrowser,
339                     &IID_IBrowserService, (void**)&browser_service);
340             if(SUCCEEDED(hres)) {
341                 hres = IBrowserService_QueryInterface(browser_service,
342                         &IID_IDocObjectService, (void**)&doc_object_service);
343                 if(SUCCEEDED(hres)) {
344                     This->doc_obj->doc_object_service = doc_object_service;
345
346                     /*
347                      * Some embedding routines, esp. in regards to use of IDocObjectService, differ if
348                      * embedder supports IWebBrowserApp.
349                      */
350                     hres = do_query_service((IUnknown*)pClientSite, &IID_IWebBrowserApp, &IID_IWebBrowser2, (void**)&wb);
351                     if(SUCCEEDED(hres)) {
352                         This->doc_obj->is_webbrowser = TRUE;
353                         IWebBrowser2_Release(wb);
354                     }
355
356                     IBrowserService_Release(browser_service);
357                 }
358             }
359         }
360
361         call_docview_84(This->doc_obj);
362
363         IOleCommandTarget_QueryStatus(cmdtrg, NULL, 1, &cmd, NULL);
364
365         V_VT(&var) = VT_I4;
366         V_I4(&var) = 0;
367         IOleCommandTarget_Exec(cmdtrg, NULL, OLECMDID_SETPROGRESSMAX,
368                 OLECMDEXECOPT_DONTPROMPTUSER, &var, NULL);
369         IOleCommandTarget_Exec(cmdtrg, NULL, OLECMDID_SETPROGRESSPOS, 
370                 OLECMDEXECOPT_DONTPROMPTUSER, &var, NULL);
371     }
372
373     if(This->doc_obj->usermode == UNKNOWN_USERMODE)
374         IOleControl_OnAmbientPropertyChange(&This->IOleControl_iface, DISPID_AMBIENT_USERMODE);
375
376     IOleControl_OnAmbientPropertyChange(&This->IOleControl_iface,
377             DISPID_AMBIENT_OFFLINEIFNOTCONNECTED);
378
379     hres = get_client_disp_property(This->doc_obj->client, DISPID_AMBIENT_SILENT, &silent);
380     if(SUCCEEDED(hres)) {
381         if(V_VT(&silent) != VT_BOOL)
382             WARN("silent = %s\n", debugstr_variant(&silent));
383         else if(V_BOOL(&silent))
384             FIXME("silent == true\n");
385     }
386
387     IOleControl_OnAmbientPropertyChange(&This->IOleControl_iface, DISPID_AMBIENT_USERAGENT);
388     IOleControl_OnAmbientPropertyChange(&This->IOleControl_iface, DISPID_AMBIENT_PALETTE);
389
390     return S_OK;
391 }
392
393 static HRESULT WINAPI OleObject_GetClientSite(IOleObject *iface, IOleClientSite **ppClientSite)
394 {
395     HTMLDocument *This = impl_from_IOleObject(iface);
396
397     TRACE("(%p)->(%p)\n", This, ppClientSite);
398
399     if(!ppClientSite)
400         return E_INVALIDARG;
401
402     if(This->doc_obj->client)
403         IOleClientSite_AddRef(This->doc_obj->client);
404     *ppClientSite = This->doc_obj->client;
405
406     return S_OK;
407 }
408
409 static HRESULT WINAPI OleObject_SetHostNames(IOleObject *iface, LPCOLESTR szContainerApp, LPCOLESTR szContainerObj)
410 {
411     HTMLDocument *This = impl_from_IOleObject(iface);
412     FIXME("(%p)->(%s %s)\n", This, debugstr_w(szContainerApp), debugstr_w(szContainerObj));
413     return E_NOTIMPL;
414 }
415
416 static HRESULT WINAPI OleObject_Close(IOleObject *iface, DWORD dwSaveOption)
417 {
418     HTMLDocument *This = impl_from_IOleObject(iface);
419
420     TRACE("(%p)->(%08x)\n", This, dwSaveOption);
421
422     if(dwSaveOption == OLECLOSE_PROMPTSAVE)
423         FIXME("OLECLOSE_PROMPTSAVE not implemented\n");
424
425     if(This->doc_obj->in_place_active)
426         IOleInPlaceObjectWindowless_InPlaceDeactivate(&This->IOleInPlaceObjectWindowless_iface);
427
428     HTMLDocument_LockContainer(This->doc_obj, FALSE);
429
430     if(This->advise_holder)
431         IOleAdviseHolder_SendOnClose(This->advise_holder);
432     
433     return S_OK;
434 }
435
436 static HRESULT WINAPI OleObject_SetMoniker(IOleObject *iface, DWORD dwWhichMoniker, IMoniker *pmk)
437 {
438     HTMLDocument *This = impl_from_IOleObject(iface);
439     FIXME("(%p %d %p)->()\n", This, dwWhichMoniker, pmk);
440     return E_NOTIMPL;
441 }
442
443 static HRESULT WINAPI OleObject_GetMoniker(IOleObject *iface, DWORD dwAssign, DWORD dwWhichMoniker, IMoniker **ppmk)
444 {
445     HTMLDocument *This = impl_from_IOleObject(iface);
446     FIXME("(%p)->(%d %d %p)\n", This, dwAssign, dwWhichMoniker, ppmk);
447     return E_NOTIMPL;
448 }
449
450 static HRESULT WINAPI OleObject_InitFromData(IOleObject *iface, IDataObject *pDataObject, BOOL fCreation,
451                                         DWORD dwReserved)
452 {
453     HTMLDocument *This = impl_from_IOleObject(iface);
454     FIXME("(%p)->(%p %x %d)\n", This, pDataObject, fCreation, dwReserved);
455     return E_NOTIMPL;
456 }
457
458 static HRESULT WINAPI OleObject_GetClipboardData(IOleObject *iface, DWORD dwReserved, IDataObject **ppDataObject)
459 {
460     HTMLDocument *This = impl_from_IOleObject(iface);
461     FIXME("(%p)->(%d %p)\n", This, dwReserved, ppDataObject);
462     return E_NOTIMPL;
463 }
464
465 static HRESULT WINAPI OleObject_DoVerb(IOleObject *iface, LONG iVerb, LPMSG lpmsg, IOleClientSite *pActiveSite,
466                                         LONG lindex, HWND hwndParent, LPCRECT lprcPosRect)
467 {
468     HTMLDocument *This = impl_from_IOleObject(iface);
469     IOleDocumentSite *pDocSite;
470     HRESULT hres;
471
472     TRACE("(%p)->(%d %p %p %d %p %p)\n", This, iVerb, lpmsg, pActiveSite, lindex, hwndParent, lprcPosRect);
473
474     if(iVerb != OLEIVERB_SHOW && iVerb != OLEIVERB_UIACTIVATE && iVerb != OLEIVERB_INPLACEACTIVATE) { 
475         FIXME("iVerb = %d not supported\n", iVerb);
476         return E_NOTIMPL;
477     }
478
479     if(!pActiveSite)
480         pActiveSite = This->doc_obj->client;
481
482     hres = IOleClientSite_QueryInterface(pActiveSite, &IID_IOleDocumentSite, (void**)&pDocSite);
483     if(SUCCEEDED(hres)) {
484         HTMLDocument_LockContainer(This->doc_obj, TRUE);
485
486         /* FIXME: Create new IOleDocumentView. See CreateView for more info. */
487         hres = IOleDocumentSite_ActivateMe(pDocSite, &This->IOleDocumentView_iface);
488         IOleDocumentSite_Release(pDocSite);
489     }else {
490         hres = IOleDocumentView_UIActivate(&This->IOleDocumentView_iface, TRUE);
491         if(SUCCEEDED(hres)) {
492             if(lprcPosRect) {
493                 RECT rect; /* We need to pass rect as not const pointer */
494                 rect = *lprcPosRect;
495                 IOleDocumentView_SetRect(&This->IOleDocumentView_iface, &rect);
496             }
497             IOleDocumentView_Show(&This->IOleDocumentView_iface, TRUE);
498         }
499     }
500
501     return hres;
502 }
503
504 static HRESULT WINAPI OleObject_EnumVerbs(IOleObject *iface, IEnumOLEVERB **ppEnumOleVerb)
505 {
506     HTMLDocument *This = impl_from_IOleObject(iface);
507     FIXME("(%p)->(%p)\n", This, ppEnumOleVerb);
508     return E_NOTIMPL;
509 }
510
511 static HRESULT WINAPI OleObject_Update(IOleObject *iface)
512 {
513     HTMLDocument *This = impl_from_IOleObject(iface);
514     FIXME("(%p)\n", This);
515     return E_NOTIMPL;
516 }
517
518 static HRESULT WINAPI OleObject_IsUpToDate(IOleObject *iface)
519 {
520     HTMLDocument *This = impl_from_IOleObject(iface);
521     FIXME("(%p)\n", This);
522     return E_NOTIMPL;
523 }
524
525 static HRESULT WINAPI OleObject_GetUserClassID(IOleObject *iface, CLSID *pClsid)
526 {
527     HTMLDocument *This = impl_from_IOleObject(iface);
528
529     TRACE("(%p)->(%p)\n", This, pClsid);
530
531     if(!pClsid)
532         return E_INVALIDARG;
533
534     *pClsid = CLSID_HTMLDocument;
535     return S_OK;
536 }
537
538 static HRESULT WINAPI OleObject_GetUserType(IOleObject *iface, DWORD dwFormOfType, LPOLESTR *pszUserType)
539 {
540     HTMLDocument *This = impl_from_IOleObject(iface);
541     FIXME("(%p)->(%d %p)\n", This, dwFormOfType, pszUserType);
542     return E_NOTIMPL;
543 }
544
545 static HRESULT WINAPI OleObject_SetExtent(IOleObject *iface, DWORD dwDrawAspect, SIZEL *psizel)
546 {
547     HTMLDocument *This = impl_from_IOleObject(iface);
548     FIXME("(%p)->(%d %p)\n", This, dwDrawAspect, psizel);
549     return E_NOTIMPL;
550 }
551
552 static HRESULT WINAPI OleObject_GetExtent(IOleObject *iface, DWORD dwDrawAspect, SIZEL *psizel)
553 {
554     HTMLDocument *This = impl_from_IOleObject(iface);
555     FIXME("(%p)->(%d %p)\n", This, dwDrawAspect, psizel);
556     return E_NOTIMPL;
557 }
558
559 static HRESULT WINAPI OleObject_Advise(IOleObject *iface, IAdviseSink *pAdvSink, DWORD *pdwConnection)
560 {
561     HTMLDocument *This = impl_from_IOleObject(iface);
562     TRACE("(%p)->(%p %p)\n", This, pAdvSink, pdwConnection);
563
564     if(!pdwConnection)
565         return E_INVALIDARG;
566
567     if(!pAdvSink) {
568         *pdwConnection = 0;
569         return E_INVALIDARG;
570     }
571
572     if(!This->advise_holder) {
573         CreateOleAdviseHolder(&This->advise_holder);
574         if(!This->advise_holder)
575             return E_OUTOFMEMORY;
576     }
577
578     return IOleAdviseHolder_Advise(This->advise_holder, pAdvSink, pdwConnection);
579 }
580
581 static HRESULT WINAPI OleObject_Unadvise(IOleObject *iface, DWORD dwConnection)
582 {
583     HTMLDocument *This = impl_from_IOleObject(iface);
584     TRACE("(%p)->(%d)\n", This, dwConnection);
585
586     if(!This->advise_holder)
587         return OLE_E_NOCONNECTION;
588
589     return IOleAdviseHolder_Unadvise(This->advise_holder, dwConnection);
590 }
591
592 static HRESULT WINAPI OleObject_EnumAdvise(IOleObject *iface, IEnumSTATDATA **ppenumAdvise)
593 {
594     HTMLDocument *This = impl_from_IOleObject(iface);
595
596     if(!This->advise_holder) {
597         *ppenumAdvise = NULL;
598         return S_OK;
599     }
600
601     return IOleAdviseHolder_EnumAdvise(This->advise_holder, ppenumAdvise);
602 }
603
604 static HRESULT WINAPI OleObject_GetMiscStatus(IOleObject *iface, DWORD dwAspect, DWORD *pdwStatus)
605 {
606     HTMLDocument *This = impl_from_IOleObject(iface);
607     FIXME("(%p)->(%d %p)\n", This, dwAspect, pdwStatus);
608     return E_NOTIMPL;
609 }
610
611 static HRESULT WINAPI OleObject_SetColorScheme(IOleObject *iface, LOGPALETTE *pLogpal)
612 {
613     HTMLDocument *This = impl_from_IOleObject(iface);
614     FIXME("(%p)->(%p)\n", This, pLogpal);
615     return E_NOTIMPL;
616 }
617
618 static const IOleObjectVtbl OleObjectVtbl = {
619     OleObject_QueryInterface,
620     OleObject_AddRef,
621     OleObject_Release,
622     OleObject_SetClientSite,
623     OleObject_GetClientSite,
624     OleObject_SetHostNames,
625     OleObject_Close,
626     OleObject_SetMoniker,
627     OleObject_GetMoniker,
628     OleObject_InitFromData,
629     OleObject_GetClipboardData,
630     OleObject_DoVerb,
631     OleObject_EnumVerbs,
632     OleObject_Update,
633     OleObject_IsUpToDate,
634     OleObject_GetUserClassID,
635     OleObject_GetUserType,
636     OleObject_SetExtent,
637     OleObject_GetExtent,
638     OleObject_Advise,
639     OleObject_Unadvise,
640     OleObject_EnumAdvise,
641     OleObject_GetMiscStatus,
642     OleObject_SetColorScheme
643 };
644
645 /**********************************************************
646  * IOleDocument implementation
647  */
648
649 static inline HTMLDocument *impl_from_IOleDocument(IOleDocument *iface)
650 {
651     return CONTAINING_RECORD(iface, HTMLDocument, IOleDocument_iface);
652 }
653
654 static HRESULT WINAPI OleDocument_QueryInterface(IOleDocument *iface, REFIID riid, void **ppv)
655 {
656     HTMLDocument *This = impl_from_IOleDocument(iface);
657     return htmldoc_query_interface(This, riid, ppv);
658 }
659
660 static ULONG WINAPI OleDocument_AddRef(IOleDocument *iface)
661 {
662     HTMLDocument *This = impl_from_IOleDocument(iface);
663     return htmldoc_addref(This);
664 }
665
666 static ULONG WINAPI OleDocument_Release(IOleDocument *iface)
667 {
668     HTMLDocument *This = impl_from_IOleDocument(iface);
669     return htmldoc_release(This);
670 }
671
672 static HRESULT WINAPI OleDocument_CreateView(IOleDocument *iface, IOleInPlaceSite *pIPSite, IStream *pstm,
673                                    DWORD dwReserved, IOleDocumentView **ppView)
674 {
675     HTMLDocument *This = impl_from_IOleDocument(iface);
676     HRESULT hres;
677
678     TRACE("(%p)->(%p %p %d %p)\n", This, pIPSite, pstm, dwReserved, ppView);
679
680     if(!ppView)
681         return E_INVALIDARG;
682
683     /* FIXME:
684      * Windows implementation creates new IOleDocumentView when function is called for the
685      * first time and returns E_FAIL when it is called for the second time, but it doesn't matter
686      * if the application uses returned interfaces, passed to ActivateMe or returned by
687      * QueryInterface, so there is no reason to create new interface. This needs more testing.
688      */
689
690     if(pIPSite) {
691         hres = IOleDocumentView_SetInPlaceSite(&This->IOleDocumentView_iface, pIPSite);
692         if(FAILED(hres))
693             return hres;
694     }
695
696     if(pstm)
697         FIXME("pstm is not supported\n");
698
699     IOleDocumentView_AddRef(&This->IOleDocumentView_iface);
700     *ppView = &This->IOleDocumentView_iface;
701     return S_OK;
702 }
703
704 static HRESULT WINAPI OleDocument_GetDocMiscStatus(IOleDocument *iface, DWORD *pdwStatus)
705 {
706     HTMLDocument *This = impl_from_IOleDocument(iface);
707     FIXME("(%p)->(%p)\n", This, pdwStatus);
708     return E_NOTIMPL;
709 }
710
711 static HRESULT WINAPI OleDocument_EnumViews(IOleDocument *iface, IEnumOleDocumentViews **ppEnum,
712                                    IOleDocumentView **ppView)
713 {
714     HTMLDocument *This = impl_from_IOleDocument(iface);
715     FIXME("(%p)->(%p %p)\n", This, ppEnum, ppView);
716     return E_NOTIMPL;
717 }
718
719 static const IOleDocumentVtbl OleDocumentVtbl = {
720     OleDocument_QueryInterface,
721     OleDocument_AddRef,
722     OleDocument_Release,
723     OleDocument_CreateView,
724     OleDocument_GetDocMiscStatus,
725     OleDocument_EnumViews
726 };
727
728 /**********************************************************
729  * IOleControl implementation
730  */
731
732 static inline HTMLDocument *impl_from_IOleControl(IOleControl *iface)
733 {
734     return CONTAINING_RECORD(iface, HTMLDocument, IOleControl_iface);
735 }
736
737 static HRESULT WINAPI OleControl_QueryInterface(IOleControl *iface, REFIID riid, void **ppv)
738 {
739     HTMLDocument *This = impl_from_IOleControl(iface);
740     return htmldoc_query_interface(This, riid, ppv);
741 }
742
743 static ULONG WINAPI OleControl_AddRef(IOleControl *iface)
744 {
745     HTMLDocument *This = impl_from_IOleControl(iface);
746     return htmldoc_addref(This);
747 }
748
749 static ULONG WINAPI OleControl_Release(IOleControl *iface)
750 {
751     HTMLDocument *This = impl_from_IOleControl(iface);
752     return htmldoc_release(This);
753 }
754
755 static HRESULT WINAPI OleControl_GetControlInfo(IOleControl *iface, CONTROLINFO *pCI)
756 {
757     HTMLDocument *This = impl_from_IOleControl(iface);
758     FIXME("(%p)->(%p)\n", This, pCI);
759     return E_NOTIMPL;
760 }
761
762 static HRESULT WINAPI OleControl_OnMnemonic(IOleControl *iface, MSG *pMsg)
763 {
764     HTMLDocument *This = impl_from_IOleControl(iface);
765     FIXME("(%p)->(%p)\n", This, pMsg);
766     return E_NOTIMPL;
767 }
768
769 HRESULT get_client_disp_property(IOleClientSite *client, DISPID dispid, VARIANT *res)
770 {
771     IDispatch *disp = NULL;
772     DISPPARAMS dispparams = {NULL, 0};
773     UINT err;
774     HRESULT hres;
775
776     hres = IOleClientSite_QueryInterface(client, &IID_IDispatch, (void**)&disp);
777     if(FAILED(hres)) {
778         TRACE("Could not get IDispatch\n");
779         return hres;
780     }
781
782     VariantInit(res);
783
784     hres = IDispatch_Invoke(disp, dispid, &IID_NULL, LOCALE_SYSTEM_DEFAULT,
785             DISPATCH_PROPERTYGET, &dispparams, res, NULL, &err);
786
787     IDispatch_Release(disp);
788
789     return hres;
790 }
791
792 static HRESULT on_change_dlcontrol(HTMLDocument *This)
793 {
794     VARIANT res;
795     HRESULT hres;
796     
797     hres = get_client_disp_property(This->doc_obj->client, DISPID_AMBIENT_DLCONTROL, &res);
798     if(SUCCEEDED(hres))
799         FIXME("unsupported dlcontrol %08x\n", V_I4(&res));
800
801     return S_OK;
802 }
803
804 static HRESULT WINAPI OleControl_OnAmbientPropertyChange(IOleControl *iface, DISPID dispID)
805 {
806     HTMLDocument *This = impl_from_IOleControl(iface);
807     IOleClientSite *client;
808     VARIANT res;
809     HRESULT hres;
810
811     client = This->doc_obj->client;
812     if(!client) {
813         TRACE("client = NULL\n");
814         return S_OK;
815     }
816
817     switch(dispID) {
818     case DISPID_AMBIENT_USERMODE:
819         TRACE("(%p)->(DISPID_AMBIENT_USERMODE)\n", This);
820         hres = get_client_disp_property(client, DISPID_AMBIENT_USERMODE, &res);
821         if(FAILED(hres))
822             return S_OK;
823
824         if(V_VT(&res) == VT_BOOL) {
825             if(V_BOOL(&res)) {
826                 This->doc_obj->usermode = BROWSEMODE;
827             }else {
828                 FIXME("edit mode is not supported\n");
829                 This->doc_obj->usermode = EDITMODE;
830             }
831         }else {
832             FIXME("usermode=%s\n", debugstr_variant(&res));
833         }
834         return S_OK;
835     case DISPID_AMBIENT_DLCONTROL:
836         TRACE("(%p)->(DISPID_AMBIENT_DLCONTROL)\n", This);
837         return on_change_dlcontrol(This);
838     case DISPID_AMBIENT_OFFLINEIFNOTCONNECTED:
839         TRACE("(%p)->(DISPID_AMBIENT_OFFLINEIFNOTCONNECTED)\n", This);
840         on_change_dlcontrol(This);
841         hres = get_client_disp_property(client, DISPID_AMBIENT_OFFLINEIFNOTCONNECTED, &res);
842         if(FAILED(hres))
843             return S_OK;
844
845         if(V_VT(&res) == VT_BOOL) {
846             if(V_BOOL(&res)) {
847                 FIXME("offline connection is not supported\n");
848                 hres = E_FAIL;
849             }
850         }else {
851             FIXME("offlineconnected=%s\n", debugstr_variant(&res));
852         }
853         return S_OK;
854     case DISPID_AMBIENT_SILENT:
855         TRACE("(%p)->(DISPID_AMBIENT_SILENT)\n", This);
856         on_change_dlcontrol(This);
857         hres = get_client_disp_property(client, DISPID_AMBIENT_SILENT, &res);
858         if(FAILED(hres))
859             return S_OK;
860
861         if(V_VT(&res) == VT_BOOL) {
862             if(V_BOOL(&res)) {
863                 FIXME("silent mode is not supported\n");
864                 hres = E_FAIL;
865             }
866         }else {
867             FIXME("silent=%s\n", debugstr_variant(&res));
868         }
869         return S_OK;
870     case DISPID_AMBIENT_USERAGENT:
871         TRACE("(%p)->(DISPID_AMBIENT_USERAGENT)\n", This);
872         hres = get_client_disp_property(client, DISPID_AMBIENT_USERAGENT, &res);
873         if(FAILED(hres))
874             return S_OK;
875
876         FIXME("not supported AMBIENT_USERAGENT\n");
877         hres = E_FAIL;
878         return S_OK;
879     case DISPID_AMBIENT_PALETTE:
880         TRACE("(%p)->(DISPID_AMBIENT_PALETTE)\n", This);
881         hres = get_client_disp_property(client, DISPID_AMBIENT_PALETTE, &res);
882         if(FAILED(hres))
883             return S_OK;
884
885         FIXME("not supported AMBIENT_PALETTE\n");
886         hres = E_FAIL;
887         return S_OK;
888     }
889
890     FIXME("(%p) unsupported dispID=%d\n", This, dispID);
891     return E_FAIL;
892 }
893
894 static HRESULT WINAPI OleControl_FreezeEvents(IOleControl *iface, BOOL bFreeze)
895 {
896     HTMLDocument *This = impl_from_IOleControl(iface);
897     FIXME("(%p)->(%x)\n", This, bFreeze);
898     return E_NOTIMPL;
899 }
900
901 static const IOleControlVtbl OleControlVtbl = {
902     OleControl_QueryInterface,
903     OleControl_AddRef,
904     OleControl_Release,
905     OleControl_GetControlInfo,
906     OleControl_OnMnemonic,
907     OleControl_OnAmbientPropertyChange,
908     OleControl_FreezeEvents
909 };
910
911 /**********************************************************
912  * IObjectWithSite implementation
913  */
914
915 static inline HTMLDocument *impl_from_IObjectWithSite(IObjectWithSite *iface)
916 {
917     return CONTAINING_RECORD(iface, HTMLDocument, IObjectWithSite_iface);
918 }
919
920 static HRESULT WINAPI ObjectWithSite_QueryInterface(IObjectWithSite *iface, REFIID riid, void **ppv)
921 {
922     HTMLDocument *This = impl_from_IObjectWithSite(iface);
923     return htmldoc_query_interface(This, riid, ppv);
924 }
925
926 static ULONG WINAPI ObjectWithSite_AddRef(IObjectWithSite *iface)
927 {
928     HTMLDocument *This = impl_from_IObjectWithSite(iface);
929     return htmldoc_addref(This);
930 }
931
932 static ULONG WINAPI ObjectWithSite_Release(IObjectWithSite *iface)
933 {
934     HTMLDocument *This = impl_from_IObjectWithSite(iface);
935     return htmldoc_release(This);
936 }
937
938 static HRESULT WINAPI ObjectWithSite_SetSite(IObjectWithSite *iface, IUnknown *pUnkSite)
939 {
940     HTMLDocument *This = impl_from_IObjectWithSite(iface);
941     FIXME("(%p)->(%p)\n", This, pUnkSite);
942     return E_NOTIMPL;
943 }
944
945 static HRESULT WINAPI ObjectWithSite_GetSite(IObjectWithSite* iface, REFIID riid, PVOID *ppvSite)
946 {
947     HTMLDocument *This = impl_from_IObjectWithSite(iface);
948     FIXME("(%p)->(%p)\n", This, ppvSite);
949     return E_NOTIMPL;
950 }
951
952 static const IObjectWithSiteVtbl ObjectWithSiteVtbl = {
953     ObjectWithSite_QueryInterface,
954     ObjectWithSite_AddRef,
955     ObjectWithSite_Release,
956     ObjectWithSite_SetSite,
957     ObjectWithSite_GetSite
958 };
959
960 /**********************************************************
961  * IOleContainer implementation
962  */
963
964 static inline HTMLDocument *impl_from_IOleContainer(IOleContainer *iface)
965 {
966     return CONTAINING_RECORD(iface, HTMLDocument, IOleContainer_iface);
967 }
968
969 static HRESULT WINAPI OleContainer_QueryInterface(IOleContainer *iface, REFIID riid, void **ppv)
970 {
971     HTMLDocument *This = impl_from_IOleContainer(iface);
972     return htmldoc_query_interface(This, riid, ppv);
973 }
974
975 static ULONG WINAPI OleContainer_AddRef(IOleContainer *iface)
976 {
977     HTMLDocument *This = impl_from_IOleContainer(iface);
978     return htmldoc_addref(This);
979 }
980
981 static ULONG WINAPI OleContainer_Release(IOleContainer *iface)
982 {
983     HTMLDocument *This = impl_from_IOleContainer(iface);
984     return htmldoc_release(This);
985 }
986
987 static HRESULT WINAPI OleContainer_ParseDisplayName(IOleContainer *iface, IBindCtx *pbc, LPOLESTR pszDisplayName,
988         ULONG *pchEaten, IMoniker **ppmkOut)
989 {
990     HTMLDocument *This = impl_from_IOleContainer(iface);
991     FIXME("(%p)->(%p %s %p %p)\n", This, pbc, debugstr_w(pszDisplayName), pchEaten, ppmkOut);
992     return E_NOTIMPL;
993 }
994
995 static HRESULT WINAPI OleContainer_EnumObjects(IOleContainer *iface, DWORD grfFlags, IEnumUnknown **ppenum)
996 {
997     HTMLDocument *This = impl_from_IOleContainer(iface);
998     EnumUnknown *ret;
999
1000     TRACE("(%p)->(%x %p)\n", This, grfFlags, ppenum);
1001
1002     ret = heap_alloc(sizeof(*ret));
1003     if(!ret)
1004         return E_OUTOFMEMORY;
1005
1006     ret->IEnumUnknown_iface.lpVtbl = &EnumUnknownVtbl;
1007     ret->ref = 1;
1008
1009     *ppenum = &ret->IEnumUnknown_iface;
1010     return S_OK;
1011 }
1012
1013 static HRESULT WINAPI OleContainer_LockContainer(IOleContainer *iface, BOOL fLock)
1014 {
1015     HTMLDocument *This = impl_from_IOleContainer(iface);
1016     FIXME("(%p)->(%x)\n", This, fLock);
1017     return E_NOTIMPL;
1018 }
1019
1020 static const IOleContainerVtbl OleContainerVtbl = {
1021     OleContainer_QueryInterface,
1022     OleContainer_AddRef,
1023     OleContainer_Release,
1024     OleContainer_ParseDisplayName,
1025     OleContainer_EnumObjects,
1026     OleContainer_LockContainer
1027 };
1028
1029 static inline HTMLDocumentObj *impl_from_ITargetContainer(ITargetContainer *iface)
1030 {
1031     return CONTAINING_RECORD(iface, HTMLDocumentObj, ITargetContainer_iface);
1032 }
1033
1034 static HRESULT WINAPI TargetContainer_QueryInterface(ITargetContainer *iface, REFIID riid, void **ppv)
1035 {
1036     HTMLDocumentObj *This = impl_from_ITargetContainer(iface);
1037     return ICustomDoc_QueryInterface(&This->ICustomDoc_iface, riid, ppv);
1038 }
1039
1040 static ULONG WINAPI TargetContainer_AddRef(ITargetContainer *iface)
1041 {
1042     HTMLDocumentObj *This = impl_from_ITargetContainer(iface);
1043     return ICustomDoc_AddRef(&This->ICustomDoc_iface);
1044 }
1045
1046 static ULONG WINAPI TargetContainer_Release(ITargetContainer *iface)
1047 {
1048     HTMLDocumentObj *This = impl_from_ITargetContainer(iface);
1049     return ICustomDoc_Release(&This->ICustomDoc_iface);
1050 }
1051
1052 static HRESULT WINAPI TargetContainer_GetFrameUrl(ITargetContainer *iface, LPWSTR *ppszFrameSrc)
1053 {
1054     HTMLDocumentObj *This = impl_from_ITargetContainer(iface);
1055     FIXME("(%p)->(%p)\n", This, ppszFrameSrc);
1056     return E_NOTIMPL;
1057 }
1058
1059 static HRESULT WINAPI TargetContainer_GetFramesContainer(ITargetContainer *iface, IOleContainer **ppContainer)
1060 {
1061     HTMLDocumentObj *This = impl_from_ITargetContainer(iface);
1062
1063     TRACE("(%p)->(%p)\n", This, ppContainer);
1064
1065     /* NOTE: we should return wrapped interface here */
1066     IOleContainer_AddRef(&This->basedoc.IOleContainer_iface);
1067     *ppContainer = &This->basedoc.IOleContainer_iface;
1068     return S_OK;
1069 }
1070
1071 static const ITargetContainerVtbl TargetContainerVtbl = {
1072     TargetContainer_QueryInterface,
1073     TargetContainer_AddRef,
1074     TargetContainer_Release,
1075     TargetContainer_GetFrameUrl,
1076     TargetContainer_GetFramesContainer
1077 };
1078
1079 void TargetContainer_Init(HTMLDocumentObj *This)
1080 {
1081     This->ITargetContainer_iface.lpVtbl = &TargetContainerVtbl;
1082 }
1083
1084 /**********************************************************
1085  * IObjectSafety implementation
1086  */
1087
1088 static inline HTMLDocument *impl_from_IObjectSafety(IObjectSafety *iface)
1089 {
1090     return CONTAINING_RECORD(iface, HTMLDocument, IObjectSafety_iface);
1091 }
1092
1093 static HRESULT WINAPI ObjectSafety_QueryInterface(IObjectSafety *iface, REFIID riid, void **ppv)
1094 {
1095     HTMLDocument *This = impl_from_IObjectSafety(iface);
1096     return htmldoc_query_interface(This, riid, ppv);
1097 }
1098
1099 static ULONG WINAPI ObjectSafety_AddRef(IObjectSafety *iface)
1100 {
1101     HTMLDocument *This = impl_from_IObjectSafety(iface);
1102     return htmldoc_addref(This);
1103 }
1104
1105 static ULONG WINAPI ObjectSafety_Release(IObjectSafety *iface)
1106 {
1107     HTMLDocument *This = impl_from_IObjectSafety(iface);
1108     return htmldoc_release(This);
1109 }
1110
1111 static HRESULT WINAPI ObjectSafety_GetInterfaceSafetyOptions(IObjectSafety *iface,
1112         REFIID riid, DWORD *pdwSupportedOptions, DWORD *pdwEnabledOptions)
1113 {
1114     HTMLDocument *This = impl_from_IObjectSafety(iface);
1115     FIXME("(%p)->(%s %p %p)\n", This, debugstr_guid(riid), pdwSupportedOptions, pdwEnabledOptions);
1116     return E_NOTIMPL;
1117 }
1118
1119 static HRESULT WINAPI ObjectSafety_SetInterfaceSafetyOptions(IObjectSafety *iface,
1120         REFIID riid, DWORD dwOptionSetMask, DWORD dwEnabledOptions)
1121 {
1122     HTMLDocument *This = impl_from_IObjectSafety(iface);
1123     FIXME("(%p)->(%s %x %x)\n", This, debugstr_guid(riid), dwOptionSetMask, dwEnabledOptions);
1124
1125     if(IsEqualGUID(&IID_IPersistMoniker, riid) &&
1126             dwOptionSetMask==INTERFACESAFE_FOR_UNTRUSTED_DATA &&
1127             dwEnabledOptions==INTERFACESAFE_FOR_UNTRUSTED_DATA)
1128         return S_OK;
1129
1130     return E_NOTIMPL;
1131 }
1132
1133 static const IObjectSafetyVtbl ObjectSafetyVtbl = {
1134     ObjectSafety_QueryInterface,
1135     ObjectSafety_AddRef,
1136     ObjectSafety_Release,
1137     ObjectSafety_GetInterfaceSafetyOptions,
1138     ObjectSafety_SetInterfaceSafetyOptions
1139 };
1140
1141 void HTMLDocument_LockContainer(HTMLDocumentObj *This, BOOL fLock)
1142 {
1143     IOleContainer *container;
1144     HRESULT hres;
1145
1146     if(!This->client || This->container_locked == fLock)
1147         return;
1148
1149     hres = IOleClientSite_GetContainer(This->client, &container);
1150     if(SUCCEEDED(hres)) {
1151         IOleContainer_LockContainer(container, fLock);
1152         This->container_locked = fLock;
1153         IOleContainer_Release(container);
1154     }
1155 }
1156
1157 void HTMLDocument_OleObj_Init(HTMLDocument *This)
1158 {
1159     This->IOleObject_iface.lpVtbl = &OleObjectVtbl;
1160     This->IOleDocument_iface.lpVtbl = &OleDocumentVtbl;
1161     This->IOleControl_iface.lpVtbl = &OleControlVtbl;
1162     This->IObjectWithSite_iface.lpVtbl = &ObjectWithSiteVtbl;
1163     This->IOleContainer_iface.lpVtbl = &OleContainerVtbl;
1164     This->IObjectSafety_iface.lpVtbl = &ObjectSafetyVtbl;
1165 }