strmbase: Implement BaseControlWindow.
[wine/multimedia.git] / dlls / mshtml / editor.c
blob2ffefd26eaabbfbb29d558f5df66b31ae27e1b75
1 /*
2 * Copyright 2006-2007 Jacek Caban for CodeWeavers
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.
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.
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
19 #include <stdarg.h>
20 #include <stdio.h>
22 #define COBJMACROS
24 #include "windef.h"
25 #include "winbase.h"
26 #include "winuser.h"
27 #include "ole2.h"
28 #include "mshtmcid.h"
30 #include "wine/debug.h"
32 #include "mshtml_private.h"
33 #include "resource.h"
35 WINE_DEFAULT_DEBUG_CHANNEL(mshtml);
37 #define NSCMD_ALIGN "cmd_align"
38 #define NSCMD_BEGINLINE "cmd_beginLine"
39 #define NSCMD_BOLD "cmd_bold"
40 #define NSCMD_CHARNEXT "cmd_charNext"
41 #define NSCMD_CHARPREVIOUS "cmd_charPrevious"
42 #define NSCMD_COPY "cmd_copy"
43 #define NSCMD_CUT "cmd_cut"
44 #define NSCMD_DELETECHARFORWARD "cmd_deleteCharForward"
45 #define NSCMD_DELETEWORDFORWARD "cmd_deleteWordForward"
46 #define NSCMD_ENDLINE "cmd_endLine"
47 #define NSCMD_FONTCOLOR "cmd_fontColor"
48 #define NSCMD_FONTFACE "cmd_fontFace"
49 #define NSCMD_INDENT "cmd_indent"
50 #define NSCMD_INSERTHR "cmd_insertHR"
51 #define NSCMD_INSERTLINKNOUI "cmd_insertLinkNoUI"
52 #define NSCMD_ITALIC "cmd_italic"
53 #define NSCMD_LINENEXT "cmd_lineNext"
54 #define NSCMD_LINEPREVIOUS "cmd_linePrevious"
55 #define NSCMD_MOVEBOTTOM "cmd_moveBottom"
56 #define NSCMD_MOVEPAGEDOWN "cmd_movePageDown"
57 #define NSCMD_MOVEPAGEUP "cmd_movePageUp"
58 #define NSCMD_MOVETOP "cmd_moveTop"
59 #define NSCMD_OL "cmd_ol"
60 #define NSCMD_OUTDENT "cmd_outdent"
61 #define NSCMD_PASTE "cmd_paste"
62 #define NSCMD_SELECTALL "cmd_selectAll"
63 #define NSCMD_SELECTBEGINLINE "cmd_selectBeginLine"
64 #define NSCMD_SELECTBOTTOM "cmd_selectBottom"
65 #define NSCMD_SELECTCHARNEXT "cmd_selectCharNext"
66 #define NSCMD_SELECTCHARPREVIOUS "cmd_selectCharPrevious"
67 #define NSCMD_SELECTENDLINE "cmd_selectEndLine"
68 #define NSCMD_SELECTLINENEXT "cmd_selectLineNext"
69 #define NSCMD_SELECTLINEPREVIOUS "cmd_selectLinePrevious"
70 #define NSCMD_SELECTPAGEDOWN "cmd_selectPageDown"
71 #define NSCMD_SELECTPAGEUP "cmd_selectPageUp"
72 #define NSCMD_SELECTTOP "cmd_selectTop"
73 #define NSCMD_SELECTWORDNEXT "cmd_selectWordNext"
74 #define NSCMD_SELECTWORDPREVIOUS "cmd_selectWordPrevious"
75 #define NSCMD_UL "cmd_ul"
76 #define NSCMD_UNDERLINE "cmd_underline"
77 #define NSCMD_WORDNEXT "cmd_wordNext"
78 #define NSCMD_WORDPREVIOUS "cmd_wordPrevious"
80 #define NSSTATE_ATTRIBUTE "state_attribute"
81 #define NSSTATE_ALL "state_all"
83 #define NSALIGN_CENTER "center"
84 #define NSALIGN_LEFT "left"
85 #define NSALIGN_RIGHT "right"
87 #define DOM_VK_LEFT VK_LEFT
88 #define DOM_VK_UP VK_UP
89 #define DOM_VK_RIGHT VK_RIGHT
90 #define DOM_VK_DOWN VK_DOWN
91 #define DOM_VK_DELETE VK_DELETE
92 #define DOM_VK_HOME VK_HOME
93 #define DOM_VK_END VK_END
95 static const WCHAR fontW[] = {'f','o','n','t',0};
96 static const WCHAR sizeW[] = {'s','i','z','e',0};
98 void set_dirty(HTMLDocument *This, VARIANT_BOOL dirty)
100 nsresult nsres;
102 if(This->doc_obj->usermode != EDITMODE || !This->doc_obj->nscontainer || !This->doc_obj->nscontainer->editor)
103 return;
105 if(dirty) {
106 nsres = nsIEditor_IncrementModificationCount(This->doc_obj->nscontainer->editor, 1);
107 if(NS_FAILED(nsres))
108 ERR("IncrementModificationCount failed: %08x\n", nsres);
109 }else {
110 nsres = nsIEditor_ResetModificationCount(This->doc_obj->nscontainer->editor);
111 if(NS_FAILED(nsres))
112 ERR("ResetModificationCount failed: %08x\n", nsres);
116 static void do_ns_editor_command(NSContainer *This, const char *cmd)
118 nsresult nsres;
120 if(!This->editor_controller)
121 return;
123 nsres = nsIController_DoCommand(This->editor_controller, cmd);
124 if(NS_FAILED(nsres))
125 ERR("DoCommand(%s) failed: %08x\n", debugstr_a(cmd), nsres);
128 static nsresult get_ns_command_state(NSContainer *This, const char *cmd, nsICommandParams *nsparam)
130 nsICommandManager *cmdmgr;
131 nsresult nsres;
133 nsres = get_nsinterface((nsISupports*)This->webbrowser, &IID_nsICommandManager, (void**)&cmdmgr);
134 if(NS_FAILED(nsres)) {
135 ERR("Could not get nsICommandManager: %08x\n", nsres);
136 return nsres;
139 nsres = nsICommandManager_GetCommandState(cmdmgr, cmd, This->doc->basedoc.window->nswindow, nsparam);
140 if(NS_FAILED(nsres))
141 ERR("GetCommandState(%s) failed: %08x\n", debugstr_a(cmd), nsres);
143 nsICommandManager_Release(cmdmgr);
144 return nsres;
147 static DWORD query_ns_edit_status(HTMLDocument *This, const char *nscmd)
149 nsICommandParams *nsparam;
150 cpp_bool b = FALSE;
152 if(This->doc_obj->usermode != EDITMODE || This->window->readystate < READYSTATE_INTERACTIVE)
153 return OLECMDF_SUPPORTED;
155 if(This->doc_obj->nscontainer && nscmd) {
156 nsparam = create_nscommand_params();
157 get_ns_command_state(This->doc_obj->nscontainer, nscmd, nsparam);
159 nsICommandParams_GetBooleanValue(nsparam, NSSTATE_ALL, &b);
161 nsICommandParams_Release(nsparam);
164 return OLECMDF_SUPPORTED | OLECMDF_ENABLED | (b ? OLECMDF_LATCHED : 0);
167 static void set_ns_align(HTMLDocument *This, const char *align_str)
169 nsICommandParams *nsparam;
171 if(!This->doc_obj->nscontainer)
172 return;
174 nsparam = create_nscommand_params();
175 nsICommandParams_SetCStringValue(nsparam, NSSTATE_ATTRIBUTE, align_str);
177 do_ns_command(This, NSCMD_ALIGN, nsparam);
179 nsICommandParams_Release(nsparam);
182 static DWORD query_align_status(HTMLDocument *This, const WCHAR *align)
184 DWORD ret = OLECMDF_SUPPORTED | OLECMDF_ENABLED;
185 nsAString justify_str;
186 cpp_bool b;
187 nsresult nsres;
189 if(This->doc_obj->usermode != EDITMODE || This->window->readystate < READYSTATE_INTERACTIVE)
190 return OLECMDF_SUPPORTED;
192 nsAString_Init(&justify_str, align);
193 nsres = nsIDOMHTMLDocument_QueryCommandState(This->doc_node->nsdoc, &justify_str, &b);
194 nsAString_Finish(&justify_str);
195 if(NS_SUCCEEDED(nsres) && b)
196 ret |= OLECMDF_LATCHED;
198 return ret;
202 static nsISelection *get_ns_selection(HTMLDocument *This)
204 nsISelection *nsselection = NULL;
205 nsresult nsres;
207 nsres = nsIDOMWindow_GetSelection(This->window->nswindow, &nsselection);
208 if(NS_FAILED(nsres))
209 ERR("GetSelection failed %08x\n", nsres);
211 return nsselection;
215 static void remove_child_attr(nsIDOMElement *elem, LPCWSTR tag, nsAString *attr_str)
217 cpp_bool has_children;
218 PRUint32 child_cnt, i;
219 nsIDOMNode *child_node;
220 nsIDOMNodeList *node_list;
221 PRUint16 node_type;
223 nsIDOMElement_HasChildNodes(elem, &has_children);
224 if(!has_children)
225 return;
227 nsIDOMElement_GetChildNodes(elem, &node_list);
228 nsIDOMNodeList_GetLength(node_list, &child_cnt);
230 for(i=0; i<child_cnt; i++) {
231 nsIDOMNodeList_Item(node_list, i, &child_node);
233 nsIDOMNode_GetNodeType(child_node, &node_type);
234 if(node_type == ELEMENT_NODE) {
235 nsIDOMElement *child_elem;
236 nsAString tag_str;
237 const PRUnichar *ctag;
239 nsIDOMNode_QueryInterface(child_node, &IID_nsIDOMElement, (void**)&child_elem);
241 nsAString_Init(&tag_str, NULL);
242 nsIDOMElement_GetTagName(child_elem, &tag_str);
243 nsAString_GetData(&tag_str, &ctag);
245 if(!strcmpiW(ctag, tag))
246 /* FIXME: remove node if there are no more attributes */
247 nsIDOMElement_RemoveAttribute(child_elem, attr_str);
249 nsAString_Finish(&tag_str);
251 remove_child_attr(child_elem, tag, attr_str);
253 nsIDOMNode_Release(child_elem);
256 nsIDOMNode_Release(child_node);
259 nsIDOMNodeList_Release(node_list);
262 static void get_font_size(HTMLDocument *This, WCHAR *ret)
264 nsISelection *nsselection = get_ns_selection(This);
265 nsIDOMElement *elem = NULL;
266 nsIDOMNode *node = NULL, *tmp_node;
267 nsAString tag_str;
268 LPCWSTR tag;
269 PRUint16 node_type;
270 nsresult nsres;
272 *ret = 0;
274 if(!nsselection)
275 return;
277 nsISelection_GetFocusNode(nsselection, &node);
278 nsISelection_Release(nsselection);
280 while(node) {
281 nsres = nsIDOMNode_GetNodeType(node, &node_type);
282 if(NS_FAILED(nsres) || node_type == DOCUMENT_NODE)
283 break;
285 if(node_type == ELEMENT_NODE) {
286 nsIDOMNode_QueryInterface(node, &IID_nsIDOMElement, (void**)&elem);
288 nsAString_Init(&tag_str, NULL);
289 nsIDOMElement_GetTagName(elem, &tag_str);
290 nsAString_GetData(&tag_str, &tag);
292 if(!strcmpiW(tag, fontW)) {
293 nsAString size_str, val_str;
294 LPCWSTR val;
296 TRACE("found font tag %p\n", elem);
298 nsAString_InitDepend(&size_str, sizeW);
299 nsAString_Init(&val_str, NULL);
301 nsIDOMElement_GetAttribute(elem, &size_str, &val_str);
302 nsAString_GetData(&val_str, &val);
304 if(*val) {
305 TRACE("found size %s\n", debugstr_w(val));
306 strcpyW(ret, val);
309 nsAString_Finish(&size_str);
310 nsAString_Finish(&val_str);
313 nsAString_Finish(&tag_str);
315 nsIDOMElement_Release(elem);
318 if(*ret)
319 break;
321 tmp_node = node;
322 nsIDOMNode_GetParentNode(node, &node);
323 nsIDOMNode_Release(tmp_node);
326 if(node)
327 nsIDOMNode_Release(node);
330 static void set_font_size(HTMLDocument *This, LPCWSTR size)
332 nsISelection *nsselection;
333 cpp_bool collapsed;
334 nsIDOMHTMLElement *elem;
335 nsIDOMRange *range;
336 PRInt32 range_cnt = 0;
337 nsAString size_str;
338 nsAString val_str;
340 if(!This->doc_node->nsdoc) {
341 WARN("NULL nsdoc\n");
342 return;
345 nsselection = get_ns_selection(This);
346 if(!nsselection)
347 return;
349 nsISelection_GetRangeCount(nsselection, &range_cnt);
350 if(range_cnt != 1) {
351 FIXME("range_cnt %d not supprted\n", range_cnt);
352 if(!range_cnt) {
353 nsISelection_Release(nsselection);
354 return;
358 create_nselem(This->doc_node, fontW, &elem);
360 nsAString_InitDepend(&size_str, sizeW);
361 nsAString_InitDepend(&val_str, size);
363 nsIDOMElement_SetAttribute(elem, &size_str, &val_str);
364 nsAString_Finish(&val_str);
366 nsISelection_GetRangeAt(nsselection, 0, &range);
367 nsISelection_GetIsCollapsed(nsselection, &collapsed);
368 nsISelection_RemoveAllRanges(nsselection);
370 nsIDOMRange_SurroundContents(range, (nsIDOMNode*)elem);
372 if(collapsed) {
373 nsISelection_Collapse(nsselection, (nsIDOMNode*)elem, 0);
374 }else {
375 /* Remove all size attributes from the range */
376 remove_child_attr((nsIDOMElement*)elem, fontW, &size_str);
377 nsISelection_SelectAllChildren(nsselection, (nsIDOMNode*)elem);
380 nsISelection_Release(nsselection);
381 nsIDOMRange_Release(range);
382 nsIDOMElement_Release(elem);
384 nsAString_Finish(&size_str);
386 set_dirty(This, VARIANT_TRUE);
389 static void handle_arrow_key(HTMLDocument *This, nsIDOMKeyEvent *event, const char * const cmds[4])
391 int i=0;
392 cpp_bool b;
394 nsIDOMKeyEvent_GetCtrlKey(event, &b);
395 if(b)
396 i |= 1;
398 nsIDOMKeyEvent_GetShiftKey(event, &b);
399 if(b)
400 i |= 2;
402 if(cmds[i])
403 do_ns_editor_command(This->doc_obj->nscontainer, cmds[i]);
405 nsIDOMKeyEvent_PreventDefault(event);
408 void handle_edit_event(HTMLDocument *This, nsIDOMEvent *event)
410 nsIDOMKeyEvent *key_event;
411 PRUint32 code;
413 nsIDOMEvent_QueryInterface(event, &IID_nsIDOMKeyEvent, (void**)&key_event);
415 nsIDOMKeyEvent_GetKeyCode(key_event, &code);
417 switch(code) {
418 case DOM_VK_LEFT: {
419 static const char * const cmds[] = {
420 NSCMD_CHARPREVIOUS,
421 NSCMD_WORDPREVIOUS,
422 NSCMD_SELECTCHARPREVIOUS,
423 NSCMD_SELECTWORDPREVIOUS
426 TRACE("left\n");
427 handle_arrow_key(This, key_event, cmds);
428 break;
430 case DOM_VK_RIGHT: {
431 static const char * const cmds[] = {
432 NSCMD_CHARNEXT,
433 NSCMD_WORDNEXT,
434 NSCMD_SELECTCHARNEXT,
435 NSCMD_SELECTWORDNEXT
438 TRACE("right\n");
439 handle_arrow_key(This, key_event, cmds);
440 break;
442 case DOM_VK_UP: {
443 static const char * const cmds[] = {
444 NSCMD_LINEPREVIOUS,
445 NSCMD_MOVEPAGEUP,
446 NSCMD_SELECTLINEPREVIOUS,
447 NSCMD_SELECTPAGEUP
450 TRACE("up\n");
451 handle_arrow_key(This, key_event, cmds);
452 break;
454 case DOM_VK_DOWN: {
455 static const char * const cmds[] = {
456 NSCMD_LINENEXT,
457 NSCMD_MOVEPAGEDOWN,
458 NSCMD_SELECTLINENEXT,
459 NSCMD_SELECTPAGEDOWN
462 TRACE("down\n");
463 handle_arrow_key(This, key_event, cmds);
464 break;
466 case DOM_VK_DELETE: {
467 static const char * const cmds[] = {
468 NSCMD_DELETECHARFORWARD,
469 NSCMD_DELETEWORDFORWARD,
470 NULL, NULL
473 TRACE("delete\n");
474 handle_arrow_key(This, key_event, cmds);
475 break;
477 case DOM_VK_HOME: {
478 static const char * const cmds[] = {
479 NSCMD_BEGINLINE,
480 NSCMD_MOVETOP,
481 NSCMD_SELECTBEGINLINE,
482 NSCMD_SELECTTOP
485 TRACE("home\n");
486 handle_arrow_key(This, key_event, cmds);
487 break;
489 case DOM_VK_END: {
490 static const char * const cmds[] = {
491 NSCMD_ENDLINE,
492 NSCMD_MOVEBOTTOM,
493 NSCMD_SELECTENDLINE,
494 NSCMD_SELECTBOTTOM
497 TRACE("end\n");
498 handle_arrow_key(This, key_event, cmds);
499 break;
503 nsIDOMKeyEvent_Release(key_event);
506 void handle_edit_load(HTMLDocument *This)
508 get_editor_controller(This->doc_obj->nscontainer);
511 static void set_ns_fontname(HTMLDocument *This, const char *fontname)
513 nsICommandParams *nsparam = create_nscommand_params();
515 nsICommandParams_SetCStringValue(nsparam, NSSTATE_ATTRIBUTE, fontname);
516 do_ns_command(This, NSCMD_FONTFACE, nsparam);
517 nsICommandParams_Release(nsparam);
520 static HRESULT exec_delete(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
522 TRACE("(%p)->(%p %p)\n", This, in, out);
524 if(This->doc_obj->nscontainer)
525 do_ns_editor_command(This->doc_obj->nscontainer, NSCMD_DELETECHARFORWARD);
527 update_doc(This, UPDATE_UI);
528 return S_OK;
531 static HRESULT exec_fontname(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
533 TRACE("(%p)->(%p %p)\n", This, in, out);
535 if(!This->doc_obj->nscontainer) {
536 update_doc(This, UPDATE_UI);
537 return E_FAIL;
540 if(in) {
541 char *stra;
543 if(V_VT(in) != VT_BSTR) {
544 FIXME("Unsupported fontname %s\n", debugstr_variant(out));
545 return E_INVALIDARG;
548 TRACE("%s\n", debugstr_w(V_BSTR(in)));
550 stra = heap_strdupWtoA(V_BSTR(in));
551 set_ns_fontname(This, stra);
552 heap_free(stra);
554 update_doc(This, UPDATE_UI);
557 if(out) {
558 nsICommandParams *nsparam;
559 LPWSTR strw;
560 char *stra;
561 DWORD len;
562 nsresult nsres;
564 V_VT(out) = VT_BSTR;
565 V_BSTR(out) = NULL;
567 nsparam = create_nscommand_params();
569 nsres = get_ns_command_state(This->doc_obj->nscontainer, NSCMD_FONTFACE, nsparam);
570 if(NS_FAILED(nsres))
571 return S_OK;
573 nsICommandParams_GetCStringValue(nsparam, NSSTATE_ATTRIBUTE, &stra);
574 nsICommandParams_Release(nsparam);
576 len = MultiByteToWideChar(CP_ACP, 0, stra, -1, NULL, 0);
577 strw = heap_alloc(len*sizeof(WCHAR));
578 MultiByteToWideChar(CP_ACP, 0, stra, -1, strw, len);
579 nsfree(stra);
581 V_BSTR(out) = SysAllocString(strw);
582 heap_free(strw);
585 return S_OK;
588 static HRESULT exec_forecolor(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
590 TRACE("(%p)->(%p %p)\n", This, in, out);
592 if(in) {
593 if(V_VT(in) == VT_I4) {
594 nsICommandParams *nsparam = create_nscommand_params();
595 char color_str[10];
597 sprintf(color_str, "#%02x%02x%02x",
598 V_I4(in)&0xff, (V_I4(in)>>8)&0xff, (V_I4(in)>>16)&0xff);
600 nsICommandParams_SetCStringValue(nsparam, NSSTATE_ATTRIBUTE, color_str);
601 do_ns_command(This, NSCMD_FONTCOLOR, nsparam);
603 nsICommandParams_Release(nsparam);
604 }else {
605 FIXME("unsupported forecolor %s\n", debugstr_variant(in));
608 update_doc(This, UPDATE_UI);
611 if(out) {
612 FIXME("unsupported out\n");
613 return E_NOTIMPL;
616 return S_OK;
619 static HRESULT exec_fontsize(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
621 TRACE("(%p)->(%p %p)\n", This, in, out);
623 if(out) {
624 WCHAR val[10] = {0};
626 get_font_size(This, val);
627 V_VT(out) = VT_I4;
628 V_I4(out) = strtolW(val, NULL, 10);
631 if(in) {
632 switch(V_VT(in)) {
633 case VT_I4: {
634 WCHAR size[10];
635 static const WCHAR format[] = {'%','d',0};
636 wsprintfW(size, format, V_I4(in));
637 set_font_size(This, size);
638 break;
640 case VT_BSTR:
641 set_font_size(This, V_BSTR(in));
642 break;
643 default:
644 FIXME("unsupported fontsize %s\n", debugstr_variant(in));
647 update_doc(This, UPDATE_UI);
650 return S_OK;
653 static HRESULT exec_font(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
656 FIXME("(%p)->(%p %p)\n", This, in, out);
657 return E_NOTIMPL;
660 static HRESULT exec_selectall(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
662 TRACE("(%p)\n", This);
664 if(in || out)
665 FIXME("unsupported args\n");
667 if(This->doc_obj->nscontainer)
668 do_ns_command(This, NSCMD_SELECTALL, NULL);
670 update_doc(This, UPDATE_UI);
671 return S_OK;
674 static HRESULT exec_bold(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
676 TRACE("(%p)\n", This);
678 if(in || out)
679 FIXME("unsupported args\n");
681 if(This->doc_obj->nscontainer)
682 do_ns_command(This, NSCMD_BOLD, NULL);
684 update_doc(This, UPDATE_UI);
685 return S_OK;
688 static HRESULT exec_italic(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
690 TRACE("(%p)\n", This);
692 if(in || out)
693 FIXME("unsupported args\n");
695 if(This->doc_obj->nscontainer)
696 do_ns_command(This, NSCMD_ITALIC, NULL);
698 update_doc(This, UPDATE_UI);
699 return S_OK;
702 static HRESULT query_justify(HTMLDocument *This, OLECMD *cmd)
704 static const PRUnichar justifycenterW[] = {'j','u','s','t','i','f','y','c','e','n','t','e','r',0};
705 static const PRUnichar justifyrightW[] = {'j','u','s','t','i','f','y','r','i','g','h','t',0};
707 switch(cmd->cmdID) {
708 case IDM_JUSTIFYCENTER:
709 TRACE("(%p) IDM_JUSTIFYCENTER\n", This);
710 cmd->cmdf = query_align_status(This, justifycenterW);
711 break;
712 case IDM_JUSTIFYLEFT:
713 TRACE("(%p) IDM_JUSTIFYLEFT\n", This);
714 /* FIXME: We should set OLECMDF_LATCHED only if it's set explicitly. */
715 if(This->doc_obj->usermode != EDITMODE || This->window->readystate < READYSTATE_INTERACTIVE)
716 cmd->cmdf = OLECMDF_SUPPORTED;
717 else
718 cmd->cmdf = OLECMDF_SUPPORTED | OLECMDF_ENABLED;
719 break;
720 case IDM_JUSTIFYRIGHT:
721 TRACE("(%p) IDM_JUSTIFYRIGHT\n", This);
722 cmd->cmdf = query_align_status(This, justifyrightW);
723 break;
726 return S_OK;
729 static HRESULT exec_justifycenter(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
731 TRACE("(%p)\n", This);
733 if(in || out)
734 FIXME("unsupported args\n");
736 set_ns_align(This, NSALIGN_CENTER);
737 update_doc(This, UPDATE_UI);
738 return S_OK;
741 static HRESULT exec_justifyleft(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
743 TRACE("(%p)\n", This);
745 if(in || out)
746 FIXME("unsupported args\n");
748 set_ns_align(This, NSALIGN_LEFT);
749 update_doc(This, UPDATE_UI);
750 return S_OK;
753 static HRESULT exec_justifyright(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
755 TRACE("(%p)\n", This);
757 if(in || out)
758 FIXME("unsupported args\n");
760 set_ns_align(This, NSALIGN_RIGHT);
761 update_doc(This, UPDATE_UI);
762 return S_OK;
765 static HRESULT exec_underline(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
767 TRACE("(%p)\n", This);
769 if(in || out)
770 FIXME("unsupported args\n");
772 do_ns_command(This, NSCMD_UNDERLINE, NULL);
773 update_doc(This, UPDATE_UI);
774 return S_OK;
777 static HRESULT exec_horizontalline(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
779 TRACE("(%p)\n", This);
781 if(in || out)
782 FIXME("unsupported args\n");
784 do_ns_command(This, NSCMD_INSERTHR, NULL);
785 update_doc(This, UPDATE_UI);
786 return S_OK;
789 static HRESULT exec_orderlist(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
791 TRACE("(%p)\n", This);
793 if(in || out)
794 FIXME("unsupported args\n");
796 do_ns_command(This, NSCMD_OL, NULL);
797 update_doc(This, UPDATE_UI);
798 return S_OK;
801 static HRESULT exec_unorderlist(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
803 TRACE("(%p)\n", This);
805 if(in || out)
806 FIXME("unsupported args\n");
808 do_ns_command(This, NSCMD_UL, NULL);
809 update_doc(This, UPDATE_UI);
810 return S_OK;
813 static HRESULT exec_indent(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
815 TRACE("(%p)\n", This);
817 if(in || out)
818 FIXME("unsupported args\n");
820 do_ns_command(This, NSCMD_INDENT, NULL);
821 update_doc(This, UPDATE_UI);
822 return S_OK;
825 static HRESULT exec_outdent(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
827 TRACE("(%p)\n", This);
829 if(in || out)
830 FIXME("unsupported args\n");
832 do_ns_command(This, NSCMD_OUTDENT, NULL);
833 update_doc(This, UPDATE_UI);
834 return S_OK;
837 static HRESULT exec_composesettings(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
839 WCHAR *ptr;
841 if(out || !in || V_VT(in) != VT_BSTR) {
842 WARN("invalid arg %s\n", debugstr_variant(in));
843 return E_INVALIDARG;
846 TRACE("(%p)->(%x %s)\n", This, cmdexecopt, debugstr_w(V_BSTR(in)));
848 update_doc(This, UPDATE_UI);
850 ptr = V_BSTR(in);
851 if(*ptr == '1')
852 exec_bold(This, cmdexecopt, NULL, NULL);
853 ptr = strchrW(ptr, ',');
854 if(!ptr)
855 return S_OK;
857 if(*++ptr == '1')
858 exec_italic(This, cmdexecopt, NULL, NULL);
859 ptr = strchrW(ptr, ',');
860 if(!ptr)
861 return S_OK;
863 if(*++ptr == '1')
864 exec_underline(This, cmdexecopt, NULL, NULL);
865 ptr = strchrW(ptr, ',');
866 if(!ptr)
867 return S_OK;
869 if(isdigitW(*++ptr)) {
870 VARIANT v;
872 V_VT(&v) = VT_I4;
873 V_I4(&v) = *ptr-'0';
875 exec_fontsize(This, cmdexecopt, &v, NULL);
877 ptr = strchrW(ptr, ',');
878 if(!ptr)
879 return S_OK;
881 if(*++ptr != ',')
882 FIXME("set font color\n");
883 ptr = strchrW(ptr, ',');
884 if(!ptr)
885 return S_OK;
887 if(*++ptr != ',')
888 FIXME("set background color\n");
889 ptr = strchrW(ptr, ',');
890 if(!ptr)
891 return S_OK;
893 ptr++;
894 if(*ptr) {
895 VARIANT v;
897 V_VT(&v) = VT_BSTR;
898 V_BSTR(&v) = SysAllocString(ptr);
900 exec_fontname(This, cmdexecopt, &v, NULL);
902 SysFreeString(V_BSTR(&v));
905 return S_OK;
908 HRESULT editor_exec_copy(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
910 update_doc(This, UPDATE_UI);
912 if(!This->doc_obj->nscontainer)
913 return E_FAIL;
915 do_ns_editor_command(This->doc_obj->nscontainer, NSCMD_COPY);
916 return S_OK;
919 HRESULT editor_exec_cut(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
921 update_doc(This, UPDATE_UI);
923 if(!This->doc_obj->nscontainer)
924 return E_FAIL;
926 do_ns_editor_command(This->doc_obj->nscontainer, NSCMD_CUT);
927 return S_OK;
930 HRESULT editor_exec_paste(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
932 update_doc(This, UPDATE_UI);
934 if(!This->doc_obj->nscontainer)
935 return E_FAIL;
937 do_ns_editor_command(This->doc_obj->nscontainer, NSCMD_PASTE);
938 return S_OK;
941 static HRESULT exec_setdirty(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
943 TRACE("(%p)->(%08x %p %p)\n", This, cmdexecopt, in, out);
945 if(!in)
946 return S_OK;
948 if(V_VT(in) == VT_BOOL)
949 set_dirty(This, V_BOOL(in));
950 else
951 FIXME("unsupported arg %s\n", debugstr_variant(in));
953 return S_OK;
956 static HRESULT query_edit_status(HTMLDocument *This, OLECMD *cmd)
958 switch(cmd->cmdID) {
959 case IDM_DELETE:
960 TRACE("CGID_MSHTML: IDM_DELETE\n");
961 cmd->cmdf = query_ns_edit_status(This, NULL);
962 break;
963 case IDM_FONTNAME:
964 TRACE("CGID_MSHTML: IDM_FONTNAME\n");
965 cmd->cmdf = query_ns_edit_status(This, NULL);
966 break;
967 case IDM_FONTSIZE:
968 TRACE("CGID_MSHTML: IDM_FONTSIZE\n");
969 cmd->cmdf = query_ns_edit_status(This, NULL);
970 break;
971 case IDM_BOLD:
972 TRACE("CGID_MSHTML: IDM_BOLD\n");
973 cmd->cmdf = query_ns_edit_status(This, NSCMD_BOLD);
974 break;
975 case IDM_FORECOLOR:
976 TRACE("CGID_MSHTML: IDM_FORECOLOR\n");
977 cmd->cmdf = query_ns_edit_status(This, NULL);
978 break;
979 case IDM_ITALIC:
980 TRACE("CGID_MSHTML: IDM_ITALIC\n");
981 cmd->cmdf = query_ns_edit_status(This, NSCMD_ITALIC);
982 break;
983 case IDM_UNDERLINE:
984 TRACE("CGID_MSHTML: IDM_UNDERLINE\n");
985 cmd->cmdf = query_ns_edit_status(This, NSCMD_UNDERLINE);
986 break;
987 case IDM_HORIZONTALLINE:
988 TRACE("CGID_MSHTML: IDM_HORIZONTALLINE\n");
989 cmd->cmdf = query_ns_edit_status(This, NULL);
990 break;
991 case IDM_ORDERLIST:
992 TRACE("CGID_MSHTML: IDM_ORDERLIST\n");
993 cmd->cmdf = query_ns_edit_status(This, NSCMD_OL);
994 break;
995 case IDM_UNORDERLIST:
996 TRACE("CGID_MSHTML: IDM_HORIZONTALLINE\n");
997 cmd->cmdf = query_ns_edit_status(This, NSCMD_UL);
998 break;
999 case IDM_INDENT:
1000 TRACE("CGID_MSHTML: IDM_INDENT\n");
1001 cmd->cmdf = query_ns_edit_status(This, NULL);
1002 break;
1003 case IDM_OUTDENT:
1004 TRACE("CGID_MSHTML: IDM_OUTDENT\n");
1005 cmd->cmdf = query_ns_edit_status(This, NULL);
1006 break;
1007 case IDM_HYPERLINK:
1008 TRACE("CGID_MSHTML: IDM_HYPERLINK\n");
1009 cmd->cmdf = query_ns_edit_status(This, NULL);
1010 break;
1013 return S_OK;
1016 static INT_PTR CALLBACK hyperlink_dlgproc(HWND hwnd, UINT msg, WPARAM wparam, LPARAM lparam)
1018 static const WCHAR wszOther[] = {'(','o','t','h','e','r',')',0};
1020 switch (msg)
1022 case WM_INITDIALOG:
1024 static const WCHAR wszFile[] = {'f','i','l','e',':',0};
1025 static const WCHAR wszFtp[] = {'f','t','p',':',0};
1026 static const WCHAR wszHttp[] = {'h','t','t','p',':',0};
1027 static const WCHAR wszHttps[] = {'h','t','t','p','s',':',0};
1028 static const WCHAR wszMailto[] = {'m','a','i','l','t','o',':',0};
1029 static const WCHAR wszNews[] = {'n','e','w','s',':',0};
1030 INT def_idx;
1031 HWND hwndCB = GetDlgItem(hwnd, IDC_TYPE);
1032 HWND hwndURL = GetDlgItem(hwnd, IDC_URL);
1033 INT len;
1035 SetWindowLongPtrW(hwnd, DWLP_USER, lparam);
1037 SendMessageW(hwndCB, CB_INSERTSTRING, -1, (LPARAM)wszOther);
1038 SendMessageW(hwndCB, CB_INSERTSTRING, -1, (LPARAM)wszFile);
1039 SendMessageW(hwndCB, CB_INSERTSTRING, -1, (LPARAM)wszFtp);
1040 def_idx = SendMessageW(hwndCB, CB_INSERTSTRING, -1, (LPARAM)wszHttp);
1041 SendMessageW(hwndCB, CB_INSERTSTRING, -1, (LPARAM)wszHttps);
1042 SendMessageW(hwndCB, CB_INSERTSTRING, -1, (LPARAM)wszMailto);
1043 SendMessageW(hwndCB, CB_INSERTSTRING, -1, (LPARAM)wszNews);
1044 SendMessageW(hwndCB, CB_SETCURSEL, def_idx, 0);
1046 /* force the updating of the URL edit box */
1047 SendMessageW(hwnd, WM_COMMAND, MAKEWPARAM(IDC_TYPE, CBN_SELCHANGE), (LPARAM)hwndCB);
1049 SetFocus(hwndURL);
1050 len = SendMessageW(hwndURL, WM_GETTEXTLENGTH, 0, 0);
1051 SendMessageW(hwndURL, EM_SETSEL, 0, len);
1053 return FALSE;
1055 case WM_COMMAND:
1056 switch (wparam)
1058 case MAKEWPARAM(IDCANCEL, BN_CLICKED):
1059 EndDialog(hwnd, wparam);
1060 return TRUE;
1061 case MAKEWPARAM(IDOK, BN_CLICKED):
1063 BSTR *url = (BSTR *)GetWindowLongPtrW(hwnd, DWLP_USER);
1064 HWND hwndURL = GetDlgItem(hwnd, IDC_URL);
1065 INT len = GetWindowTextLengthW(hwndURL);
1066 *url = SysAllocStringLen(NULL, len + 1);
1067 GetWindowTextW(hwndURL, *url, len + 1);
1068 EndDialog(hwnd, wparam);
1069 return TRUE;
1071 case MAKEWPARAM(IDC_TYPE, CBN_SELCHANGE):
1073 HWND hwndURL = GetDlgItem(hwnd, IDC_URL);
1074 INT item;
1075 INT len;
1076 LPWSTR type;
1077 LPWSTR url;
1078 LPWSTR p;
1079 static const WCHAR wszSlashSlash[] = {'/','/'};
1081 /* get string of currently selected hyperlink type */
1082 item = SendMessageW((HWND)lparam, CB_GETCURSEL, 0, 0);
1083 len = SendMessageW((HWND)lparam, CB_GETLBTEXTLEN, item, 0);
1084 type = HeapAlloc(GetProcessHeap(), 0, (len + 1) * sizeof(WCHAR));
1085 SendMessageW((HWND)lparam, CB_GETLBTEXT, item, (LPARAM)type);
1087 if (!strcmpW(type, wszOther))
1088 *type = '\0';
1090 /* get current URL */
1091 len = GetWindowTextLengthW(hwndURL);
1092 url = HeapAlloc(GetProcessHeap(), 0, (len + strlenW(type) + 3) * sizeof(WCHAR));
1093 GetWindowTextW(hwndURL, url, len + 1);
1095 /* strip off old protocol */
1096 p = strchrW(url, ':');
1097 if (p && p[1] == '/' && p[2] == '/')
1098 p += 3;
1099 if (!p) p = url;
1100 memmove(url + (*type != '\0' ? strlenW(type) + 2 : 0), p, (len + 1 - (p - url)) * sizeof(WCHAR));
1102 /* add new protocol */
1103 if (*type != '\0')
1105 memcpy(url, type, strlenW(type) * sizeof(WCHAR));
1106 memcpy(url + strlenW(type), wszSlashSlash, sizeof(wszSlashSlash));
1109 SetWindowTextW(hwndURL, url);
1111 HeapFree(GetProcessHeap(), 0, url);
1112 HeapFree(GetProcessHeap(), 0, type);
1113 return TRUE;
1116 return FALSE;
1117 case WM_CLOSE:
1118 EndDialog(hwnd, IDCANCEL);
1119 return TRUE;
1120 default:
1121 return FALSE;
1125 static HRESULT exec_hyperlink(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
1127 nsAString href_str, ns_url;
1128 nsIHTMLEditor *html_editor;
1129 nsIDOMHTMLElement *anchor_elem;
1130 cpp_bool insert_link_at_caret;
1131 nsISelection *nsselection;
1132 BSTR url = NULL;
1133 INT ret;
1134 HRESULT hres = E_FAIL;
1136 static const WCHAR aW[] = {'a',0};
1137 static const WCHAR hrefW[] = {'h','r','e','f',0};
1139 TRACE("%p, 0x%x, %p, %p\n", This, cmdexecopt, in, out);
1141 if (cmdexecopt == OLECMDEXECOPT_DONTPROMPTUSER)
1143 if (!in || V_VT(in) != VT_BSTR)
1145 WARN("invalid arg\n");
1146 return E_INVALIDARG;
1148 url = V_BSTR(in);
1150 else
1152 ret = DialogBoxParamW(hInst, MAKEINTRESOURCEW(IDD_HYPERLINK), NULL /* FIXME */, hyperlink_dlgproc, (LPARAM)&url);
1153 if (ret != IDOK)
1154 return OLECMDERR_E_CANCELED;
1157 if(!This->doc_node->nsdoc) {
1158 WARN("NULL nsdoc\n");
1159 return E_UNEXPECTED;
1162 nsselection = get_ns_selection(This);
1163 if (!nsselection)
1164 return E_FAIL;
1166 /* create an element for the link */
1167 create_nselem(This->doc_node, aW, &anchor_elem);
1169 nsAString_InitDepend(&href_str, hrefW);
1170 nsAString_InitDepend(&ns_url, url);
1171 nsIDOMElement_SetAttribute(anchor_elem, &href_str, &ns_url);
1172 nsAString_Finish(&href_str);
1174 nsISelection_GetIsCollapsed(nsselection, &insert_link_at_caret);
1176 /* create an element with text of URL */
1177 if (insert_link_at_caret) {
1178 nsIDOMNode *text_node, *unused_node;
1180 nsIDOMDocument_CreateTextNode(This->doc_node->nsdoc, &ns_url, (nsIDOMText **)&text_node);
1182 /* wrap the <a> tags around the text element */
1183 nsIDOMElement_AppendChild(anchor_elem, text_node, &unused_node);
1184 nsIDOMNode_Release(text_node);
1185 nsIDOMNode_Release(unused_node);
1188 nsAString_Finish(&ns_url);
1190 nsIEditor_QueryInterface(This->doc_obj->nscontainer->editor, &IID_nsIHTMLEditor, (void **)&html_editor);
1191 if (html_editor) {
1192 nsresult nsres;
1194 if (insert_link_at_caret) {
1195 /* add them to the document at the caret position */
1196 nsres = nsIHTMLEditor_InsertElementAtSelection(html_editor, (nsIDOMElement*)anchor_elem, FALSE);
1197 nsISelection_SelectAllChildren(nsselection, (nsIDOMNode*)anchor_elem);
1198 }else /* add them around the selection using the magic provided to us by nsIHTMLEditor */
1199 nsres = nsIHTMLEditor_InsertLinkAroundSelection(html_editor, (nsIDOMElement*)anchor_elem);
1201 nsIHTMLEditor_Release(html_editor);
1202 hres = NS_SUCCEEDED(nsres) ? S_OK : E_FAIL;
1205 nsISelection_Release(nsselection);
1206 nsIDOMElement_Release(anchor_elem);
1208 if (cmdexecopt != OLECMDEXECOPT_DONTPROMPTUSER)
1209 SysFreeString(url);
1211 TRACE("-- 0x%08x\n", hres);
1212 return hres;
1215 static HRESULT query_selall_status(HTMLDocument *This, OLECMD *cmd)
1217 TRACE("(%p)->(%p)\n", This, cmd);
1219 cmd->cmdf = OLECMDF_SUPPORTED|OLECMDF_ENABLED;
1220 return S_OK;
1223 const cmdtable_t editmode_cmds[] = {
1224 {IDM_DELETE, query_edit_status, exec_delete},
1225 {IDM_FONTNAME, query_edit_status, exec_fontname},
1226 {IDM_FONTSIZE, query_edit_status, exec_fontsize},
1227 {IDM_SELECTALL, query_selall_status , exec_selectall},
1228 {IDM_FORECOLOR, query_edit_status, exec_forecolor},
1229 {IDM_BOLD, query_edit_status, exec_bold},
1230 {IDM_ITALIC, query_edit_status, exec_italic},
1231 {IDM_JUSTIFYCENTER, query_justify, exec_justifycenter},
1232 {IDM_JUSTIFYRIGHT, query_justify, exec_justifyright},
1233 {IDM_JUSTIFYLEFT, query_justify, exec_justifyleft},
1234 {IDM_FONT, NULL, exec_font},
1235 {IDM_UNDERLINE, query_edit_status, exec_underline},
1236 {IDM_HORIZONTALLINE, query_edit_status, exec_horizontalline},
1237 {IDM_ORDERLIST, query_edit_status, exec_orderlist},
1238 {IDM_UNORDERLIST, query_edit_status, exec_unorderlist},
1239 {IDM_INDENT, query_edit_status, exec_indent},
1240 {IDM_OUTDENT, query_edit_status, exec_outdent},
1241 {IDM_COMPOSESETTINGS, NULL, exec_composesettings},
1242 {IDM_HYPERLINK, query_edit_status, exec_hyperlink},
1243 {IDM_SETDIRTY, NULL, exec_setdirty},
1244 {0,NULL,NULL}
1247 void init_editor(HTMLDocument *This)
1249 update_doc(This, UPDATE_UI);
1251 set_ns_fontname(This, "Times New Roman");
1254 HRESULT editor_is_dirty(HTMLDocument *This)
1256 cpp_bool modified;
1258 if(!This->doc_obj->nscontainer || !This->doc_obj->nscontainer->editor)
1259 return S_FALSE;
1261 nsIEditor_GetDocumentModified(This->doc_obj->nscontainer->editor, &modified);
1263 return modified ? S_OK : S_FALSE;