ieframe: Added INewWindowManager stub implementation.
[wine] / dlls / ieframe / dochost.c
1 /*
2  * Copyright 2005-2006 Jacek Caban for CodeWeavers
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 "ieframe.h"
20
21 #include "exdispid.h"
22 #include "mshtml.h"
23 #include "initguid.h"
24
25 #include "wine/debug.h"
26
27 WINE_DEFAULT_DEBUG_CHANNEL(ieframe);
28
29 DEFINE_OLEGUID(CGID_DocHostCmdPriv, 0x000214D4L, 0, 0);
30
31 #define DOCHOST_DOCCANNAVIGATE  0
32
33 static ATOM doc_view_atom = 0;
34
35 void push_dochost_task(DocHost *This, task_header_t *task, task_proc_t proc, task_destr_t destr, BOOL send)
36 {
37     BOOL is_empty;
38
39     task->proc = proc;
40     task->destr = destr;
41
42     is_empty = list_empty(&This->task_queue);
43     list_add_tail(&This->task_queue, &task->entry);
44
45     if(send)
46         SendMessageW(This->frame_hwnd, WM_DOCHOSTTASK, 0, 0);
47     else if(is_empty)
48         PostMessageW(This->frame_hwnd, WM_DOCHOSTTASK, 0, 0);
49 }
50
51 LRESULT process_dochost_tasks(DocHost *This)
52 {
53     task_header_t *task;
54
55     while(!list_empty(&This->task_queue)) {
56         task = LIST_ENTRY(This->task_queue.next, task_header_t, entry);
57         list_remove(&task->entry);
58
59         task->proc(This, task);
60         task->destr(task);
61     }
62
63     return 0;
64 }
65
66 void abort_dochost_tasks(DocHost *This, task_proc_t proc)
67 {
68     task_header_t *task, *cursor;
69
70     LIST_FOR_EACH_ENTRY_SAFE(task, cursor, &This->task_queue, task_header_t, entry) {
71         if(proc && proc != task->proc)
72             continue;
73
74         list_remove(&task->entry);
75         task->destr(task);
76     }
77 }
78
79 static void notif_complete(DocHost *This, DISPID dispid)
80 {
81     DISPPARAMS dispparams;
82     VARIANTARG params[2];
83     VARIANT url;
84
85     dispparams.cArgs = 2;
86     dispparams.cNamedArgs = 0;
87     dispparams.rgdispidNamedArgs = NULL;
88     dispparams.rgvarg = params;
89
90     V_VT(params) = (VT_BYREF|VT_VARIANT);
91     V_BYREF(params) = &url;
92
93     V_VT(params+1) = VT_DISPATCH;
94     V_DISPATCH(params+1) = This->disp;
95
96     V_VT(&url) = VT_BSTR;
97     V_BSTR(&url) = SysAllocString(This->url);
98
99     TRACE("%d >>>\n", dispid);
100     call_sink(This->cps.wbe2, dispid, &dispparams);
101     TRACE("%d <<<\n", dispid);
102
103     SysFreeString(V_BSTR(&url));
104     This->busy = VARIANT_FALSE;
105 }
106
107 static void object_available(DocHost *This)
108 {
109     IHlinkTarget *hlink;
110     HRESULT hres;
111
112     TRACE("(%p)\n", This);
113
114     if(!This->document) {
115         WARN("document == NULL\n");
116         return;
117     }
118
119     hres = IUnknown_QueryInterface(This->document, &IID_IHlinkTarget, (void**)&hlink);
120     if(FAILED(hres)) {
121         FIXME("Could not get IHlinkTarget interface\n");
122         return;
123     }
124
125     hres = IHlinkTarget_Navigate(hlink, 0, NULL);
126     IHlinkTarget_Release(hlink);
127     if(FAILED(hres))
128         FIXME("Navigate failed\n");
129 }
130
131 static HRESULT get_doc_ready_state(DocHost *This, READYSTATE *ret)
132 {
133     DISPPARAMS dp = {NULL,NULL,0,0};
134     IDispatch *disp;
135     EXCEPINFO ei;
136     VARIANT var;
137     HRESULT hres;
138
139     hres = IUnknown_QueryInterface(This->document, &IID_IDispatch, (void**)&disp);
140     if(FAILED(hres))
141         return hres;
142
143     hres = IDispatch_Invoke(disp, DISPID_READYSTATE, &IID_NULL, LOCALE_SYSTEM_DEFAULT, DISPATCH_PROPERTYGET,
144             &dp, &var, &ei, NULL);
145     IDispatch_Release(disp);
146     if(FAILED(hres)) {
147         WARN("Invoke(DISPID_READYSTATE failed: %08x\n", hres);
148         return hres;
149     }
150
151     if(V_VT(&var) != VT_I4) {
152         WARN("V_VT(var) = %d\n", V_VT(&var));
153         VariantClear(&var);
154         return E_FAIL;
155     }
156
157     *ret = V_I4(&var);
158     return S_OK;
159 }
160
161 static void advise_prop_notif(DocHost *This, BOOL set)
162 {
163     IConnectionPointContainer *cp_container;
164     IConnectionPoint *cp;
165     HRESULT hres;
166
167     hres = IUnknown_QueryInterface(This->document, &IID_IConnectionPointContainer, (void**)&cp_container);
168     if(FAILED(hres))
169         return;
170
171     hres = IConnectionPointContainer_FindConnectionPoint(cp_container, &IID_IPropertyNotifySink, &cp);
172     IConnectionPointContainer_Release(cp_container);
173     if(FAILED(hres))
174         return;
175
176     if(set)
177         hres = IConnectionPoint_Advise(cp, (IUnknown*)&This->IPropertyNotifySink_iface, &This->prop_notif_cookie);
178     else
179         hres = IConnectionPoint_Unadvise(cp, This->prop_notif_cookie);
180     IConnectionPoint_Release(cp);
181
182     if(SUCCEEDED(hres))
183         This->is_prop_notif = set;
184 }
185
186 void set_doc_state(DocHost *This, READYSTATE doc_state)
187 {
188     This->doc_state = doc_state;
189     if(doc_state > This->ready_state)
190         This->ready_state = doc_state;
191 }
192
193 static void update_ready_state(DocHost *This, READYSTATE ready_state)
194 {
195     if(ready_state > READYSTATE_LOADING && This->doc_state <= READYSTATE_LOADING && !This->browser_service /* FIXME */)
196         notif_complete(This, DISPID_NAVIGATECOMPLETE2);
197
198     if(ready_state == READYSTATE_COMPLETE && This->doc_state < READYSTATE_COMPLETE) {
199         set_doc_state(This, READYSTATE_COMPLETE);
200         if(!This->browser_service) /* FIXME: Not fully correct */
201             notif_complete(This, DISPID_DOCUMENTCOMPLETE);
202     }else {
203         set_doc_state(This, ready_state);
204     }
205 }
206
207 typedef struct {
208     task_header_t header;
209     IUnknown *doc;
210     READYSTATE ready_state;
211 } ready_state_task_t;
212
213 static void ready_state_task_destr(task_header_t *_task)
214 {
215     ready_state_task_t *task = (ready_state_task_t*)_task;
216
217     IUnknown_Release(task->doc);
218     heap_free(task);
219 }
220
221 static void ready_state_proc(DocHost *This, task_header_t *_task)
222 {
223     ready_state_task_t *task = (ready_state_task_t*)_task;
224
225     if(task->doc == This->document)
226         update_ready_state(This, task->ready_state);
227 }
228
229 static void push_ready_state_task(DocHost *This, READYSTATE ready_state)
230 {
231     ready_state_task_t *task = heap_alloc(sizeof(ready_state_task_t));
232
233     IUnknown_AddRef(This->document);
234     task->doc = This->document;
235     task->ready_state = ready_state;
236
237     push_dochost_task(This, &task->header, ready_state_proc, ready_state_task_destr, FALSE);
238 }
239
240 static void object_available_task_destr(task_header_t *task)
241 {
242     heap_free(task);
243 }
244
245 static void object_available_proc(DocHost *This, task_header_t *task)
246 {
247     object_available(This);
248 }
249
250 HRESULT dochost_object_available(DocHost *This, IUnknown *doc)
251 {
252     READYSTATE ready_state;
253     task_header_t *task;
254     IOleObject *oleobj;
255     HRESULT hres;
256
257     IUnknown_AddRef(doc);
258     This->document = doc;
259
260     hres = IUnknown_QueryInterface(doc, &IID_IOleObject, (void**)&oleobj);
261     if(SUCCEEDED(hres)) {
262         CLSID clsid;
263
264         hres = IOleObject_GetUserClassID(oleobj, &clsid);
265         if(SUCCEEDED(hres))
266             TRACE("Got clsid %s\n",
267                   IsEqualGUID(&clsid, &CLSID_HTMLDocument) ? "CLSID_HTMLDocument" : debugstr_guid(&clsid));
268
269         hres = IOleObject_SetClientSite(oleobj, &This->IOleClientSite_iface);
270         if(FAILED(hres))
271             FIXME("SetClientSite failed: %08x\n", hres);
272
273         IOleObject_Release(oleobj);
274     }else {
275         FIXME("Could not get IOleObject iface: %08x\n", hres);
276     }
277
278     /* FIXME: Call SetAdvise */
279
280     task = heap_alloc(sizeof(*task));
281     push_dochost_task(This, task, object_available_proc, object_available_task_destr, FALSE);
282
283     hres = get_doc_ready_state(This, &ready_state);
284     if(SUCCEEDED(hres)) {
285         if(ready_state == READYSTATE_COMPLETE)
286             push_ready_state_task(This, READYSTATE_COMPLETE);
287         if(ready_state != READYSTATE_COMPLETE || This->doc_navigate)
288             advise_prop_notif(This, TRUE);
289     }
290
291     return S_OK;
292 }
293
294 static LRESULT resize_document(DocHost *This, LONG width, LONG height)
295 {
296     RECT rect = {0, 0, width, height};
297
298     TRACE("(%p)->(%d %d)\n", This, width, height);
299
300     if(This->view)
301         IOleDocumentView_SetRect(This->view, &rect);
302
303     return 0;
304 }
305
306 static LRESULT WINAPI doc_view_proc(HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam)
307 {
308     DocHost *This;
309
310     static const WCHAR wszTHIS[] = {'T','H','I','S',0};
311
312     if(msg == WM_CREATE) {
313         This = *(DocHost**)lParam;
314         SetPropW(hwnd, wszTHIS, This);
315     }else {
316         This = GetPropW(hwnd, wszTHIS);
317     }
318
319     switch(msg) {
320     case WM_SIZE:
321         return resize_document(This, LOWORD(lParam), HIWORD(lParam));
322     }
323
324     return DefWindowProcW(hwnd, msg, wParam, lParam);
325 }
326
327 void create_doc_view_hwnd(DocHost *This)
328 {
329     RECT rect;
330
331     static const WCHAR wszShell_DocObject_View[] =
332         {'S','h','e','l','l',' ','D','o','c','O','b','j','e','c','t',' ','V','i','e','w',0};
333
334     if(!doc_view_atom) {
335         static WNDCLASSEXW wndclass = {
336             sizeof(wndclass),
337             CS_PARENTDC,
338             doc_view_proc,
339             0, 0 /* native uses 4*/, NULL, NULL, NULL,
340             (HBRUSH)(COLOR_WINDOW + 1), NULL,
341             wszShell_DocObject_View,
342             NULL
343         };
344
345         wndclass.hInstance = ieframe_instance;
346
347         doc_view_atom = RegisterClassExW(&wndclass);
348     }
349
350     This->container_vtbl->GetDocObjRect(This, &rect);
351     This->hwnd = CreateWindowExW(0, wszShell_DocObject_View,
352          wszShell_DocObject_View,
353          WS_CHILD | WS_VISIBLE | WS_CLIPSIBLINGS | WS_CLIPCHILDREN | WS_TABSTOP,
354          rect.left, rect.top, rect.right, rect.bottom, This->frame_hwnd,
355          NULL, ieframe_instance, This);
356 }
357
358 void deactivate_document(DocHost *This)
359 {
360     IOleInPlaceObjectWindowless *winobj;
361     IOleObject *oleobj = NULL;
362     IHlinkTarget *hlink = NULL;
363     HRESULT hres;
364
365     if(!This->document) return;
366
367     if(This->doc_navigate) {
368         IUnknown_Release(This->doc_navigate);
369         This->doc_navigate = NULL;
370     }
371
372     if(This->is_prop_notif)
373         advise_prop_notif(This, FALSE);
374
375     if(This->view)
376         IOleDocumentView_UIActivate(This->view, FALSE);
377
378     hres = IUnknown_QueryInterface(This->document, &IID_IOleInPlaceObjectWindowless,
379                                    (void**)&winobj);
380     if(SUCCEEDED(hres)) {
381         IOleInPlaceObjectWindowless_InPlaceDeactivate(winobj);
382         IOleInPlaceObjectWindowless_Release(winobj);
383     }
384
385     if(This->view) {
386         IOleDocumentView_Show(This->view, FALSE);
387         IOleDocumentView_CloseView(This->view, 0);
388         IOleDocumentView_SetInPlaceSite(This->view, NULL);
389         IOleDocumentView_Release(This->view);
390         This->view = NULL;
391     }
392
393     hres = IUnknown_QueryInterface(This->document, &IID_IOleObject, (void**)&oleobj);
394     if(SUCCEEDED(hres))
395         IOleObject_Close(oleobj, OLECLOSE_NOSAVE);
396
397     hres = IUnknown_QueryInterface(This->document, &IID_IHlinkTarget, (void**)&hlink);
398     if(SUCCEEDED(hres)) {
399         IHlinkTarget_SetBrowseContext(hlink, NULL);
400         IHlinkTarget_Release(hlink);
401     }
402
403     if(oleobj) {
404         IOleClientSite *client_site = NULL;
405
406         IOleObject_GetClientSite(oleobj, &client_site);
407         if(client_site) {
408             if(client_site == &This->IOleClientSite_iface)
409                 IOleObject_SetClientSite(oleobj, NULL);
410             IOleClientSite_Release(client_site);
411         }
412
413         IOleObject_Release(oleobj);
414     }
415
416     IUnknown_Release(This->document);
417     This->document = NULL;
418 }
419
420 void release_dochost_client(DocHost *This)
421 {
422     if(This->hwnd) {
423         DestroyWindow(This->hwnd);
424         This->hwnd = NULL;
425     }
426
427     if(This->hostui) {
428         IDocHostUIHandler_Release(This->hostui);
429         This->hostui = NULL;
430     }
431
432     if(This->client_disp) {
433         IDispatch_Release(This->client_disp);
434         This->client_disp = NULL;
435     }
436
437     if(This->frame) {
438         IOleInPlaceFrame_Release(This->frame);
439         This->frame = NULL;
440     }
441 }
442
443 static inline DocHost *impl_from_IOleCommandTarget(IOleCommandTarget *iface)
444 {
445     return CONTAINING_RECORD(iface, DocHost, IOleCommandTarget_iface);
446 }
447
448 static HRESULT WINAPI ClOleCommandTarget_QueryInterface(IOleCommandTarget *iface,
449         REFIID riid, void **ppv)
450 {
451     DocHost *This = impl_from_IOleCommandTarget(iface);
452     return IOleClientSite_QueryInterface(&This->IOleClientSite_iface, riid, ppv);
453 }
454
455 static ULONG WINAPI ClOleCommandTarget_AddRef(IOleCommandTarget *iface)
456 {
457     DocHost *This = impl_from_IOleCommandTarget(iface);
458     return IOleClientSite_AddRef(&This->IOleClientSite_iface);
459 }
460
461 static ULONG WINAPI ClOleCommandTarget_Release(IOleCommandTarget *iface)
462 {
463     DocHost *This = impl_from_IOleCommandTarget(iface);
464     return IOleClientSite_Release(&This->IOleClientSite_iface);
465 }
466
467 static HRESULT WINAPI ClOleCommandTarget_QueryStatus(IOleCommandTarget *iface,
468         const GUID *pguidCmdGroup, ULONG cCmds, OLECMD prgCmds[], OLECMDTEXT *pCmdText)
469 {
470     DocHost *This = impl_from_IOleCommandTarget(iface);
471     ULONG i= 0;
472     FIXME("(%p)->(%s %u %p %p)\n", This, debugstr_guid(pguidCmdGroup), cCmds, prgCmds,
473           pCmdText);
474     while (prgCmds && (cCmds > i)) {
475         FIXME("command_%u: %u, 0x%x\n", i, prgCmds[i].cmdID, prgCmds[i].cmdf);
476         i++;
477     }
478     return E_NOTIMPL;
479 }
480
481 static HRESULT WINAPI ClOleCommandTarget_Exec(IOleCommandTarget *iface,
482         const GUID *pguidCmdGroup, DWORD nCmdID, DWORD nCmdexecopt, VARIANT *pvaIn,
483         VARIANT *pvaOut)
484 {
485     DocHost *This = impl_from_IOleCommandTarget(iface);
486
487     TRACE("(%p)->(%s %d %d %p %p)\n", This, debugstr_guid(pguidCmdGroup), nCmdID,
488           nCmdexecopt, debugstr_variant(pvaIn), debugstr_variant(pvaOut));
489
490     if(!pguidCmdGroup) {
491         switch(nCmdID) {
492         case OLECMDID_UPDATECOMMANDS:
493             return This->container_vtbl->exec(This, pguidCmdGroup, nCmdID, nCmdexecopt, pvaIn, pvaOut);
494         default:
495             FIXME("Unimplemented cmdid %d\n", nCmdID);
496             return E_NOTIMPL;
497         }
498         return S_OK;
499     }
500
501     if(IsEqualGUID(pguidCmdGroup, &CGID_DocHostCmdPriv)) {
502         switch(nCmdID) {
503         case DOCHOST_DOCCANNAVIGATE:
504             if(!pvaIn || V_VT(pvaIn) != VT_UNKNOWN)
505                 return E_INVALIDARG;
506
507             if(This->doc_navigate)
508                 IUnknown_Release(This->doc_navigate);
509             IUnknown_AddRef(V_UNKNOWN(pvaIn));
510             This->doc_navigate = V_UNKNOWN(pvaIn);
511             return S_OK;
512
513         case 1: {
514             IHTMLWindow2 *win2;
515             SAFEARRAY *sa = V_ARRAY(pvaIn);
516             VARIANT status_code, url, htmlwindow;
517             LONG ind;
518             HRESULT hres;
519
520             if(V_VT(pvaIn) != VT_ARRAY || !sa || (SafeArrayGetDim(sa) != 1))
521                 return E_INVALIDARG;
522
523             ind = 0;
524             hres = SafeArrayGetElement(sa, &ind, &status_code);
525             if(FAILED(hres) || V_VT(&status_code)!=VT_I4)
526                 return E_INVALIDARG;
527
528             ind = 1;
529             hres = SafeArrayGetElement(sa, &ind, &url);
530             if(FAILED(hres) || V_VT(&url)!=VT_BSTR)
531                 return E_INVALIDARG;
532
533             ind = 3;
534             hres = SafeArrayGetElement(sa, &ind, &htmlwindow);
535             if(FAILED(hres) || V_VT(&htmlwindow)!=VT_UNKNOWN || !V_UNKNOWN(&htmlwindow))
536                 return E_INVALIDARG;
537
538             hres = IUnknown_QueryInterface(V_UNKNOWN(&htmlwindow), &IID_IHTMLWindow2, (void**)&win2);
539             if(FAILED(hres))
540                 return E_INVALIDARG;
541
542             handle_navigation_error(This, V_I4(&status_code), V_BSTR(&url), win2);
543             IHTMLWindow2_Release(win2);
544             return S_OK;
545         }
546
547         default:
548             FIXME("unsupported command %d of CGID_DocHostCmdPriv\n", nCmdID);
549             return E_NOTIMPL;
550         }
551     }
552
553     FIXME("Unimplemented group %s\n", debugstr_guid(pguidCmdGroup));
554     return E_NOTIMPL;
555 }
556
557 #undef impl_from_IOleCommandTarget
558
559 static const IOleCommandTargetVtbl OleCommandTargetVtbl = {
560     ClOleCommandTarget_QueryInterface,
561     ClOleCommandTarget_AddRef,
562     ClOleCommandTarget_Release,
563     ClOleCommandTarget_QueryStatus,
564     ClOleCommandTarget_Exec
565 };
566
567 static inline DocHost *impl_from_IDocHostUIHandler2(IDocHostUIHandler2 *iface)
568 {
569     return CONTAINING_RECORD(iface, DocHost, IDocHostUIHandler2_iface);
570 }
571
572 static HRESULT WINAPI DocHostUIHandler_QueryInterface(IDocHostUIHandler2 *iface,
573                                                       REFIID riid, void **ppv)
574 {
575     DocHost *This = impl_from_IDocHostUIHandler2(iface);
576     return IOleClientSite_QueryInterface(&This->IOleClientSite_iface, riid, ppv);
577 }
578
579 static ULONG WINAPI DocHostUIHandler_AddRef(IDocHostUIHandler2 *iface)
580 {
581     DocHost *This = impl_from_IDocHostUIHandler2(iface);
582     return IOleClientSite_AddRef(&This->IOleClientSite_iface);
583 }
584
585 static ULONG WINAPI DocHostUIHandler_Release(IDocHostUIHandler2 *iface)
586 {
587     DocHost *This = impl_from_IDocHostUIHandler2(iface);
588     return IOleClientSite_Release(&This->IOleClientSite_iface);
589 }
590
591 static HRESULT WINAPI DocHostUIHandler_ShowContextMenu(IDocHostUIHandler2 *iface,
592          DWORD dwID, POINT *ppt, IUnknown *pcmdtReserved, IDispatch *pdispReserved)
593 {
594     DocHost *This = impl_from_IDocHostUIHandler2(iface);
595     HRESULT hres;
596
597     TRACE("(%p)->(%d %p %p %p)\n", This, dwID, ppt, pcmdtReserved, pdispReserved);
598
599     if(This->hostui) {
600         hres = IDocHostUIHandler_ShowContextMenu(This->hostui, dwID, ppt, pcmdtReserved,
601                                                  pdispReserved);
602         if(hres == S_OK)
603             return S_OK;
604     }
605
606     FIXME("default action not implemented\n");
607     return E_NOTIMPL;
608 }
609
610 static HRESULT WINAPI DocHostUIHandler_GetHostInfo(IDocHostUIHandler2 *iface,
611         DOCHOSTUIINFO *pInfo)
612 {
613     DocHost *This = impl_from_IDocHostUIHandler2(iface);
614     HRESULT hres;
615
616     TRACE("(%p)->(%p)\n", This, pInfo);
617
618     if(This->hostui) {
619         hres = IDocHostUIHandler_GetHostInfo(This->hostui, pInfo);
620         if(SUCCEEDED(hres))
621             return hres;
622     }
623
624     pInfo->dwFlags = DOCHOSTUIFLAG_DISABLE_HELP_MENU | DOCHOSTUIFLAG_OPENNEWWIN
625         | DOCHOSTUIFLAG_URL_ENCODING_ENABLE_UTF8 | DOCHOSTUIFLAG_ENABLE_INPLACE_NAVIGATION
626         | DOCHOSTUIFLAG_IME_ENABLE_RECONVERSION;
627     return S_OK;
628 }
629
630 static HRESULT WINAPI DocHostUIHandler_ShowUI(IDocHostUIHandler2 *iface, DWORD dwID,
631         IOleInPlaceActiveObject *pActiveObject, IOleCommandTarget *pCommandTarget,
632         IOleInPlaceFrame *pFrame, IOleInPlaceUIWindow *pDoc)
633 {
634     DocHost *This = impl_from_IDocHostUIHandler2(iface);
635     FIXME("(%p)->(%d %p %p %p %p)\n", This, dwID, pActiveObject, pCommandTarget,
636           pFrame, pDoc);
637     return E_NOTIMPL;
638 }
639
640 static HRESULT WINAPI DocHostUIHandler_HideUI(IDocHostUIHandler2 *iface)
641 {
642     DocHost *This = impl_from_IDocHostUIHandler2(iface);
643     FIXME("(%p)\n", This);
644     return E_NOTIMPL;
645 }
646
647 static HRESULT WINAPI DocHostUIHandler_UpdateUI(IDocHostUIHandler2 *iface)
648 {
649     DocHost *This = impl_from_IDocHostUIHandler2(iface);
650
651     TRACE("(%p)\n", This);
652
653     if(!This->hostui)
654         return S_FALSE;
655
656     return IDocHostUIHandler_UpdateUI(This->hostui);
657 }
658
659 static HRESULT WINAPI DocHostUIHandler_EnableModeless(IDocHostUIHandler2 *iface,
660                                                       BOOL fEnable)
661 {
662     DocHost *This = impl_from_IDocHostUIHandler2(iface);
663     FIXME("(%p)->(%x)\n", This, fEnable);
664     return E_NOTIMPL;
665 }
666
667 static HRESULT WINAPI DocHostUIHandler_OnDocWindowActivate(IDocHostUIHandler2 *iface,
668                                                            BOOL fActivate)
669 {
670     DocHost *This = impl_from_IDocHostUIHandler2(iface);
671     FIXME("(%p)->(%x)\n", This, fActivate);
672     return E_NOTIMPL;
673 }
674
675 static HRESULT WINAPI DocHostUIHandler_OnFrameWindowActivate(IDocHostUIHandler2 *iface,
676                                                              BOOL fActivate)
677 {
678     DocHost *This = impl_from_IDocHostUIHandler2(iface);
679     FIXME("(%p)->(%x)\n", This, fActivate);
680     return E_NOTIMPL;
681 }
682
683 static HRESULT WINAPI DocHostUIHandler_ResizeBorder(IDocHostUIHandler2 *iface,
684         LPCRECT prcBorder, IOleInPlaceUIWindow *pUIWindow, BOOL fRameWindow)
685 {
686     DocHost *This = impl_from_IDocHostUIHandler2(iface);
687     FIXME("(%p)->(%p %p %X)\n", This, prcBorder, pUIWindow, fRameWindow);
688     return E_NOTIMPL;
689 }
690
691 static HRESULT WINAPI DocHostUIHandler_TranslateAccelerator(IDocHostUIHandler2 *iface,
692         LPMSG lpMsg, const GUID *pguidCmdGroup, DWORD nCmdID)
693 {
694     DocHost *This = impl_from_IDocHostUIHandler2(iface);
695     HRESULT hr = S_FALSE;
696     TRACE("(%p)->(%p %p %d)\n", This, lpMsg, pguidCmdGroup, nCmdID);
697
698     if(This->hostui)
699         hr = IDocHostUIHandler_TranslateAccelerator(This->hostui, lpMsg, pguidCmdGroup, nCmdID);
700
701     return hr;
702 }
703
704 static HRESULT WINAPI DocHostUIHandler_GetOptionKeyPath(IDocHostUIHandler2 *iface,
705         LPOLESTR *pchKey, DWORD dw)
706 {
707     DocHost *This = impl_from_IDocHostUIHandler2(iface);
708
709     TRACE("(%p)->(%p %d)\n", This, pchKey, dw);
710
711     if(This->hostui)
712         return IDocHostUIHandler_GetOptionKeyPath(This->hostui, pchKey, dw);
713
714     return S_OK;
715 }
716
717 static HRESULT WINAPI DocHostUIHandler_GetDropTarget(IDocHostUIHandler2 *iface,
718         IDropTarget *pDropTarget, IDropTarget **ppDropTarget)
719 {
720     DocHost *This = impl_from_IDocHostUIHandler2(iface);
721     FIXME("(%p)\n", This);
722     return E_NOTIMPL;
723 }
724
725 static HRESULT WINAPI DocHostUIHandler_GetExternal(IDocHostUIHandler2 *iface,
726         IDispatch **ppDispatch)
727 {
728     DocHost *This = impl_from_IDocHostUIHandler2(iface);
729
730     TRACE("(%p)->(%p)\n", This, ppDispatch);
731
732     if(This->hostui)
733         return IDocHostUIHandler_GetExternal(This->hostui, ppDispatch);
734
735     FIXME("default action not implemented\n");
736     return E_NOTIMPL;
737 }
738
739 static HRESULT WINAPI DocHostUIHandler_TranslateUrl(IDocHostUIHandler2 *iface,
740         DWORD dwTranslate, OLECHAR *pchURLIn, OLECHAR **ppchURLOut)
741 {
742     DocHost *This = impl_from_IDocHostUIHandler2(iface);
743
744     TRACE("(%p)->(%d %s %p)\n", This, dwTranslate, debugstr_w(pchURLIn), ppchURLOut);
745
746     if(This->hostui)
747         return IDocHostUIHandler_TranslateUrl(This->hostui, dwTranslate,
748                                               pchURLIn, ppchURLOut);
749
750     return S_FALSE;
751 }
752
753 static HRESULT WINAPI DocHostUIHandler_FilterDataObject(IDocHostUIHandler2 *iface,
754         IDataObject *pDO, IDataObject **ppDORet)
755 {
756     DocHost *This = impl_from_IDocHostUIHandler2(iface);
757     FIXME("(%p)->(%p %p)\n", This, pDO, ppDORet);
758     return E_NOTIMPL;
759 }
760
761 static HRESULT WINAPI DocHostUIHandler_GetOverrideKeyPath(IDocHostUIHandler2 *iface,
762         LPOLESTR *pchKey, DWORD dw)
763 {
764     DocHost *This = impl_from_IDocHostUIHandler2(iface);
765     IDocHostUIHandler2 *handler;
766     HRESULT hres;
767
768     TRACE("(%p)->(%p %d)\n", This, pchKey, dw);
769
770     if(!This->hostui)
771         return S_OK;
772
773     hres = IDocHostUIHandler_QueryInterface(This->hostui, &IID_IDocHostUIHandler2,
774                                             (void**)&handler);
775     if(SUCCEEDED(hres)) {
776         hres = IDocHostUIHandler2_GetOverrideKeyPath(handler, pchKey, dw);
777         IDocHostUIHandler2_Release(handler);
778         return hres;
779     }
780
781     return S_OK;
782 }
783
784 static const IDocHostUIHandler2Vtbl DocHostUIHandler2Vtbl = {
785     DocHostUIHandler_QueryInterface,
786     DocHostUIHandler_AddRef,
787     DocHostUIHandler_Release,
788     DocHostUIHandler_ShowContextMenu,
789     DocHostUIHandler_GetHostInfo,
790     DocHostUIHandler_ShowUI,
791     DocHostUIHandler_HideUI,
792     DocHostUIHandler_UpdateUI,
793     DocHostUIHandler_EnableModeless,
794     DocHostUIHandler_OnDocWindowActivate,
795     DocHostUIHandler_OnFrameWindowActivate,
796     DocHostUIHandler_ResizeBorder,
797     DocHostUIHandler_TranslateAccelerator,
798     DocHostUIHandler_GetOptionKeyPath,
799     DocHostUIHandler_GetDropTarget,
800     DocHostUIHandler_GetExternal,
801     DocHostUIHandler_TranslateUrl,
802     DocHostUIHandler_FilterDataObject,
803     DocHostUIHandler_GetOverrideKeyPath
804 };
805
806 static inline DocHost *impl_from_IPropertyNotifySink(IPropertyNotifySink *iface)
807 {
808     return CONTAINING_RECORD(iface, DocHost, IPropertyNotifySink_iface);
809 }
810
811 static HRESULT WINAPI PropertyNotifySink_QueryInterface(IPropertyNotifySink *iface,
812         REFIID riid, void **ppv)
813 {
814     DocHost *This = impl_from_IPropertyNotifySink(iface);
815     return IOleClientSite_QueryInterface(&This->IOleClientSite_iface, riid, ppv);
816 }
817
818 static ULONG WINAPI PropertyNotifySink_AddRef(IPropertyNotifySink *iface)
819 {
820     DocHost *This = impl_from_IPropertyNotifySink(iface);
821     return IOleClientSite_AddRef(&This->IOleClientSite_iface);
822 }
823
824 static ULONG WINAPI PropertyNotifySink_Release(IPropertyNotifySink *iface)
825 {
826     DocHost *This = impl_from_IPropertyNotifySink(iface);
827     return IOleClientSite_Release(&This->IOleClientSite_iface);
828 }
829
830 static HRESULT WINAPI PropertyNotifySink_OnChanged(IPropertyNotifySink *iface, DISPID dispID)
831 {
832     DocHost *This = impl_from_IPropertyNotifySink(iface);
833
834     TRACE("(%p)->(%d)\n", This, dispID);
835
836     switch(dispID) {
837     case DISPID_READYSTATE: {
838         READYSTATE ready_state;
839         HRESULT hres;
840
841         hres = get_doc_ready_state(This, &ready_state);
842         if(FAILED(hres))
843             return hres;
844
845         if(ready_state == READYSTATE_COMPLETE && !This->doc_navigate)
846             advise_prop_notif(This, FALSE);
847
848         update_ready_state(This, ready_state);
849         break;
850     }
851     default:
852         FIXME("unimplemented dispid %d\n", dispID);
853         return E_NOTIMPL;
854     }
855
856     return S_OK;
857 }
858
859 static HRESULT WINAPI PropertyNotifySink_OnRequestEdit(IPropertyNotifySink *iface, DISPID dispID)
860 {
861     DocHost *This = impl_from_IPropertyNotifySink(iface);
862     FIXME("(%p)->(%d)\n", This, dispID);
863     return E_NOTIMPL;
864 }
865
866 static const IPropertyNotifySinkVtbl PropertyNotifySinkVtbl = {
867     PropertyNotifySink_QueryInterface,
868     PropertyNotifySink_AddRef,
869     PropertyNotifySink_Release,
870     PropertyNotifySink_OnChanged,
871     PropertyNotifySink_OnRequestEdit
872 };
873
874 void DocHost_Init(DocHost *This, IDispatch *disp, const IDocHostContainerVtbl* container)
875 {
876     This->IDocHostUIHandler2_iface.lpVtbl  = &DocHostUIHandler2Vtbl;
877     This->IOleCommandTarget_iface.lpVtbl   = &OleCommandTargetVtbl;
878     This->IPropertyNotifySink_iface.lpVtbl = &PropertyNotifySinkVtbl;
879
880     This->disp = disp;
881     This->container_vtbl = container;
882
883     This->ready_state = READYSTATE_UNINITIALIZED;
884     list_init(&This->task_queue);
885
886     DocHost_ClientSite_Init(This);
887     DocHost_Frame_Init(This);
888
889     ConnectionPointContainer_Init(&This->cps, (IUnknown*)disp);
890     IEHTMLWindow_Init(This);
891     NewWindowManager_Init(This);
892 }
893
894 void DocHost_Release(DocHost *This)
895 {
896     abort_dochost_tasks(This, NULL);
897     release_dochost_client(This);
898     DocHost_ClientSite_Release(This);
899
900     ConnectionPointContainer_Destroy(&This->cps);
901
902     heap_free(This->url);
903 }