wined3d: Optimize render states in the stateblock.
[wine] / dlls / mshtml / editor.c
1 /*
2  * Copyright 2006-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 "mshtmcid.h"
32
33 #include "wine/debug.h"
34 #include "wine/unicode.h"
35
36 #include "mshtml_private.h"
37 #include "resource.h"
38
39 WINE_DEFAULT_DEBUG_CHANNEL(mshtml);
40
41 #define NSCMD_ALIGN        "cmd_align"
42 #define NSCMD_BEGINLINE    "cmd_beginLine"
43 #define NSCMD_BOLD         "cmd_bold"
44 #define NSCMD_CHARNEXT     "cmd_charNext"
45 #define NSCMD_CHARPREVIOUS "cmd_charPrevious"
46 #define NSCMD_COPY         "cmd_copy"
47 #define NSCMD_CUT          "cmd_cut"
48 #define NSCMD_DELETECHARFORWARD   "cmd_deleteCharForward"
49 #define NSCMD_DELETEWORDFORWARD   "cmd_deleteWordForward"
50 #define NSCMD_ENDLINE      "cmd_endLine"
51 #define NSCMD_FONTCOLOR    "cmd_fontColor"
52 #define NSCMD_FONTFACE     "cmd_fontFace"
53 #define NSCMD_INDENT       "cmd_indent"
54 #define NSCMD_INSERTHR     "cmd_insertHR"
55 #define NSCMD_ITALIC       "cmd_italic"
56 #define NSCMD_LINENEXT     "cmd_lineNext"
57 #define NSCMD_LINEPREVIOUS "cmd_linePrevious"
58 #define NSCMD_MOVEBOTTOM   "cmd_moveBottom"
59 #define NSCMD_MOVEPAGEDOWN "cmd_movePageDown"
60 #define NSCMD_MOVEPAGEUP   "cmd_movePageUp"
61 #define NSCMD_MOVETOP      "cmd_moveTop"
62 #define NSCMD_OL           "cmd_ol"
63 #define NSCMD_OUTDENT      "cmd_outdent"
64 #define NSCMD_PASTE        "cmd_paste"
65 #define NSCMD_SELECTBEGINLINE     "cmd_selectBeginLine"
66 #define NSCMD_SELECTBOTTOM        "cmd_selectBottom"
67 #define NSCMD_SELECTCHARNEXT      "cmd_selectCharNext"
68 #define NSCMD_SELECTCHARPREVIOUS  "cmd_selectCharPrevious"
69 #define NSCMD_SELECTENDLINE       "cmd_selectEndLine"
70 #define NSCMD_SELECTLINENEXT      "cmd_selectLineNext"
71 #define NSCMD_SELECTLINEPREVIOUS  "cmd_selectLinePrevious"
72 #define NSCMD_SELECTPAGEDOWN      "cmd_selectPageDown"
73 #define NSCMD_SELECTPAGEUP        "cmd_selectPageUp"
74 #define NSCMD_SELECTTOP           "cmd_selectTop"
75 #define NSCMD_SELECTWORDNEXT      "cmd_selectWordNext"
76 #define NSCMD_SELECTWORDPREVIOUS  "cmd_selectWordPrevious"
77 #define NSCMD_UL           "cmd_ul"
78 #define NSCMD_UNDERLINE    "cmd_underline"
79 #define NSCMD_WORDNEXT     "cmd_wordNext"
80 #define NSCMD_WORDPREVIOUS "cmd_wordPrevious"
81
82 #define NSSTATE_ATTRIBUTE "state_attribute"
83 #define NSSTATE_ALL       "state_all"
84
85 #define NSALIGN_CENTER "center"
86 #define NSALIGN_LEFT   "left"
87 #define NSALIGN_RIGHT  "right"
88
89 #define DOM_VK_LEFT     VK_LEFT
90 #define DOM_VK_UP       VK_UP
91 #define DOM_VK_RIGHT    VK_RIGHT
92 #define DOM_VK_DOWN     VK_DOWN
93 #define DOM_VK_DELETE   VK_DELETE
94 #define DOM_VK_HOME     VK_HOME
95 #define DOM_VK_END      VK_END
96
97 static const WCHAR wszFont[] = {'f','o','n','t',0};
98 static const WCHAR wszSize[] = {'s','i','z','e',0};
99
100 static void do_ns_command(NSContainer *This, const char *cmd, nsICommandParams *nsparam)
101 {
102     nsICommandManager *cmdmgr;
103     nsIInterfaceRequestor *iface_req;
104     nsresult nsres;
105
106     TRACE("(%p)\n", This);
107
108     nsres = nsIWebBrowser_QueryInterface(This->webbrowser,
109             &IID_nsIInterfaceRequestor, (void**)&iface_req);
110     if(NS_FAILED(nsres)) {
111         ERR("Could not get nsIInterfaceRequestor: %08x\n", nsres);
112         return;
113     }
114
115     nsres = nsIInterfaceRequestor_GetInterface(iface_req, &IID_nsICommandManager,
116                                                (void**)&cmdmgr);
117     nsIInterfaceRequestor_Release(iface_req);
118     if(NS_FAILED(nsres)) {
119         ERR("Could not get nsICommandManager: %08x\n", nsres);
120         return;
121     }
122
123     nsres = nsICommandManager_DoCommand(cmdmgr, cmd, nsparam, NULL);
124     if(NS_FAILED(nsres))
125         ERR("DoCommand(%s) failed: %08x\n", debugstr_a(cmd), nsres);
126
127     nsICommandManager_Release(cmdmgr);
128 }
129
130 static void do_ns_editor_command(NSContainer *This, const char *cmd)
131 {
132     nsresult nsres;
133
134     if(!This->editor_controller)
135         return;
136
137     nsres = nsIController_DoCommand(This->editor_controller, cmd);
138     if(NS_FAILED(nsres))
139         ERR("DoCommand(%s) failed: %08x\n", debugstr_a(cmd), nsres);
140 }
141
142 static nsresult get_ns_command_state(NSContainer *This, const char *cmd, nsICommandParams *nsparam)
143 {
144     nsICommandManager *cmdmgr;
145     nsIInterfaceRequestor *iface_req;
146     nsresult nsres;
147
148     nsres = nsIWebBrowser_QueryInterface(This->webbrowser,
149             &IID_nsIInterfaceRequestor, (void**)&iface_req);
150     if(NS_FAILED(nsres)) {
151         ERR("Could not get nsIInterfaceRequestor: %08x\n", nsres);
152         return nsres;
153     }
154
155     nsres = nsIInterfaceRequestor_GetInterface(iface_req, &IID_nsICommandManager,
156                                                (void**)&cmdmgr);
157     nsIInterfaceRequestor_Release(iface_req);
158     if(NS_FAILED(nsres)) {
159         ERR("Could not get nsICommandManager: %08x\n", nsres);
160         return nsres;
161     }
162
163     nsres = nsICommandManager_GetCommandState(cmdmgr, cmd, NULL, nsparam);
164     if(NS_FAILED(nsres))
165         ERR("GetCommandState(%s) failed: %08x\n", debugstr_a(cmd), nsres);
166
167     nsICommandManager_Release(cmdmgr);
168     return nsres;
169 }
170
171 static DWORD query_ns_edit_status(HTMLDocument *This, const char *nscmd)
172 {
173     nsICommandParams *nsparam;
174     PRBool b = FALSE;
175
176     if(This->usermode != EDITMODE || This->readystate < READYSTATE_INTERACTIVE)
177         return OLECMDF_SUPPORTED;
178
179     if(This->nscontainer && nscmd) {
180         nsparam = create_nscommand_params();
181         get_ns_command_state(This->nscontainer, nscmd, nsparam);
182
183         nsICommandParams_GetBooleanValue(nsparam, NSSTATE_ALL, &b);
184
185         nsICommandParams_Release(nsparam);
186     }
187
188     return OLECMDF_SUPPORTED | OLECMDF_ENABLED | (b ? OLECMDF_LATCHED : 0);
189 }
190
191 static void set_ns_align(HTMLDocument *This, const char *align_str)
192 {
193     nsICommandParams *nsparam;
194
195     if(!This->nscontainer)
196         return;
197
198     nsparam = create_nscommand_params();
199     nsICommandParams_SetCStringValue(nsparam, NSSTATE_ATTRIBUTE, align_str);
200
201     do_ns_command(This->nscontainer, NSCMD_ALIGN, nsparam);
202
203     nsICommandParams_Release(nsparam);
204 }
205
206 static DWORD query_align_status(HTMLDocument *This, const char *align_str)
207 {
208     nsICommandParams *nsparam;
209     char *align = NULL;
210
211     if(This->usermode != EDITMODE || This->readystate < READYSTATE_INTERACTIVE)
212         return OLECMDF_SUPPORTED;
213
214     if(This->nscontainer) {
215         nsparam = create_nscommand_params();
216         get_ns_command_state(This->nscontainer, NSCMD_ALIGN, nsparam);
217
218         nsICommandParams_GetCStringValue(nsparam, NSSTATE_ATTRIBUTE, &align);
219
220         nsICommandParams_Release(nsparam);
221     }
222
223     return OLECMDF_SUPPORTED | OLECMDF_ENABLED
224         | (align && !strcmp(align_str, align) ? OLECMDF_LATCHED : 0);
225 }
226
227
228 static nsISelection *get_ns_selection(HTMLDocument *This)
229 {
230     nsIDOMWindow *dom_window;
231     nsISelection *nsselection = NULL;
232     nsresult nsres;
233
234     if(!This->nscontainer)
235         return NULL;
236
237     nsres = nsIWebBrowser_GetContentDOMWindow(This->nscontainer->webbrowser, &dom_window);
238     if(NS_FAILED(nsres))
239         return NULL;
240
241     nsIDOMWindow_GetSelection(dom_window, &nsselection);
242     nsIDOMWindow_Release(dom_window);
243
244     return nsselection;
245
246 }
247
248 static void remove_child_attr(nsIDOMElement *elem, LPCWSTR tag, nsAString *attr_str)
249 {
250     PRBool has_children;
251     PRUint32 child_cnt, i;
252     nsIDOMNode *child_node;
253     nsIDOMNodeList *node_list;
254     PRUint16 node_type;
255
256     nsIDOMElement_HasChildNodes(elem, &has_children);
257     if(!has_children)
258         return;
259
260     nsIDOMElement_GetChildNodes(elem, &node_list);
261     nsIDOMNodeList_GetLength(node_list, &child_cnt);
262
263     for(i=0; i<child_cnt; i++) {
264         nsIDOMNodeList_Item(node_list, i, &child_node);
265
266         nsIDOMNode_GetNodeType(child_node, &node_type);
267         if(node_type == ELEMENT_NODE) {
268             nsIDOMElement *child_elem;
269             nsAString tag_str;
270             const PRUnichar *ctag;
271
272             nsIDOMNode_QueryInterface(child_node, &IID_nsIDOMElement, (void**)&child_elem);
273
274             nsAString_Init(&tag_str, NULL);
275             nsIDOMElement_GetTagName(child_elem, &tag_str);
276             nsAString_GetData(&tag_str, &ctag, NULL);
277
278             if(!strcmpiW(ctag, tag))
279                 /* FIXME: remove node if there are no more attributes */
280                 nsIDOMElement_RemoveAttribute(child_elem, attr_str);
281
282             nsAString_Finish(&tag_str);
283
284             remove_child_attr(child_elem, tag, attr_str);
285
286             nsIDOMNode_Release(child_elem);
287         }
288
289         nsIDOMNode_Release(child_node);
290     }
291
292     nsIDOMNodeList_Release(node_list);
293 }
294
295 static void get_font_size(HTMLDocument *This, WCHAR *ret)
296 {
297     nsISelection *nsselection = get_ns_selection(This);
298     nsIDOMElement *elem = NULL;
299     nsIDOMNode *node = NULL, *tmp_node;
300     nsAString tag_str;
301     LPCWSTR tag;
302     PRUint16 node_type;
303     nsresult nsres;
304
305     *ret = 0;
306
307     if(!nsselection)
308         return;
309
310     nsISelection_GetFocusNode(nsselection, &node);
311     nsISelection_Release(nsselection);
312
313     while(node) {
314         nsres = nsIDOMNode_GetNodeType(node, &node_type);
315         if(NS_FAILED(nsres) || node_type == DOCUMENT_NODE)
316             break;
317
318         if(node_type == ELEMENT_NODE) {
319             nsIDOMNode_QueryInterface(node, &IID_nsIDOMElement, (void**)&elem);
320
321             nsAString_Init(&tag_str, NULL);
322             nsIDOMElement_GetTagName(elem, &tag_str);
323             nsAString_GetData(&tag_str, &tag, NULL);
324
325             if(!strcmpiW(tag, wszFont)) {
326                 nsAString size_str, val_str;
327                 LPCWSTR val;
328
329                 TRACE("found font tag %p\n", elem);
330
331                 nsAString_Init(&size_str, wszSize);
332                 nsAString_Init(&val_str, NULL);
333
334                 nsIDOMElement_GetAttribute(elem, &size_str, &val_str);
335                 nsAString_GetData(&val_str, &val, NULL);
336
337                 if(*val) {
338                     TRACE("found size %s\n", debugstr_w(val));
339                     strcpyW(ret, val);
340                 }
341
342                 nsAString_Finish(&size_str);
343                 nsAString_Finish(&val_str);
344             }
345
346             nsAString_Finish(&tag_str);
347
348             nsIDOMElement_Release(elem);
349         }
350
351         if(*ret)
352             break;
353
354         tmp_node = node;
355         nsIDOMNode_GetParentNode(node, &node);
356         nsIDOMNode_Release(tmp_node);
357     }
358
359     if(node)
360         nsIDOMNode_Release(node);
361 }
362
363 static void set_font_size(HTMLDocument *This, LPCWSTR size)
364 {
365     nsISelection *nsselection;
366     PRBool collapsed;
367     nsIDOMDocument *nsdoc;
368     nsIDOMElement *elem;
369     nsIDOMRange *range;
370     PRInt32 range_cnt = 0;
371     nsAString font_str;
372     nsAString size_str;
373     nsAString val_str;
374     nsresult nsres;
375
376     nsselection = get_ns_selection(This);
377
378     if(!nsselection)
379         return;
380
381     nsISelection_GetRangeCount(nsselection, &range_cnt);
382     if(range_cnt != 1) {
383         FIXME("range_cnt %d not supprted\n", range_cnt);
384         if(!range_cnt) {
385             nsISelection_Release(nsselection);
386             return;
387         }
388     }
389
390     nsres = nsIWebNavigation_GetDocument(This->nscontainer->navigation, &nsdoc);
391     if(NS_FAILED(nsres))
392         return;
393
394     nsAString_Init(&font_str, wszFont);
395     nsAString_Init(&size_str, wszSize);
396     nsAString_Init(&val_str, size);
397
398     nsIDOMDocument_CreateElement(nsdoc, &font_str, &elem);
399     nsIDOMElement_SetAttribute(elem, &size_str, &val_str);
400
401     nsISelection_GetRangeAt(nsselection, 0, &range);
402     nsISelection_GetIsCollapsed(nsselection, &collapsed);
403     nsISelection_RemoveAllRanges(nsselection);
404
405     nsIDOMRange_SurroundContents(range, (nsIDOMNode*)elem);
406
407     if(collapsed) {
408         nsISelection_Collapse(nsselection, (nsIDOMNode*)elem, 0);
409     }else {
410         /* Remove all size attrbutes from the range */
411         remove_child_attr(elem, wszFont, &size_str);
412         nsISelection_SelectAllChildren(nsselection, (nsIDOMNode*)elem);
413     }
414
415     nsIDOMRange_Release(range);
416     nsIDOMElement_Release(elem);
417
418     nsAString_Finish(&font_str);
419     nsAString_Finish(&size_str);
420     nsAString_Finish(&val_str);
421
422     nsISelection_Release(nsselection);
423     nsIDOMDocument_Release(nsdoc);
424 }
425
426 static BOOL is_visible_text_node(nsIDOMNode *node)
427 {
428     nsIDOMCharacterData *char_data;
429     nsAString data_str;
430     LPCWSTR data, ptr;
431     PRUint32 len;
432
433     nsIDOMNode_QueryInterface(node, &IID_nsIDOMCharacterData, (void**)&char_data);
434
435     nsIDOMCharacterData_GetLength(char_data, &len);
436
437     nsAString_Init(&data_str, NULL);
438     nsIDOMCharacterData_GetData(char_data, &data_str);
439     nsAString_GetData(&data_str, &data, NULL);
440
441     if(*data == '\n') {
442         len--;
443         for(ptr=data+1; ptr && isspaceW(*ptr); ptr++)
444             len--;
445     }
446
447     nsAString_Finish(&data_str);
448
449     nsIDOMCharacterData_Release(char_data);
450
451     return len != 0;
452 }
453
454 static nsIDOMNode *get_child_text_node(nsIDOMNode *node, BOOL first)
455 {
456     nsIDOMNode *iter, *iter2;
457
458     if(first)
459         nsIDOMNode_GetFirstChild(node, &iter);
460     else
461         nsIDOMNode_GetLastChild(node, &iter);
462
463     while(iter) {
464         PRUint16 node_type;
465
466         nsIDOMNode_GetNodeType(iter, &node_type);
467         switch(node_type) {
468         case TEXT_NODE:
469             if(is_visible_text_node(iter))
470                 return iter;
471         case ELEMENT_NODE:
472             iter2 = get_child_text_node(iter, first);
473             if(iter2) {
474                 nsIDOMNode_Release(iter);
475                 return iter2;
476             }
477         }
478
479         if(first)
480             nsIDOMNode_GetNextSibling(iter, &iter2);
481         else
482             nsIDOMNode_GetPreviousSibling(iter, &iter2);
483
484         nsIDOMNode_Release(iter);
485         iter = iter2;
486     }
487
488     return NULL;
489 }
490
491 static void handle_arrow_key(HTMLDocument *This, nsIDOMKeyEvent *event, const char * const cmds[4])
492 {
493     int i=0;
494     PRBool b;
495
496     nsIDOMKeyEvent_GetCtrlKey(event, &b);
497     if(b)
498         i |= 1;
499
500     nsIDOMKeyEvent_GetShiftKey(event, &b);
501     if(b)
502         i |= 2;
503
504     if(cmds[i])
505         do_ns_editor_command(This->nscontainer, cmds[i]);
506
507     nsIDOMKeyEvent_PreventDefault(event);
508 }
509
510 void handle_edit_event(HTMLDocument *This, nsIDOMEvent *event)
511 {
512     nsIDOMKeyEvent *key_event;
513     PRUint32 code;
514
515     nsIDOMEvent_QueryInterface(event, &IID_nsIDOMKeyEvent, (void**)&key_event);
516
517     nsIDOMKeyEvent_GetKeyCode(key_event, &code);
518
519     switch(code) {
520     case DOM_VK_LEFT: {
521         static const char * const cmds[] = {
522             NSCMD_CHARPREVIOUS,
523             NSCMD_WORDPREVIOUS,
524             NSCMD_SELECTCHARPREVIOUS,
525             NSCMD_SELECTWORDPREVIOUS
526         };
527
528         TRACE("left\n");
529         handle_arrow_key(This, key_event, cmds);
530         break;
531     }
532     case DOM_VK_RIGHT: {
533         static const char * const cmds[] = {
534             NSCMD_CHARNEXT,
535             NSCMD_WORDNEXT,
536             NSCMD_SELECTCHARNEXT,
537             NSCMD_SELECTWORDNEXT
538         };
539
540         TRACE("right\n");
541         handle_arrow_key(This, key_event, cmds);
542         break;
543     }
544     case DOM_VK_UP: {
545         static const char * const cmds[] = {
546             NSCMD_LINEPREVIOUS,
547             NSCMD_MOVEPAGEUP,
548             NSCMD_SELECTLINEPREVIOUS,
549             NSCMD_SELECTPAGEUP
550         };
551
552         TRACE("up\n");
553         handle_arrow_key(This, key_event, cmds);
554         break;
555     }
556     case DOM_VK_DOWN: {
557         static const char * const cmds[] = {
558             NSCMD_LINENEXT,
559             NSCMD_MOVEPAGEDOWN,
560             NSCMD_SELECTLINENEXT,
561             NSCMD_SELECTPAGEDOWN
562         };
563
564         TRACE("down\n");
565         handle_arrow_key(This, key_event, cmds);
566         break;
567     }
568     case DOM_VK_DELETE: {
569         static const char * const cmds[] = {
570             NSCMD_DELETECHARFORWARD,
571             NSCMD_DELETEWORDFORWARD,
572             NULL, NULL
573         };
574
575         TRACE("delete\n");
576         handle_arrow_key(This, key_event, cmds);
577         break;
578     }
579     case DOM_VK_HOME: {
580         static const char * const cmds[] = {
581             NSCMD_BEGINLINE,
582             NSCMD_MOVETOP,
583             NSCMD_SELECTBEGINLINE,
584             NSCMD_SELECTTOP
585         };
586
587         TRACE("home\n");
588         handle_arrow_key(This, key_event, cmds);
589         break;
590     }
591     case DOM_VK_END: {
592         static const char * const cmds[] = {
593             NSCMD_ENDLINE,
594             NSCMD_MOVEBOTTOM,
595             NSCMD_SELECTENDLINE,
596             NSCMD_SELECTBOTTOM
597         };
598
599         TRACE("end\n");
600         handle_arrow_key(This, key_event, cmds);
601         break;
602     }
603     }
604
605     nsIDOMKeyEvent_Release(key_event);
606 }
607
608 void handle_edit_load(HTMLDocument *This)
609 {
610     This->nscontainer->editor_controller = get_editor_controller(This->nscontainer);
611
612     if(This->ui_active) {
613         OLECHAR wszHTMLDocument[30];
614         RECT rcBorderWidths;
615
616         if(This->ip_window)
617             IOleInPlaceUIWindow_SetActiveObject(This->ip_window, NULL, NULL);
618         if(This->hostui)
619             IDocHostUIHandler_HideUI(This->hostui);
620
621         if(This->hostui)
622             IDocHostUIHandler_ShowUI(This->hostui, DOCHOSTUITYPE_AUTHOR, ACTOBJ(This), CMDTARGET(This),
623                 This->frame, This->ip_window);
624
625         LoadStringW(hInst, IDS_HTMLDOCUMENT, wszHTMLDocument,
626                     sizeof(wszHTMLDocument)/sizeof(WCHAR));
627
628         if(This->ip_window)
629             IOleInPlaceUIWindow_SetActiveObject(This->ip_window, ACTOBJ(This), wszHTMLDocument);
630
631         memset(&rcBorderWidths, 0, sizeof(rcBorderWidths));
632         IOleInPlaceFrame_SetBorderSpace(This->frame, &rcBorderWidths);
633     }
634 }
635
636 static void set_ns_fontname(NSContainer *This, const char *fontname)
637 {
638     nsICommandParams *nsparam = create_nscommand_params();
639
640     nsICommandParams_SetCStringValue(nsparam, NSSTATE_ATTRIBUTE, fontname);
641     do_ns_command(This, NSCMD_FONTFACE, nsparam);
642     nsICommandParams_Release(nsparam);
643 }
644
645 static HRESULT exec_delete(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
646 {
647     TRACE("(%p)->(%p %p)\n", This, in, out);
648
649     if(This->nscontainer)
650         do_ns_editor_command(This->nscontainer, NSCMD_DELETECHARFORWARD);
651
652     update_doc(This, UPDATE_UI);
653     return S_OK;
654 }
655
656 static HRESULT exec_fontname(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
657 {
658     TRACE("(%p)->(%p %p)\n", This, in, out);
659
660     if(!This->nscontainer) {
661         update_doc(This, UPDATE_UI);
662         return E_FAIL;
663     }
664
665     if(in) {
666         char *stra;
667         DWORD len;
668
669         if(V_VT(in) != VT_BSTR) {
670             FIXME("Unsupported vt=%d\n", V_VT(out));
671             return E_INVALIDARG;
672         }
673
674         TRACE("%s\n", debugstr_w(V_BSTR(in)));
675
676         len = WideCharToMultiByte(CP_ACP, 0, V_BSTR(in), -1, NULL, 0, NULL, NULL);
677         stra = mshtml_alloc(len);
678         WideCharToMultiByte(CP_ACP, 0, V_BSTR(in), -1, stra, -1, NULL, NULL);
679
680         set_ns_fontname(This->nscontainer, stra);
681
682         mshtml_free(stra);
683
684         update_doc(This, UPDATE_UI);
685     }
686
687     if(out) {
688         nsICommandParams *nsparam;
689         LPWSTR strw;
690         char *stra;
691         DWORD len;
692         nsresult nsres;
693
694         nsparam = create_nscommand_params();
695
696         nsres = get_ns_command_state(This->nscontainer, NSCMD_FONTFACE, nsparam);
697         if(NS_FAILED(nsres))
698             return S_OK;
699
700         nsICommandParams_GetCStringValue(nsparam, NSSTATE_ATTRIBUTE, &stra);
701         nsICommandParams_Release(nsparam);
702
703         len = MultiByteToWideChar(CP_ACP, 0, stra, -1, NULL, 0);
704         strw = mshtml_alloc(len*sizeof(WCHAR));
705         MultiByteToWideChar(CP_ACP, 0, stra, -1, strw, -1);
706         nsfree(stra);
707
708         V_VT(out) = VT_BSTR;
709         V_BSTR(out) = SysAllocString(strw);
710         mshtml_free(strw);
711     }
712
713     return S_OK;
714 }
715
716 static HRESULT exec_forecolor(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
717 {
718     TRACE("(%p)->(%p %p)\n", This, in, out);
719
720     if(in) {
721         if(V_VT(in) == VT_I4) {
722             nsICommandParams *nsparam = create_nscommand_params();
723             char color_str[10];
724
725             sprintf(color_str, "#%02x%02x%02x",
726                     V_I4(in)&0xff, (V_I4(in)>>8)&0xff, (V_I4(in)>>16)&0xff);
727
728             nsICommandParams_SetCStringValue(nsparam, NSSTATE_ATTRIBUTE, color_str);
729             do_ns_command(This->nscontainer, NSCMD_FONTCOLOR, nsparam);
730
731             nsICommandParams_Release(nsparam);
732         }else {
733             FIXME("unsupported in vt=%d\n", V_VT(in));
734         }
735
736         update_doc(This, UPDATE_UI);
737     }
738
739     if(out) {
740         FIXME("unsupported out\n");
741         return E_NOTIMPL;
742     }
743
744     return S_OK;
745 }
746
747 static HRESULT exec_fontsize(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
748 {
749     TRACE("(%p)->(%p %p)\n", This, in, out);
750
751     if(out) {
752         WCHAR val[10] = {0};
753
754         get_font_size(This, val);
755         V_VT(out) = VT_I4;
756         V_I4(out) = strtolW(val, NULL, 10);
757     }
758
759     if(in) {
760         switch(V_VT(in)) {
761         case VT_I4: {
762             WCHAR size[10];
763             static const WCHAR format[] = {'%','d',0};
764             wsprintfW(size, format, V_I4(in));
765             set_font_size(This, size);
766             break;
767         }
768         case VT_BSTR:
769             set_font_size(This, V_BSTR(in));
770             break;
771         default:
772             FIXME("unsupported vt %d\n", V_VT(in));
773         }
774
775         update_doc(This, UPDATE_UI);
776     }
777
778     return S_OK;
779 }
780
781 static HRESULT exec_bold(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
782 {
783     TRACE("(%p)\n", This);
784
785     if(in || out)
786         FIXME("unsupported args\n");
787
788     if(This->nscontainer)
789         do_ns_command(This->nscontainer, NSCMD_BOLD, NULL);
790
791     update_doc(This, UPDATE_UI);
792     return S_OK;
793 }
794
795 static HRESULT exec_italic(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
796 {
797     TRACE("(%p)\n", This);
798
799     if(in || out)
800         FIXME("unsupported args\n");
801
802     if(This->nscontainer)
803         do_ns_command(This->nscontainer, NSCMD_ITALIC, NULL);
804
805     update_doc(This, UPDATE_UI);
806     return S_OK;
807 }
808
809 static HRESULT query_justify(HTMLDocument *This, OLECMD *cmd)
810 {
811     switch(cmd->cmdID) {
812     case IDM_JUSTIFYCENTER:
813         TRACE("(%p) IDM_JUSTIFYCENTER\n", This);
814         cmd->cmdf = query_align_status(This, NSALIGN_CENTER);
815         break;
816     case IDM_JUSTIFYLEFT:
817         TRACE("(%p) IDM_JUSTIFYLEFT\n", This);
818         /* FIXME: We should set OLECMDF_LATCHED only if it's set explicitly. */
819         if(This->usermode != EDITMODE || This->readystate < READYSTATE_INTERACTIVE)
820             cmd->cmdf = OLECMDF_SUPPORTED;
821         else
822             cmd->cmdf = OLECMDF_SUPPORTED | OLECMDF_ENABLED;
823         break;
824     case IDM_JUSTIFYRIGHT:
825         TRACE("(%p) IDM_JUSTIFYRIGHT\n", This);
826         cmd->cmdf = query_align_status(This, NSALIGN_RIGHT);
827         break;
828     }
829
830     return S_OK;
831 }
832
833 static HRESULT exec_justifycenter(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
834 {
835     TRACE("(%p)\n", This);
836
837     if(in || out)
838         FIXME("unsupported args\n");
839
840     set_ns_align(This, NSALIGN_CENTER);
841     update_doc(This, UPDATE_UI);
842     return S_OK;
843 }
844
845 static HRESULT exec_justifyleft(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
846 {
847     TRACE("(%p)\n", This);
848
849     if(in || out)
850         FIXME("unsupported args\n");
851
852     set_ns_align(This, NSALIGN_LEFT);
853     update_doc(This, UPDATE_UI);
854     return S_OK;
855 }
856
857 static HRESULT exec_justifyright(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
858 {
859     TRACE("(%p)\n", This);
860
861     if(in || out)
862         FIXME("unsupported args\n");
863
864     set_ns_align(This, NSALIGN_RIGHT);
865     update_doc(This, UPDATE_UI);
866     return S_OK;
867 }
868
869 static HRESULT exec_underline(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
870 {
871     TRACE("(%p)\n", This);
872
873     if(in || out)
874         FIXME("unsupported args\n");
875
876     if(This->nscontainer)
877         do_ns_command(This->nscontainer, NSCMD_UNDERLINE, NULL);
878
879     update_doc(This, UPDATE_UI);
880     return S_OK;
881 }
882
883 static HRESULT exec_horizontalline(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
884 {
885     TRACE("(%p)\n", This);
886
887     if(in || out)
888         FIXME("unsupported args\n");
889
890     if(This->nscontainer)
891         do_ns_command(This->nscontainer, NSCMD_INSERTHR, NULL);
892
893     update_doc(This, UPDATE_UI);
894     return S_OK;
895 }
896
897 static HRESULT exec_orderlist(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
898 {
899     TRACE("(%p)\n", This);
900
901     if(in || out)
902         FIXME("unsupported args\n");
903
904     if(This->nscontainer)
905         do_ns_command(This->nscontainer, NSCMD_OL, NULL);
906
907     update_doc(This, UPDATE_UI);
908     return S_OK;
909 }
910
911 static HRESULT exec_unorderlist(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
912 {
913     TRACE("(%p)\n", This);
914
915     if(in || out)
916         FIXME("unsupported args\n");
917
918     if(This->nscontainer)
919         do_ns_command(This->nscontainer, NSCMD_UL, NULL);
920
921     update_doc(This, UPDATE_UI);
922     return S_OK;
923 }
924
925 static HRESULT exec_indent(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
926 {
927     TRACE("(%p)\n", This);
928
929     if(in || out)
930         FIXME("unsupported args\n");
931
932     if(This->nscontainer)
933         do_ns_command(This->nscontainer, NSCMD_INDENT, NULL);
934
935     update_doc(This, UPDATE_UI);
936     return S_OK;
937 }
938
939 static HRESULT exec_outdent(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
940 {
941     TRACE("(%p)\n", This);
942
943     if(in || out)
944         FIXME("unsupported args\n");
945
946     if(This->nscontainer)
947         do_ns_command(This->nscontainer, NSCMD_OUTDENT, NULL);
948
949     update_doc(This, UPDATE_UI);
950     return S_OK;
951 }
952
953 static HRESULT exec_composesettings(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
954 {
955     WCHAR *ptr;
956
957     if(out || !in || V_VT(in) != VT_BSTR) {
958         WARN("invalid arg\n");
959         return E_INVALIDARG;
960     }
961
962     TRACE("(%p)->(%x %s)\n", This, cmdexecopt, debugstr_w(V_BSTR(in)));
963
964     update_doc(This, UPDATE_UI);
965
966     ptr = V_BSTR(in);
967     if(*ptr == '1')
968         exec_bold(This, cmdexecopt, NULL, NULL);
969     ptr = strchrW(ptr, ',');
970     if(!ptr)
971         return S_OK;
972
973     if(*++ptr == '1')
974         exec_italic(This, cmdexecopt, NULL, NULL);
975     ptr = strchrW(ptr, ',');
976     if(!ptr)
977         return S_OK;
978
979     if(*++ptr == '1')
980         exec_underline(This, cmdexecopt, NULL, NULL);
981     ptr = strchrW(ptr, ',');
982     if(!ptr)
983         return S_OK;
984
985     if(isdigitW(*++ptr)) {
986         VARIANT v;
987
988         V_VT(&v) = VT_I4;
989         V_I4(&v) = *ptr-'0';
990
991         exec_fontsize(This, cmdexecopt, &v, NULL);
992     }
993     ptr = strchrW(ptr, ',');
994     if(!ptr)
995         return S_OK;
996
997     if(*++ptr != ',')
998         FIXME("set font color\n");
999     ptr = strchrW(ptr, ',');
1000     if(!ptr)
1001         return S_OK;
1002
1003     if(*++ptr != ',')
1004         FIXME("set background color\n");
1005     ptr = strchrW(ptr, ',');
1006     if(!ptr)
1007         return S_OK;
1008
1009     ptr++;
1010     if(*ptr) {
1011         VARIANT v;
1012
1013         V_VT(&v) = VT_BSTR;
1014         V_BSTR(&v) = SysAllocString(ptr);
1015
1016         exec_fontname(This, cmdexecopt, &v, NULL);
1017
1018         SysFreeString(V_BSTR(&v));
1019     }
1020
1021     return S_OK;
1022 }
1023
1024 HRESULT editor_exec_copy(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
1025 {
1026     update_doc(This, UPDATE_UI);
1027
1028     if(!This->nscontainer)
1029         return E_FAIL;
1030
1031     do_ns_editor_command(This->nscontainer, NSCMD_COPY);
1032     return S_OK;
1033 }
1034
1035 HRESULT editor_exec_cut(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
1036 {
1037     update_doc(This, UPDATE_UI);
1038
1039     if(!This->nscontainer)
1040         return E_FAIL;
1041
1042     do_ns_editor_command(This->nscontainer, NSCMD_CUT);
1043     return S_OK;
1044 }
1045
1046 HRESULT editor_exec_paste(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
1047 {
1048     update_doc(This, UPDATE_UI);
1049
1050     if(!This->nscontainer)
1051         return E_FAIL;
1052
1053     do_ns_editor_command(This->nscontainer, NSCMD_PASTE);
1054     return S_OK;
1055 }
1056
1057 static HRESULT query_edit_status(HTMLDocument *This, OLECMD *cmd)
1058 {
1059     switch(cmd->cmdID) {
1060     case IDM_DELETE:
1061         TRACE("CGID_MSHTML: IDM_DELETE\n");
1062         cmd->cmdf = query_ns_edit_status(This, NULL);
1063         break;
1064     case IDM_FONTNAME:
1065         TRACE("CGID_MSHTML: IDM_FONTNAME\n");
1066         cmd->cmdf = query_ns_edit_status(This, NULL);
1067         break;
1068     case IDM_FONTSIZE:
1069         TRACE("CGID_MSHTML: IDM_FONTSIZE\n");
1070         cmd->cmdf = query_ns_edit_status(This, NULL);
1071         break;
1072     case IDM_BOLD:
1073         TRACE("CGID_MSHTML: IDM_BOLD\n");
1074         cmd->cmdf = query_ns_edit_status(This, NSCMD_BOLD);
1075         break;
1076     case IDM_FORECOLOR:
1077         TRACE("CGID_MSHTML: IDM_FORECOLOR\n");
1078         cmd->cmdf = query_ns_edit_status(This, NULL);
1079         break;
1080     case IDM_ITALIC:
1081         TRACE("CGID_MSHTML: IDM_ITALIC\n");
1082         cmd->cmdf = query_ns_edit_status(This, NSCMD_ITALIC);
1083         break;
1084     case IDM_UNDERLINE:
1085         TRACE("CGID_MSHTML: IDM_UNDERLINE\n");
1086         cmd->cmdf = query_ns_edit_status(This, NSCMD_UNDERLINE);
1087         break;
1088     case IDM_HORIZONTALLINE:
1089         TRACE("CGID_MSHTML: IDM_HORIZONTALLINE\n");
1090         cmd->cmdf = query_ns_edit_status(This, NULL);
1091         break;
1092     case IDM_ORDERLIST:
1093         TRACE("CGID_MSHTML: IDM_ORDERLIST\n");
1094         cmd->cmdf = query_ns_edit_status(This, NSCMD_OL);
1095         break;
1096     case IDM_UNORDERLIST:
1097         TRACE("CGID_MSHTML: IDM_HORIZONTALLINE\n");
1098         cmd->cmdf = query_ns_edit_status(This, NSCMD_UL);
1099         break;
1100     case IDM_INDENT:
1101         TRACE("CGID_MSHTML: IDM_INDENT\n");
1102         cmd->cmdf = query_ns_edit_status(This, NULL);
1103         break;
1104     case IDM_OUTDENT:
1105         TRACE("CGID_MSHTML: IDM_OUTDENT\n");
1106         cmd->cmdf = query_ns_edit_status(This, NULL);
1107         break;
1108     }
1109
1110     return S_OK;
1111 }
1112
1113 const cmdtable_t editmode_cmds[] = {
1114     {IDM_DELETE,          query_edit_status,    exec_delete},
1115     {IDM_FONTNAME,        query_edit_status,    exec_fontname},
1116     {IDM_FONTSIZE,        query_edit_status,    exec_fontsize},
1117     {IDM_FORECOLOR,       query_edit_status,    exec_forecolor},
1118     {IDM_BOLD,            query_edit_status,    exec_bold},
1119     {IDM_ITALIC,          query_edit_status,    exec_italic},
1120     {IDM_JUSTIFYCENTER,   query_justify,        exec_justifycenter},
1121     {IDM_JUSTIFYRIGHT,    query_justify,        exec_justifyright},
1122     {IDM_JUSTIFYLEFT,     query_justify,        exec_justifyleft},
1123     {IDM_UNDERLINE,       query_edit_status,    exec_underline},
1124     {IDM_HORIZONTALLINE,  query_edit_status,    exec_horizontalline},
1125     {IDM_ORDERLIST,       query_edit_status,    exec_orderlist},
1126     {IDM_UNORDERLIST,     query_edit_status,    exec_unorderlist},
1127     {IDM_INDENT,          query_edit_status,    exec_indent},
1128     {IDM_OUTDENT,         query_edit_status,    exec_outdent},
1129     {IDM_COMPOSESETTINGS, NULL,                 exec_composesettings},
1130     {0,NULL,NULL}
1131 };
1132
1133 void init_editor(HTMLDocument *This)
1134 {
1135     update_doc(This, UPDATE_UI);
1136
1137     if(!This->nscontainer)
1138         return;
1139
1140     set_ns_fontname(This->nscontainer, "Times New Roman");
1141 }