mshtml: Added IDM_SETDIRTY implementation.
[wine] / dlls / mshtml / olecmd.c
1 /*
2  * Copyright 2005-2007 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 "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 "winnls.h"
30 #include "ole2.h"
31 #include "shlguid.h"
32 #include "mshtmdid.h"
33 #include "idispids.h"
34 #include "mshtmcid.h"
35
36 #include "wine/debug.h"
37 #include "wine/unicode.h"
38
39 #include "mshtml_private.h"
40 #include "resource.h"
41
42 WINE_DEFAULT_DEBUG_CHANNEL(mshtml);
43
44 #define NSCMD_COPY "cmd_copy"
45
46 void do_ns_command(NSContainer *This, const char *cmd, nsICommandParams *nsparam)
47 {
48     nsICommandManager *cmdmgr;
49     nsresult nsres;
50
51     TRACE("(%p)\n", This);
52
53     nsres = get_nsinterface((nsISupports*)This->webbrowser, &IID_nsICommandManager, (void**)&cmdmgr);
54     if(NS_FAILED(nsres)) {
55         ERR("Could not get nsICommandManager: %08x\n", nsres);
56         return;
57     }
58
59     nsres = nsICommandManager_DoCommand(cmdmgr, cmd, nsparam, NULL);
60     if(NS_FAILED(nsres))
61         ERR("DoCommand(%s) failed: %08x\n", debugstr_a(cmd), nsres);
62
63     nsICommandManager_Release(cmdmgr);
64 }
65
66 /**********************************************************
67  * IOleCommandTarget implementation
68  */
69
70 #define CMDTARGET_THIS(iface) DEFINE_THIS(HTMLDocument, OleCommandTarget, iface)
71
72 static HRESULT exec_open(HTMLDocument *This, DWORD nCmdexecopt, VARIANT *pvaIn, VARIANT *pvaOut)
73 {
74     FIXME("(%p)->(%d %p %p)\n", This, nCmdexecopt, pvaIn, pvaOut);
75     return E_NOTIMPL;
76 }
77
78 static HRESULT exec_new(HTMLDocument *This, DWORD nCmdexecopt, VARIANT *pvaIn, VARIANT *pvaOut)
79 {
80     FIXME("(%p)->(%d %p %p)\n", This, nCmdexecopt, pvaIn, pvaOut);
81     return E_NOTIMPL;
82 }
83
84 static HRESULT exec_save(HTMLDocument *This, DWORD nCmdexecopt, VARIANT *pvaIn, VARIANT *pvaOut)
85 {
86     FIXME("(%p)->(%d %p %p)\n", This, nCmdexecopt, pvaIn, pvaOut);
87     return E_NOTIMPL;
88 }
89
90 static HRESULT exec_save_as(HTMLDocument *This, DWORD nCmdexecopt, VARIANT *pvaIn, VARIANT *pvaOut)
91 {
92     FIXME("(%p)->(%d %p %p)\n", This, nCmdexecopt, pvaIn, pvaOut);
93     return E_NOTIMPL;
94 }
95
96 static HRESULT exec_save_copy_as(HTMLDocument *This, DWORD nCmdexecopt, VARIANT *pvaIn, VARIANT *pvaOut)
97 {
98     FIXME("(%p)->(%d %p %p)\n", This, nCmdexecopt, pvaIn, pvaOut);
99     return E_NOTIMPL;
100 }
101
102 static nsresult set_head_text(nsIPrintSettings *settings, LPCWSTR template, BOOL head, int pos)
103 {
104     if(head) {
105         switch(pos) {
106         case 0:
107             return nsIPrintSettings_SetHeaderStrLeft(settings, template);
108         case 1:
109             return nsIPrintSettings_SetHeaderStrRight(settings, template);
110         case 2:
111             return nsIPrintSettings_SetHeaderStrCenter(settings, template);
112         }
113     }else {
114         switch(pos) {
115         case 0:
116             return nsIPrintSettings_SetFooterStrLeft(settings, template);
117         case 1:
118             return nsIPrintSettings_SetFooterStrRight(settings, template);
119         case 2:
120             return nsIPrintSettings_SetFooterStrCenter(settings, template);
121         }
122     }
123
124     return NS_OK;
125 }
126
127 static void set_print_template(nsIPrintSettings *settings, LPCWSTR template, BOOL head)
128 {
129     PRUnichar nstemplate[200]; /* FIXME: Use dynamic allocation */
130     PRUnichar *p = nstemplate;
131     LPCWSTR ptr=template;
132     int pos=0;
133
134     while(*ptr) {
135         if(*ptr != '&') {
136             *p++ = *ptr++;
137             continue;
138         }
139
140         switch(*++ptr) {
141         case '&':
142             *p++ = '&';
143             *p++ = '&';
144             ptr++;
145             break;
146         case 'b': /* change align */
147             ptr++;
148             *p = 0;
149             set_head_text(settings, nstemplate, head, pos);
150             p = nstemplate;
151             pos++;
152             break;
153         case 'd': { /* short date */
154             SYSTEMTIME systime;
155             GetLocalTime(&systime);
156             GetDateFormatW(LOCALE_SYSTEM_DEFAULT, 0, &systime, NULL, p,
157                     sizeof(nstemplate)-(p-nstemplate)*sizeof(WCHAR));
158             p += strlenW(p);
159             ptr++;
160             break;
161         }
162         case 'p': /* page number */
163             *p++ = '&';
164             *p++ = 'P';
165             ptr++;
166             break;
167         case 'P': /* page count */
168             *p++ = '?'; /* FIXME */
169             ptr++;
170             break;
171         case 'u':
172             *p++ = '&';
173             *p++ = 'U';
174             ptr++;
175             break;
176         case 'w':
177             /* FIXME: set window title */
178             ptr++;
179             break;
180         default:
181             *p++ = '&';
182             *p++ = *ptr++;
183         }
184     }
185
186     *p = 0;
187     set_head_text(settings, nstemplate, head, pos);
188
189     while(++pos < 3)
190         set_head_text(settings, p, head, pos);
191 }
192
193 static void set_default_templates(nsIPrintSettings *settings)
194 {
195     WCHAR buf[64];
196
197     static const PRUnichar empty[] = {0};
198
199     nsIPrintSettings_SetHeaderStrLeft(settings, empty);
200     nsIPrintSettings_SetHeaderStrRight(settings, empty);
201     nsIPrintSettings_SetHeaderStrCenter(settings, empty);
202     nsIPrintSettings_SetFooterStrLeft(settings, empty);
203     nsIPrintSettings_SetFooterStrRight(settings, empty);
204     nsIPrintSettings_SetFooterStrCenter(settings, empty);
205
206     if(LoadStringW(get_shdoclc(), IDS_PRINT_HEADER_TEMPLATE, buf,
207                    sizeof(buf)/sizeof(WCHAR)))
208         set_print_template(settings, buf, TRUE);
209
210
211     if(LoadStringW(get_shdoclc(), IDS_PRINT_FOOTER_TEMPLATE, buf,
212                    sizeof(buf)/sizeof(WCHAR)))
213         set_print_template(settings, buf, FALSE);
214
215 }
216
217 static HRESULT exec_print(HTMLDocument *This, DWORD nCmdexecopt, VARIANT *pvaIn, VARIANT *pvaOut)
218 {
219     nsIWebBrowserPrint *nsprint;
220     nsIPrintSettings *settings;
221     nsresult nsres;
222
223     TRACE("(%p)->(%d %p %p)\n", This, nCmdexecopt, pvaIn, pvaOut);
224
225     if(pvaOut)
226         FIXME("unsupported pvaOut\n");
227
228     if(!This->nscontainer)
229         return S_OK;
230
231     nsres = get_nsinterface((nsISupports*)This->nscontainer->webbrowser, &IID_nsIWebBrowserPrint,
232             (void**)&nsprint);
233     if(NS_FAILED(nsres)) {
234         ERR("Could not get nsIWebBrowserPrint: %08x\n", nsres);
235         return S_OK;
236     }
237
238     nsres = nsIWebBrowserPrint_GetGlobalPrintSettings(nsprint, &settings);
239     if(NS_FAILED(nsres))
240         ERR("GetCurrentPrintSettings failed: %08x\n", nsres);
241
242     set_default_templates(settings);
243
244     if(pvaIn) {
245         switch(V_VT(pvaIn)) {
246         case VT_BYREF|VT_ARRAY: {
247             VARIANT *opts;
248             DWORD opts_cnt;
249
250             if(V_ARRAY(pvaIn)->cDims != 1)
251                 WARN("cDims = %d\n", V_ARRAY(pvaIn)->cDims);
252
253             SafeArrayAccessData(V_ARRAY(pvaIn), (void**)&opts);
254             opts_cnt = V_ARRAY(pvaIn)->rgsabound[0].cElements;
255
256             if(opts_cnt >= 1) {
257                 switch(V_VT(opts)) {
258                 case VT_BSTR:
259                     TRACE("setting footer %s\n", debugstr_w(V_BSTR(opts)));
260                     set_print_template(settings, V_BSTR(opts), TRUE);
261                     break;
262                 case VT_NULL:
263                     break;
264                 default:
265                     WARN("V_VT(opts) = %d\n", V_VT(opts));
266                 }
267             }
268
269             if(opts_cnt >= 2) {
270                 switch(V_VT(opts+1)) {
271                 case VT_BSTR:
272                     TRACE("setting footer %s\n", debugstr_w(V_BSTR(opts+1)));
273                     set_print_template(settings, V_BSTR(opts+1), FALSE);
274                     break;
275                 case VT_NULL:
276                     break;
277                 default:
278                     WARN("V_VT(opts) = %d\n", V_VT(opts+1));
279                 }
280             }
281
282             if(opts_cnt >= 3)
283                 FIXME("Unsupported opts_cnt %d\n", opts_cnt);
284
285             SafeArrayUnaccessData(V_ARRAY(pvaIn));
286             break;
287         }
288         default:
289             FIXME("unsupported vt %x\n", V_VT(pvaIn));
290         }
291     }
292
293     nsres = nsIWebBrowserPrint_Print(nsprint, settings, NULL);
294     if(NS_FAILED(nsres))
295         ERR("Print failed: %08x\n", nsres);
296
297     nsIWebBrowserPrint_Release(nsprint);
298
299     return S_OK;
300 }
301
302 static HRESULT exec_print_preview(HTMLDocument *This, DWORD nCmdexecopt, VARIANT *pvaIn, VARIANT *pvaOut)
303 {
304     FIXME("(%p)->(%d %p %p)\n", This, nCmdexecopt, pvaIn, pvaOut);
305     return E_NOTIMPL;
306 }
307
308 static HRESULT exec_page_setup(HTMLDocument *This, DWORD nCmdexecopt, VARIANT *pvaIn, VARIANT *pvaOut)
309 {
310     FIXME("(%p)->(%d %p %p)\n", This, nCmdexecopt, pvaIn, pvaOut);
311     return E_NOTIMPL;
312 }
313
314 static HRESULT exec_spell(HTMLDocument *This, DWORD nCmdexecopt, VARIANT *pvaIn, VARIANT *pvaOut)
315 {
316     FIXME("(%p)->(%d %p %p)\n", This, nCmdexecopt, pvaIn, pvaOut);
317     return E_NOTIMPL;
318 }
319
320 static HRESULT exec_properties(HTMLDocument *This, DWORD nCmdexecopt, VARIANT *pvaIn, VARIANT *pvaOut)
321 {
322     FIXME("(%p)->(%d %p %p)\n", This, nCmdexecopt, pvaIn, pvaOut);
323     return E_NOTIMPL;
324 }
325
326 static HRESULT exec_cut(HTMLDocument *This, DWORD nCmdexecopt, VARIANT *pvaIn, VARIANT *pvaOut)
327 {
328     FIXME("(%p)->(%d %p %p)\n", This, nCmdexecopt, pvaIn, pvaOut);
329     return E_NOTIMPL;
330 }
331
332 static HRESULT exec_copy(HTMLDocument *This, DWORD nCmdexecopt, VARIANT *pvaIn, VARIANT *pvaOut)
333 {
334     FIXME("(%p)->(%d %p %p)\n", This, nCmdexecopt, pvaIn, pvaOut);
335     return E_NOTIMPL;
336 }
337
338 static HRESULT exec_paste(HTMLDocument *This, DWORD nCmdexecopt, VARIANT *pvaIn, VARIANT *pvaOut)
339 {
340     FIXME("(%p)->(%d %p %p)\n", This, nCmdexecopt, pvaIn, pvaOut);
341     return E_NOTIMPL;
342 }
343
344 static HRESULT exec_paste_special(HTMLDocument *This, DWORD nCmdexecopt, VARIANT *pvaIn, VARIANT *pvaOut)
345 {
346     FIXME("(%p)->(%d %p %p)\n", This, nCmdexecopt, pvaIn, pvaOut);
347     return E_NOTIMPL;
348 }
349
350 static HRESULT exec_undo(HTMLDocument *This, DWORD nCmdexecopt, VARIANT *pvaIn, VARIANT *pvaOut)
351 {
352     FIXME("(%p)->(%d %p %p)\n", This, nCmdexecopt, pvaIn, pvaOut);
353     return E_NOTIMPL;
354 }
355
356 static HRESULT exec_rendo(HTMLDocument *This, DWORD nCmdexecopt, VARIANT *pvaIn, VARIANT *pvaOut)
357 {
358     FIXME("(%p)->(%d %p %p)\n", This, nCmdexecopt, pvaIn, pvaOut);
359     return E_NOTIMPL;
360 }
361
362 static HRESULT exec_select_all(HTMLDocument *This, DWORD nCmdexecopt, VARIANT *pvaIn, VARIANT *pvaOut)
363 {
364     FIXME("(%p)->(%d %p %p)\n", This, nCmdexecopt, pvaIn, pvaOut);
365     return E_NOTIMPL;
366 }
367
368 static HRESULT exec_clear_selection(HTMLDocument *This, DWORD nCmdexecopt, VARIANT *pvaIn, VARIANT *pvaOut)
369 {
370     FIXME("(%p)->(%d %p %p)\n", This, nCmdexecopt, pvaIn, pvaOut);
371     return E_NOTIMPL;
372 }
373
374 static HRESULT exec_zoom(HTMLDocument *This, DWORD nCmdexecopt, VARIANT *pvaIn, VARIANT *pvaOut)
375 {
376     FIXME("(%p)->(%d %p %p)\n", This, nCmdexecopt, pvaIn, pvaOut);
377     return E_NOTIMPL;
378 }
379
380 static HRESULT exec_get_zoom_range(HTMLDocument *This, DWORD nCmdexecopt, VARIANT *pvaIn, VARIANT *pvaOut)
381 {
382     FIXME("(%p)->(%d %p %p)\n", This, nCmdexecopt, pvaIn, pvaOut);
383     return E_NOTIMPL;
384 }
385
386 static HRESULT exec_refresh(HTMLDocument *This, DWORD nCmdexecopt, VARIANT *pvaIn, VARIANT *pvaOut)
387 {
388     FIXME("(%p)->(%d %p %p)\n", This, nCmdexecopt, pvaIn, pvaOut);
389     return E_NOTIMPL;
390 }
391
392 static HRESULT exec_stop(HTMLDocument *This, DWORD nCmdexecopt, VARIANT *pvaIn, VARIANT *pvaOut)
393 {
394     FIXME("(%p)->(%d %p %p)\n", This, nCmdexecopt, pvaIn, pvaOut);
395     return E_NOTIMPL;
396 }
397
398 static HRESULT exec_stop_download(HTMLDocument *This, DWORD nCmdexecopt, VARIANT *pvaIn, VARIANT *pvaOut)
399 {
400     FIXME("(%p)->(%d %p %p)\n", This, nCmdexecopt, pvaIn, pvaOut);
401     return E_NOTIMPL;
402 }
403
404 static HRESULT exec_find(HTMLDocument *This, DWORD nCmdexecopt, VARIANT *pvaIn, VARIANT *pvaOut)
405 {
406     FIXME("(%p)->(%d %p %p)\n", This, nCmdexecopt, pvaIn, pvaOut);
407     return E_NOTIMPL;
408 }
409
410 static HRESULT exec_delete(HTMLDocument *This, DWORD nCmdexecopt, VARIANT *pvaIn, VARIANT *pvaOut)
411 {
412     FIXME("(%p)->(%d %p %p)\n", This, nCmdexecopt, pvaIn, pvaOut);
413     return E_NOTIMPL;
414 }
415
416 static HRESULT exec_enable_interaction(HTMLDocument *This, DWORD nCmdexecopt, VARIANT *pvaIn, VARIANT *pvaOut)
417 {
418     FIXME("(%p)->(%d %p %p)\n", This, nCmdexecopt, pvaIn, pvaOut);
419     return E_NOTIMPL;
420 }
421
422 static HRESULT exec_on_unload(HTMLDocument *This, DWORD nCmdexecopt, VARIANT *pvaIn, VARIANT *pvaOut)
423 {
424     TRACE("(%p)->(%d %p %p)\n", This, nCmdexecopt, pvaIn, pvaOut);
425
426     /* Tests show that we have nothing more to do here */
427
428     if(pvaOut) {
429         V_VT(pvaOut) = VT_BOOL;
430         V_BOOL(pvaOut) = VARIANT_TRUE;
431     }
432
433     return S_OK;
434 }
435
436 static HRESULT exec_show_page_setup(HTMLDocument *This, DWORD nCmdexecopt, VARIANT *pvaIn, VARIANT *pvaOut)
437 {
438     FIXME("(%p)->(%d %p %p)\n", This, nCmdexecopt, pvaIn, pvaOut);
439     return E_NOTIMPL;
440 }
441
442 static HRESULT exec_show_print(HTMLDocument *This, DWORD nCmdexecopt, VARIANT *pvaIn, VARIANT *pvaOut)
443 {
444     FIXME("(%p)->(%d %p %p)\n", This, nCmdexecopt, pvaIn, pvaOut);
445     return E_NOTIMPL;
446 }
447
448 static HRESULT exec_close(HTMLDocument *This, DWORD nCmdexecopt, VARIANT *pvaIn, VARIANT *pvaOut)
449 {
450     FIXME("(%p)->(%d %p %p)\n", This, nCmdexecopt, pvaIn, pvaOut);
451     return E_NOTIMPL;
452 }
453
454 static HRESULT exec_set_print_template(HTMLDocument *This, DWORD nCmdexecopt, VARIANT *pvaIn, VARIANT *pvaOut)
455 {
456     FIXME("(%p)->(%d %p %p)\n", This, nCmdexecopt, pvaIn, pvaOut);
457     return E_NOTIMPL;
458 }
459
460 static HRESULT exec_get_print_template(HTMLDocument *This, DWORD nCmdexecopt, VARIANT *pvaIn, VARIANT *pvaOut)
461 {
462     FIXME("(%p)->(%d %p %p)\n", This, nCmdexecopt, pvaIn, pvaOut);
463     return E_NOTIMPL;
464 }
465
466 static HRESULT query_mshtml_copy(HTMLDocument *This, OLECMD *cmd)
467 {
468     FIXME("(%p)\n", This);
469     cmd->cmdf = OLECMDF_SUPPORTED|OLECMDF_ENABLED;
470     return S_OK;
471 }
472
473 static HRESULT exec_mshtml_copy(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
474 {
475     TRACE("(%p)->(%08x %p %p)\n", This, cmdexecopt, in, out);
476
477     if(This->usermode == EDITMODE)
478         return editor_exec_copy(This, cmdexecopt, in, out);
479
480     do_ns_command(This->nscontainer, NSCMD_COPY, NULL);
481     return S_OK;
482 }
483
484 static HRESULT query_mshtml_cut(HTMLDocument *This, OLECMD *cmd)
485 {
486     FIXME("(%p)\n", This);
487     cmd->cmdf = OLECMDF_SUPPORTED|OLECMDF_ENABLED;
488     return S_OK;
489 }
490
491 static HRESULT exec_mshtml_cut(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
492 {
493     TRACE("(%p)->(%08x %p %p)\n", This, cmdexecopt, in, out);
494
495     if(This->usermode == EDITMODE)
496         return editor_exec_cut(This, cmdexecopt, in, out);
497
498     FIXME("Unimplemented in browse mode\n");
499     return E_NOTIMPL;
500 }
501
502 static HRESULT query_mshtml_paste(HTMLDocument *This, OLECMD *cmd)
503 {
504     FIXME("(%p)\n", This);
505     cmd->cmdf = OLECMDF_SUPPORTED|OLECMDF_ENABLED;
506     return S_OK;
507 }
508
509 static HRESULT exec_mshtml_paste(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
510 {
511     TRACE("(%p)->(%08x %p %p)\n", This, cmdexecopt, in, out);
512
513     if(This->usermode == EDITMODE)
514         return editor_exec_paste(This, cmdexecopt, in, out);
515
516     FIXME("Unimplemented in browse mode\n");
517     return E_NOTIMPL;
518 }
519
520 static HRESULT exec_browsemode(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
521 {
522     WARN("(%p)->(%08x %p %p)\n", This, cmdexecopt, in, out);
523
524     if(in || out)
525         FIXME("unsupported args\n");
526
527     This->usermode = BROWSEMODE;
528
529     return S_OK;
530 }
531
532 static HRESULT exec_editmode(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
533 {
534     IMoniker *mon;
535     HRESULT hres;
536
537     static const WCHAR wszAboutBlank[] = {'a','b','o','u','t',':','b','l','a','n','k',0};
538
539     TRACE("(%p)->(%08x %p %p)\n", This, cmdexecopt, in, out);
540
541     if(in || out)
542         FIXME("unsupported args\n");
543
544     if(This->usermode == EDITMODE)
545         return S_OK;
546
547     This->usermode = EDITMODE;
548
549     if(This->frame)
550         IOleInPlaceFrame_SetStatusText(This->frame, NULL);
551
552     if(This->client) {
553         IOleCommandTarget *cmdtrg;
554
555         hres = IOleClientSite_QueryInterface(This->client, &IID_IOleCommandTarget,
556                 (void**)&cmdtrg);
557         if(SUCCEEDED(hres)) {
558             VARIANT var;
559
560             V_VT(&var) = VT_I4;
561             V_I4(&var) = 0;
562             IOleCommandTarget_Exec(cmdtrg, &CGID_ShellDocView, 37, 0, &var, NULL);
563
564             IOleCommandTarget_Release(cmdtrg);
565         }
566     }
567
568     if(This->hostui) {
569         DOCHOSTUIINFO hostinfo;
570
571         memset(&hostinfo, 0, sizeof(DOCHOSTUIINFO));
572         hostinfo.cbSize = sizeof(DOCHOSTUIINFO);
573         hres = IDocHostUIHandler_GetHostInfo(This->hostui, &hostinfo);
574         if(SUCCEEDED(hres))
575             /* FIXME: use hostinfo */
576             TRACE("hostinfo = {%u %08x %08x %s %s}\n",
577                     hostinfo.cbSize, hostinfo.dwFlags, hostinfo.dwDoubleClick,
578                     debugstr_w(hostinfo.pchHostCss), debugstr_w(hostinfo.pchHostNS));
579     }
580
581     if(This->nscontainer)
582         set_ns_editmode(This->nscontainer);
583
584     hres = CreateURLMoniker(NULL, wszAboutBlank, &mon);
585     if(FAILED(hres)) {
586         FIXME("CreateURLMoniker failed: %08x\n", hres);
587         return hres;
588     }
589
590     update_doc(This, UPDATE_UI);
591
592     hres = IPersistMoniker_Load(PERSISTMON(This), TRUE, mon, NULL, 0);
593     IMoniker_Release(mon);
594     if(FAILED(hres))
595         return hres;
596
597     if(This->ui_active) {
598         OLECHAR wszHTMLDocument[30];
599         RECT rcBorderWidths;
600
601         if(This->ip_window)
602             IOleInPlaceUIWindow_SetActiveObject(This->ip_window, NULL, NULL);
603         if(This->hostui)
604             IDocHostUIHandler_HideUI(This->hostui);
605
606         if(This->hostui)
607             IDocHostUIHandler_ShowUI(This->hostui, DOCHOSTUITYPE_AUTHOR, ACTOBJ(This), CMDTARGET(This),
608                 This->frame, This->ip_window);
609
610         LoadStringW(hInst, IDS_HTMLDOCUMENT, wszHTMLDocument,
611                     sizeof(wszHTMLDocument)/sizeof(WCHAR));
612
613         if(This->ip_window)
614             IOleInPlaceUIWindow_SetActiveObject(This->ip_window, ACTOBJ(This), wszHTMLDocument);
615
616         memset(&rcBorderWidths, 0, sizeof(rcBorderWidths));
617         IOleInPlaceFrame_SetBorderSpace(This->frame, &rcBorderWidths);
618     }
619
620     return S_OK;
621 }
622
623 static HRESULT exec_htmleditmode(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
624 {
625     FIXME("(%p)->(%08x %p %p)\n", This, cmdexecopt, in, out);
626     return S_OK;
627 }
628
629 static HRESULT exec_baselinefont3(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
630 {
631     FIXME("(%p)->(%08x %p %p)\n", This, cmdexecopt, in, out);
632     return S_OK;
633 }
634
635 static HRESULT exec_respectvisibility_indesign(HTMLDocument *This, DWORD cmdexecopt,
636         VARIANT *in, VARIANT *out)
637 {
638     FIXME("(%p)->(%08x %p %p)\n", This, cmdexecopt, in, out);
639     return E_NOTIMPL;
640 }
641
642 static HRESULT query_enabled_stub(HTMLDocument *This, OLECMD *cmd)
643 {
644     switch(cmd->cmdID) {
645     case IDM_PRINT:
646         FIXME("CGID_MSHTML: IDM_PRINT\n");
647         cmd->cmdf = OLECMDF_SUPPORTED|OLECMDF_ENABLED;
648         break;
649     case IDM_BLOCKDIRLTR:
650         FIXME("CGID_MSHTML: IDM_BLOCKDIRLTR\n");
651         cmd->cmdf = OLECMDF_SUPPORTED|OLECMDF_ENABLED;
652         break;
653     case IDM_BLOCKDIRRTL:
654         FIXME("CGID_MSHTML: IDM_BLOCKDIRRTL\n");
655         cmd->cmdf = OLECMDF_SUPPORTED|OLECMDF_ENABLED;
656         break;
657     }
658
659     return S_OK;
660 }
661
662 static const struct {
663     OLECMDF cmdf;
664     HRESULT (*func)(HTMLDocument*,DWORD,VARIANT*,VARIANT*);
665 } exec_table[OLECMDID_GETPRINTTEMPLATE+1] = {
666     {0},
667     { OLECMDF_SUPPORTED,                  exec_open                 }, /* OLECMDID_OPEN */
668     { OLECMDF_SUPPORTED,                  exec_new                  }, /* OLECMDID_NEW */
669     { OLECMDF_SUPPORTED,                  exec_save                 }, /* OLECMDID_SAVE */
670     { OLECMDF_SUPPORTED|OLECMDF_ENABLED,  exec_save_as              }, /* OLECMDID_SAVEAS */
671     { OLECMDF_SUPPORTED,                  exec_save_copy_as         }, /* OLECMDID_SAVECOPYAS */
672     { OLECMDF_SUPPORTED|OLECMDF_ENABLED,  exec_print                }, /* OLECMDID_PRINT */
673     { OLECMDF_SUPPORTED|OLECMDF_ENABLED,  exec_print_preview        }, /* OLECMDID_PRINTPREVIEW */
674     { OLECMDF_SUPPORTED|OLECMDF_ENABLED,  exec_page_setup           }, /* OLECMDID_PAGESETUP */
675     { OLECMDF_SUPPORTED,                  exec_spell                }, /* OLECMDID_SPELL */
676     { OLECMDF_SUPPORTED|OLECMDF_ENABLED,  exec_properties           }, /* OLECMDID_PROPERTIES */
677     { OLECMDF_SUPPORTED,                  exec_cut                  }, /* OLECMDID_CUT */
678     { OLECMDF_SUPPORTED,                  exec_copy                 }, /* OLECMDID_COPY */
679     { OLECMDF_SUPPORTED,                  exec_paste                }, /* OLECMDID_PASTE */
680     { OLECMDF_SUPPORTED,                  exec_paste_special        }, /* OLECMDID_PASTESPECIAL */
681     { OLECMDF_SUPPORTED,                  exec_undo                 }, /* OLECMDID_UNDO */
682     { OLECMDF_SUPPORTED,                  exec_rendo                }, /* OLECMDID_REDO */
683     { OLECMDF_SUPPORTED|OLECMDF_ENABLED,  exec_select_all           }, /* OLECMDID_SELECTALL */
684     { OLECMDF_SUPPORTED,                  exec_clear_selection      }, /* OLECMDID_CLEARSELECTION */
685     { OLECMDF_SUPPORTED,                  exec_zoom                 }, /* OLECMDID_ZOOM */
686     { OLECMDF_SUPPORTED,                  exec_get_zoom_range       }, /* OLECMDID_GETZOOMRANGE */
687     {0},
688     { OLECMDF_SUPPORTED|OLECMDF_ENABLED,  exec_refresh              }, /* OLECMDID_REFRESH */
689     { OLECMDF_SUPPORTED|OLECMDF_ENABLED,  exec_stop                 }, /* OLECMDID_STOP */
690     {0},{0},{0},{0},{0},{0},
691     { OLECMDF_SUPPORTED,                  exec_stop_download        }, /* OLECMDID_STOPDOWNLOAD */
692     {0},
693     { OLECMDF_SUPPORTED|OLECMDF_ENABLED,  exec_find                 }, /* OLECMDID_FIND */
694     { OLECMDF_SUPPORTED,                  exec_delete               }, /* OLECMDID_DELETE */
695     {0},{0},
696     { OLECMDF_SUPPORTED,                  exec_enable_interaction   }, /* OLECMDID_ENABLE_INTERACTION */
697     { OLECMDF_SUPPORTED,                  exec_on_unload            }, /* OLECMDID_ONUNLOAD */
698     {0},{0},{0},{0},{0},
699     { OLECMDF_SUPPORTED,                  exec_show_page_setup      }, /* OLECMDID_SHOWPAGESETUP */
700     { OLECMDF_SUPPORTED,                  exec_show_print           }, /* OLECMDID_SHOWPRINT */
701     {0},{0},
702     { OLECMDF_SUPPORTED,                  exec_close                }, /* OLECMDID_CLOSE */
703     {0},{0},{0},
704     { OLECMDF_SUPPORTED,                  exec_set_print_template   }, /* OLECMDID_SETPRINTTEMPLATE */
705     { OLECMDF_SUPPORTED,                  exec_get_print_template   }  /* OLECMDID_GETPRINTTEMPLATE */
706 };
707
708 static const cmdtable_t base_cmds[] = {
709     {IDM_COPY,             query_mshtml_copy,     exec_mshtml_copy},
710     {IDM_PASTE,            query_mshtml_paste,    exec_mshtml_paste},
711     {IDM_CUT,              query_mshtml_cut,      exec_mshtml_cut},
712     {IDM_BROWSEMODE,       NULL,                  exec_browsemode},
713     {IDM_EDITMODE,         NULL,                  exec_editmode},
714     {IDM_PRINT,            query_enabled_stub,    exec_print},
715     {IDM_HTMLEDITMODE,     NULL,                  exec_htmleditmode},
716     {IDM_BASELINEFONT3,    NULL,                  exec_baselinefont3},
717     {IDM_BLOCKDIRLTR,      query_enabled_stub,    NULL},
718     {IDM_BLOCKDIRRTL,      query_enabled_stub,    NULL},
719     {IDM_RESPECTVISIBILITY_INDESIGN, NULL,        exec_respectvisibility_indesign},
720     {0,NULL,NULL}
721 };
722
723 static HRESULT WINAPI OleCommandTarget_QueryInterface(IOleCommandTarget *iface, REFIID riid, void **ppv)
724 {
725     HTMLDocument *This = CMDTARGET_THIS(iface);
726     return IHTMLDocument2_QueryInterface(HTMLDOC(This), riid, ppv);
727 }
728
729 static ULONG WINAPI OleCommandTarget_AddRef(IOleCommandTarget *iface)
730 {
731     HTMLDocument *This = CMDTARGET_THIS(iface);
732     return IHTMLDocument2_AddRef(HTMLDOC(This));
733 }
734
735 static ULONG WINAPI OleCommandTarget_Release(IOleCommandTarget *iface)
736 {
737     HTMLDocument *This = CMDTARGET_THIS(iface);
738     return IHTMLDocument_Release(HTMLDOC(This));
739 }
740
741 static HRESULT query_from_table(HTMLDocument *This, const cmdtable_t *cmdtable, OLECMD *cmd)
742 {
743     const cmdtable_t *iter = cmdtable;
744
745     cmd->cmdf = 0;
746
747     while(iter->id && iter->id != cmd->cmdID)
748         iter++;
749
750     if(!iter->id || !iter->query)
751         return OLECMDERR_E_NOTSUPPORTED;
752
753     return iter->query(This, cmd);
754 }
755
756 static HRESULT WINAPI OleCommandTarget_QueryStatus(IOleCommandTarget *iface, const GUID *pguidCmdGroup,
757         ULONG cCmds, OLECMD prgCmds[], OLECMDTEXT *pCmdText)
758 {
759     HTMLDocument *This = CMDTARGET_THIS(iface);
760     HRESULT hres = S_OK, hr;
761
762     TRACE("(%p)->(%s %d %p %p)\n", This, debugstr_guid(pguidCmdGroup), cCmds, prgCmds, pCmdText);
763
764     if(!pguidCmdGroup) {
765         ULONG i;
766
767         for(i=0; i<cCmds; i++) {
768             if(prgCmds[i].cmdID<OLECMDID_OPEN || prgCmds[i].cmdID>OLECMDID_GETPRINTTEMPLATE) {
769                 WARN("Unsupported cmdID = %d\n", prgCmds[i].cmdID);
770                 prgCmds[i].cmdf = 0;
771                 hres = OLECMDERR_E_NOTSUPPORTED;
772             }else {
773                 if(prgCmds[i].cmdID == OLECMDID_OPEN || prgCmds[i].cmdID == OLECMDID_NEW) {
774                     IOleCommandTarget *cmdtrg = NULL;
775                     OLECMD olecmd;
776
777                     prgCmds[i].cmdf = OLECMDF_SUPPORTED;
778                     if(This->client) {
779                         hr = IOleClientSite_QueryInterface(This->client, &IID_IOleCommandTarget,
780                                 (void**)&cmdtrg);
781                         if(SUCCEEDED(hr)) {
782                             olecmd.cmdID = prgCmds[i].cmdID;
783                             olecmd.cmdf = 0;
784
785                             hr = IOleCommandTarget_QueryStatus(cmdtrg, NULL, 1, &olecmd, NULL);
786                             if(SUCCEEDED(hr) && olecmd.cmdf)
787                                 prgCmds[i].cmdf = olecmd.cmdf;
788                         }
789                     }else {
790                         ERR("This->client == NULL, native would crash\n");
791                     }
792                 }else {
793                     prgCmds[i].cmdf = exec_table[prgCmds[i].cmdID].cmdf;
794                     TRACE("cmdID = %d  returning %x\n", prgCmds[i].cmdID, prgCmds[i].cmdf);
795                 }
796                 hres = S_OK;
797             }
798         }
799
800         if(pCmdText)
801             FIXME("Set pCmdText\n");
802     }else if(IsEqualGUID(&CGID_MSHTML, pguidCmdGroup)) {
803         ULONG i;
804
805         for(i=0; i<cCmds; i++) {
806             HRESULT hres = query_from_table(This, base_cmds, prgCmds+i);
807             if(hres == OLECMDERR_E_NOTSUPPORTED)
808                 hres = query_from_table(This, editmode_cmds, prgCmds+i);
809             if(hres == OLECMDERR_E_NOTSUPPORTED)
810                 FIXME("CGID_MSHTML: unsupported cmdID %d\n", prgCmds[i].cmdID);
811         }
812
813         hres = prgCmds[i-1].cmdf ? S_OK : OLECMDERR_E_NOTSUPPORTED;
814
815         if(pCmdText)
816             FIXME("Set pCmdText\n");
817     }else {
818         FIXME("Unsupported pguidCmdGroup %s\n", debugstr_guid(pguidCmdGroup));
819         hres = OLECMDERR_E_UNKNOWNGROUP;
820     }
821
822     return hres;
823 }
824
825 static HRESULT exec_from_table(HTMLDocument *This, const cmdtable_t *cmdtable, DWORD cmdid,
826                                DWORD cmdexecopt, VARIANT *in, VARIANT *out)
827 {
828     const cmdtable_t *iter = cmdtable;
829
830     while(iter->id && iter->id != cmdid)
831         iter++;
832
833     if(!iter->id || !iter->exec)
834         return OLECMDERR_E_NOTSUPPORTED;
835
836     return iter->exec(This, cmdexecopt, in, out);
837 }
838
839 static HRESULT WINAPI OleCommandTarget_Exec(IOleCommandTarget *iface, const GUID *pguidCmdGroup,
840         DWORD nCmdID, DWORD nCmdexecopt, VARIANT *pvaIn, VARIANT *pvaOut)
841 {
842     HTMLDocument *This = CMDTARGET_THIS(iface);
843
844     if(!pguidCmdGroup) {
845         if(nCmdID<OLECMDID_OPEN || nCmdID>OLECMDID_GETPRINTTEMPLATE || !exec_table[nCmdID].func) {
846             WARN("Unsupported cmdID = %d\n", nCmdID);
847             return OLECMDERR_E_NOTSUPPORTED;
848         }
849
850         return exec_table[nCmdID].func(This, nCmdexecopt, pvaIn, pvaOut);
851     }else if(IsEqualGUID(&CGID_Explorer, pguidCmdGroup)) {
852         FIXME("unsupported nCmdID %d of CGID_Explorer group\n", nCmdID);
853         TRACE("%p %p\n", pvaIn, pvaOut);
854         return OLECMDERR_E_NOTSUPPORTED;
855     }else if(IsEqualGUID(&CGID_ShellDocView, pguidCmdGroup)) {
856         FIXME("unsupported nCmdID %d of CGID_ShellDocView group\n", nCmdID);
857         return OLECMDERR_E_NOTSUPPORTED;
858     }else if(IsEqualGUID(&CGID_MSHTML, pguidCmdGroup)) {
859         HRESULT hres = exec_from_table(This, base_cmds, nCmdID, nCmdexecopt, pvaIn, pvaOut);
860         if(hres == OLECMDERR_E_NOTSUPPORTED)
861             hres = exec_from_table(This, editmode_cmds, nCmdID,
862                                    nCmdexecopt, pvaIn, pvaOut);
863         if(hres == OLECMDERR_E_NOTSUPPORTED)
864             FIXME("unsupported nCmdID %d of CGID_MSHTML group\n", nCmdID);
865
866         return hres;
867     }
868
869     FIXME("Unsupported pguidCmdGroup %s\n", debugstr_guid(pguidCmdGroup));
870     return OLECMDERR_E_UNKNOWNGROUP;
871 }
872
873 #undef CMDTARGET_THIS
874
875 static const IOleCommandTargetVtbl OleCommandTargetVtbl = {
876     OleCommandTarget_QueryInterface,
877     OleCommandTarget_AddRef,
878     OleCommandTarget_Release,
879     OleCommandTarget_QueryStatus,
880     OleCommandTarget_Exec
881 };
882
883 void show_context_menu(HTMLDocument *This, DWORD dwID, POINT *ppt, IDispatch *elem)
884 {
885     HMENU menu_res, menu;
886     DWORD cmdid;
887     HRESULT hres;
888
889     hres = IDocHostUIHandler_ShowContextMenu(This->hostui, dwID, ppt,
890             (IUnknown*)CMDTARGET(This), elem);
891     if(hres == S_OK)
892         return;
893
894     menu_res = LoadMenuW(get_shdoclc(), MAKEINTRESOURCEW(IDR_BROWSE_CONTEXT_MENU));
895     menu = GetSubMenu(menu_res, dwID);
896
897     cmdid = TrackPopupMenu(menu, TPM_LEFTALIGN | TPM_RIGHTBUTTON | TPM_RETURNCMD,
898             ppt->x, ppt->y, 0, This->hwnd, NULL);
899     DestroyMenu(menu_res);
900
901     if(cmdid)
902         IOleCommandTarget_Exec(CMDTARGET(This), &CGID_MSHTML, cmdid, 0, NULL, NULL);
903 }
904
905 void HTMLDocument_OleCmd_Init(HTMLDocument *This)
906 {
907     This->lpOleCommandTargetVtbl = &OleCommandTargetVtbl;
908 }