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
33 #include "wine/debug.h"
34 #include "wine/unicode.h"
36 #include "mshtml_private.h"
39 WINE_DEFAULT_DEBUG_CHANNEL(mshtml);
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_INSERTLINKNOUI "cmd_insertLinkNoUI"
56 #define NSCMD_ITALIC "cmd_italic"
57 #define NSCMD_LINENEXT "cmd_lineNext"
58 #define NSCMD_LINEPREVIOUS "cmd_linePrevious"
59 #define NSCMD_MOVEBOTTOM "cmd_moveBottom"
60 #define NSCMD_MOVEPAGEDOWN "cmd_movePageDown"
61 #define NSCMD_MOVEPAGEUP "cmd_movePageUp"
62 #define NSCMD_MOVETOP "cmd_moveTop"
63 #define NSCMD_OL "cmd_ol"
64 #define NSCMD_OUTDENT "cmd_outdent"
65 #define NSCMD_PASTE "cmd_paste"
66 #define NSCMD_SELECTALL "cmd_selectAll"
67 #define NSCMD_SELECTBEGINLINE "cmd_selectBeginLine"
68 #define NSCMD_SELECTBOTTOM "cmd_selectBottom"
69 #define NSCMD_SELECTCHARNEXT "cmd_selectCharNext"
70 #define NSCMD_SELECTCHARPREVIOUS "cmd_selectCharPrevious"
71 #define NSCMD_SELECTENDLINE "cmd_selectEndLine"
72 #define NSCMD_SELECTLINENEXT "cmd_selectLineNext"
73 #define NSCMD_SELECTLINEPREVIOUS "cmd_selectLinePrevious"
74 #define NSCMD_SELECTPAGEDOWN "cmd_selectPageDown"
75 #define NSCMD_SELECTPAGEUP "cmd_selectPageUp"
76 #define NSCMD_SELECTTOP "cmd_selectTop"
77 #define NSCMD_SELECTWORDNEXT "cmd_selectWordNext"
78 #define NSCMD_SELECTWORDPREVIOUS "cmd_selectWordPrevious"
79 #define NSCMD_UL "cmd_ul"
80 #define NSCMD_UNDERLINE "cmd_underline"
81 #define NSCMD_WORDNEXT "cmd_wordNext"
82 #define NSCMD_WORDPREVIOUS "cmd_wordPrevious"
84 #define NSSTATE_ATTRIBUTE "state_attribute"
85 #define NSSTATE_ALL "state_all"
87 #define NSALIGN_CENTER "center"
88 #define NSALIGN_LEFT "left"
89 #define NSALIGN_RIGHT "right"
91 #define DOM_VK_LEFT VK_LEFT
92 #define DOM_VK_UP VK_UP
93 #define DOM_VK_RIGHT VK_RIGHT
94 #define DOM_VK_DOWN VK_DOWN
95 #define DOM_VK_DELETE VK_DELETE
96 #define DOM_VK_HOME VK_HOME
97 #define DOM_VK_END VK_END
99 static const WCHAR wszFont[] = {'f','o','n','t',0};
100 static const WCHAR wszSize[] = {'s','i','z','e',0};
102 void set_dirty(HTMLDocument *This, VARIANT_BOOL dirty)
106 if(This->usermode != EDITMODE || !This->nscontainer || !This->nscontainer->editor)
110 nsres = nsIEditor_IncrementModificationCount(This->nscontainer->editor, 1);
112 ERR("IncrementModificationCount failed: %08x\n", nsres);
114 nsres = nsIEditor_ResetModificationCount(This->nscontainer->editor);
116 ERR("ResetModificationCount failed: %08x\n", nsres);
120 static void do_ns_editor_command(NSContainer *This, const char *cmd)
124 if(!This->editor_controller)
127 nsres = nsIController_DoCommand(This->editor_controller, cmd);
129 ERR("DoCommand(%s) failed: %08x\n", debugstr_a(cmd), nsres);
132 static nsresult get_ns_command_state(NSContainer *This, const char *cmd, nsICommandParams *nsparam)
134 nsICommandManager *cmdmgr;
137 nsres = get_nsinterface((nsISupports*)This->webbrowser, &IID_nsICommandManager, (void**)&cmdmgr);
138 if(NS_FAILED(nsres)) {
139 ERR("Could not get nsICommandManager: %08x\n", nsres);
143 nsres = nsICommandManager_GetCommandState(cmdmgr, cmd, NULL, nsparam);
145 ERR("GetCommandState(%s) failed: %08x\n", debugstr_a(cmd), nsres);
147 nsICommandManager_Release(cmdmgr);
151 static DWORD query_ns_edit_status(HTMLDocument *This, const char *nscmd)
153 nsICommandParams *nsparam;
156 if(This->usermode != EDITMODE || This->readystate < READYSTATE_INTERACTIVE)
157 return OLECMDF_SUPPORTED;
159 if(This->nscontainer && nscmd) {
160 nsparam = create_nscommand_params();
161 get_ns_command_state(This->nscontainer, nscmd, nsparam);
163 nsICommandParams_GetBooleanValue(nsparam, NSSTATE_ALL, &b);
165 nsICommandParams_Release(nsparam);
168 return OLECMDF_SUPPORTED | OLECMDF_ENABLED | (b ? OLECMDF_LATCHED : 0);
171 static void set_ns_align(HTMLDocument *This, const char *align_str)
173 nsICommandParams *nsparam;
175 if(!This->nscontainer)
178 nsparam = create_nscommand_params();
179 nsICommandParams_SetCStringValue(nsparam, NSSTATE_ATTRIBUTE, align_str);
181 do_ns_command(This->nscontainer, NSCMD_ALIGN, nsparam);
183 nsICommandParams_Release(nsparam);
186 static DWORD query_align_status(HTMLDocument *This, const char *align_str)
188 nsICommandParams *nsparam;
191 if(This->usermode != EDITMODE || This->readystate < READYSTATE_INTERACTIVE)
192 return OLECMDF_SUPPORTED;
194 if(This->nscontainer) {
195 nsparam = create_nscommand_params();
196 get_ns_command_state(This->nscontainer, NSCMD_ALIGN, nsparam);
198 nsICommandParams_GetCStringValue(nsparam, NSSTATE_ATTRIBUTE, &align);
200 nsICommandParams_Release(nsparam);
203 return OLECMDF_SUPPORTED | OLECMDF_ENABLED
204 | (align && !strcmp(align_str, align) ? OLECMDF_LATCHED : 0);
208 static nsISelection *get_ns_selection(HTMLDocument *This)
210 nsIDOMWindow *dom_window;
211 nsISelection *nsselection = NULL;
214 if(!This->nscontainer)
217 nsres = nsIWebBrowser_GetContentDOMWindow(This->nscontainer->webbrowser, &dom_window);
221 nsIDOMWindow_GetSelection(dom_window, &nsselection);
222 nsIDOMWindow_Release(dom_window);
228 static void remove_child_attr(nsIDOMElement *elem, LPCWSTR tag, nsAString *attr_str)
231 PRUint32 child_cnt, i;
232 nsIDOMNode *child_node;
233 nsIDOMNodeList *node_list;
236 nsIDOMElement_HasChildNodes(elem, &has_children);
240 nsIDOMElement_GetChildNodes(elem, &node_list);
241 nsIDOMNodeList_GetLength(node_list, &child_cnt);
243 for(i=0; i<child_cnt; i++) {
244 nsIDOMNodeList_Item(node_list, i, &child_node);
246 nsIDOMNode_GetNodeType(child_node, &node_type);
247 if(node_type == ELEMENT_NODE) {
248 nsIDOMElement *child_elem;
250 const PRUnichar *ctag;
252 nsIDOMNode_QueryInterface(child_node, &IID_nsIDOMElement, (void**)&child_elem);
254 nsAString_Init(&tag_str, NULL);
255 nsIDOMElement_GetTagName(child_elem, &tag_str);
256 nsAString_GetData(&tag_str, &ctag);
258 if(!strcmpiW(ctag, tag))
259 /* FIXME: remove node if there are no more attributes */
260 nsIDOMElement_RemoveAttribute(child_elem, attr_str);
262 nsAString_Finish(&tag_str);
264 remove_child_attr(child_elem, tag, attr_str);
266 nsIDOMNode_Release(child_elem);
269 nsIDOMNode_Release(child_node);
272 nsIDOMNodeList_Release(node_list);
275 static void get_font_size(HTMLDocument *This, WCHAR *ret)
277 nsISelection *nsselection = get_ns_selection(This);
278 nsIDOMElement *elem = NULL;
279 nsIDOMNode *node = NULL, *tmp_node;
290 nsISelection_GetFocusNode(nsselection, &node);
291 nsISelection_Release(nsselection);
294 nsres = nsIDOMNode_GetNodeType(node, &node_type);
295 if(NS_FAILED(nsres) || node_type == DOCUMENT_NODE)
298 if(node_type == ELEMENT_NODE) {
299 nsIDOMNode_QueryInterface(node, &IID_nsIDOMElement, (void**)&elem);
301 nsAString_Init(&tag_str, NULL);
302 nsIDOMElement_GetTagName(elem, &tag_str);
303 nsAString_GetData(&tag_str, &tag);
305 if(!strcmpiW(tag, wszFont)) {
306 nsAString size_str, val_str;
309 TRACE("found font tag %p\n", elem);
311 nsAString_Init(&size_str, wszSize);
312 nsAString_Init(&val_str, NULL);
314 nsIDOMElement_GetAttribute(elem, &size_str, &val_str);
315 nsAString_GetData(&val_str, &val);
318 TRACE("found size %s\n", debugstr_w(val));
322 nsAString_Finish(&size_str);
323 nsAString_Finish(&val_str);
326 nsAString_Finish(&tag_str);
328 nsIDOMElement_Release(elem);
335 nsIDOMNode_GetParentNode(node, &node);
336 nsIDOMNode_Release(tmp_node);
340 nsIDOMNode_Release(node);
343 static void set_font_size(HTMLDocument *This, LPCWSTR size)
345 nsISelection *nsselection;
347 nsIDOMDocument *nsdoc;
350 PRInt32 range_cnt = 0;
356 nsselection = get_ns_selection(This);
361 nsISelection_GetRangeCount(nsselection, &range_cnt);
363 FIXME("range_cnt %d not supprted\n", range_cnt);
365 nsISelection_Release(nsselection);
370 nsres = nsIWebNavigation_GetDocument(This->nscontainer->navigation, &nsdoc);
374 nsAString_Init(&font_str, wszFont);
375 nsAString_Init(&size_str, wszSize);
376 nsAString_Init(&val_str, size);
378 nsIDOMDocument_CreateElement(nsdoc, &font_str, &elem);
379 nsIDOMElement_SetAttribute(elem, &size_str, &val_str);
381 nsISelection_GetRangeAt(nsselection, 0, &range);
382 nsISelection_GetIsCollapsed(nsselection, &collapsed);
383 nsISelection_RemoveAllRanges(nsselection);
385 nsIDOMRange_SurroundContents(range, (nsIDOMNode*)elem);
388 nsISelection_Collapse(nsselection, (nsIDOMNode*)elem, 0);
390 /* Remove all size attrbutes from the range */
391 remove_child_attr(elem, wszFont, &size_str);
392 nsISelection_SelectAllChildren(nsselection, (nsIDOMNode*)elem);
395 nsIDOMRange_Release(range);
396 nsIDOMElement_Release(elem);
398 nsAString_Finish(&font_str);
399 nsAString_Finish(&size_str);
400 nsAString_Finish(&val_str);
402 nsISelection_Release(nsselection);
403 nsIDOMDocument_Release(nsdoc);
405 set_dirty(This, VARIANT_TRUE);
408 static void handle_arrow_key(HTMLDocument *This, nsIDOMKeyEvent *event, const char * const cmds[4])
413 nsIDOMKeyEvent_GetCtrlKey(event, &b);
417 nsIDOMKeyEvent_GetShiftKey(event, &b);
422 do_ns_editor_command(This->nscontainer, cmds[i]);
424 nsIDOMKeyEvent_PreventDefault(event);
427 void handle_edit_event(HTMLDocument *This, nsIDOMEvent *event)
429 nsIDOMKeyEvent *key_event;
432 nsIDOMEvent_QueryInterface(event, &IID_nsIDOMKeyEvent, (void**)&key_event);
434 nsIDOMKeyEvent_GetKeyCode(key_event, &code);
438 static const char * const cmds[] = {
441 NSCMD_SELECTCHARPREVIOUS,
442 NSCMD_SELECTWORDPREVIOUS
446 handle_arrow_key(This, key_event, cmds);
450 static const char * const cmds[] = {
453 NSCMD_SELECTCHARNEXT,
458 handle_arrow_key(This, key_event, cmds);
462 static const char * const cmds[] = {
465 NSCMD_SELECTLINEPREVIOUS,
470 handle_arrow_key(This, key_event, cmds);
474 static const char * const cmds[] = {
477 NSCMD_SELECTLINENEXT,
482 handle_arrow_key(This, key_event, cmds);
485 case DOM_VK_DELETE: {
486 static const char * const cmds[] = {
487 NSCMD_DELETECHARFORWARD,
488 NSCMD_DELETEWORDFORWARD,
493 handle_arrow_key(This, key_event, cmds);
497 static const char * const cmds[] = {
500 NSCMD_SELECTBEGINLINE,
505 handle_arrow_key(This, key_event, cmds);
509 static const char * const cmds[] = {
517 handle_arrow_key(This, key_event, cmds);
522 nsIDOMKeyEvent_Release(key_event);
525 void handle_edit_load(HTMLDocument *This)
527 This->nscontainer->reset_focus = GetFocus();
528 get_editor_controller(This->nscontainer);
531 static void set_ns_fontname(NSContainer *This, const char *fontname)
533 nsICommandParams *nsparam = create_nscommand_params();
535 nsICommandParams_SetCStringValue(nsparam, NSSTATE_ATTRIBUTE, fontname);
536 do_ns_command(This, NSCMD_FONTFACE, nsparam);
537 nsICommandParams_Release(nsparam);
540 static HRESULT exec_delete(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
542 TRACE("(%p)->(%p %p)\n", This, in, out);
544 if(This->nscontainer)
545 do_ns_editor_command(This->nscontainer, NSCMD_DELETECHARFORWARD);
547 update_doc(This, UPDATE_UI);
551 static HRESULT exec_fontname(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
553 TRACE("(%p)->(%p %p)\n", This, in, out);
555 if(!This->nscontainer) {
556 update_doc(This, UPDATE_UI);
564 if(V_VT(in) != VT_BSTR) {
565 FIXME("Unsupported vt=%d\n", V_VT(out));
569 TRACE("%s\n", debugstr_w(V_BSTR(in)));
571 len = WideCharToMultiByte(CP_ACP, 0, V_BSTR(in), -1, NULL, 0, NULL, NULL);
572 stra = heap_alloc(len);
573 WideCharToMultiByte(CP_ACP, 0, V_BSTR(in), -1, stra, -1, NULL, NULL);
575 set_ns_fontname(This->nscontainer, stra);
579 update_doc(This, UPDATE_UI);
583 nsICommandParams *nsparam;
592 nsparam = create_nscommand_params();
594 nsres = get_ns_command_state(This->nscontainer, NSCMD_FONTFACE, nsparam);
598 nsICommandParams_GetCStringValue(nsparam, NSSTATE_ATTRIBUTE, &stra);
599 nsICommandParams_Release(nsparam);
601 len = MultiByteToWideChar(CP_ACP, 0, stra, -1, NULL, 0);
602 strw = heap_alloc(len*sizeof(WCHAR));
603 MultiByteToWideChar(CP_ACP, 0, stra, -1, strw, -1);
606 V_BSTR(out) = SysAllocString(strw);
613 static HRESULT exec_forecolor(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
615 TRACE("(%p)->(%p %p)\n", This, in, out);
618 if(V_VT(in) == VT_I4) {
619 nsICommandParams *nsparam = create_nscommand_params();
622 sprintf(color_str, "#%02x%02x%02x",
623 V_I4(in)&0xff, (V_I4(in)>>8)&0xff, (V_I4(in)>>16)&0xff);
625 nsICommandParams_SetCStringValue(nsparam, NSSTATE_ATTRIBUTE, color_str);
626 do_ns_command(This->nscontainer, NSCMD_FONTCOLOR, nsparam);
628 nsICommandParams_Release(nsparam);
630 FIXME("unsupported in vt=%d\n", V_VT(in));
633 update_doc(This, UPDATE_UI);
637 FIXME("unsupported out\n");
644 static HRESULT exec_fontsize(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
646 TRACE("(%p)->(%p %p)\n", This, in, out);
651 get_font_size(This, val);
653 V_I4(out) = strtolW(val, NULL, 10);
660 static const WCHAR format[] = {'%','d',0};
661 wsprintfW(size, format, V_I4(in));
662 set_font_size(This, size);
666 set_font_size(This, V_BSTR(in));
669 FIXME("unsupported vt %d\n", V_VT(in));
672 update_doc(This, UPDATE_UI);
678 static HRESULT exec_font(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
681 FIXME("(%p)->(%p %p)\n", This, in, out);
685 static HRESULT exec_selectall(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
687 TRACE("(%p)\n", This);
690 FIXME("unsupported args\n");
692 if(This->nscontainer)
693 do_ns_command(This->nscontainer, NSCMD_SELECTALL, NULL);
695 update_doc(This, UPDATE_UI);
699 static HRESULT exec_bold(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
701 TRACE("(%p)\n", This);
704 FIXME("unsupported args\n");
706 if(This->nscontainer)
707 do_ns_command(This->nscontainer, NSCMD_BOLD, NULL);
709 update_doc(This, UPDATE_UI);
713 static HRESULT exec_italic(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
715 TRACE("(%p)\n", This);
718 FIXME("unsupported args\n");
720 if(This->nscontainer)
721 do_ns_command(This->nscontainer, NSCMD_ITALIC, NULL);
723 update_doc(This, UPDATE_UI);
727 static HRESULT query_justify(HTMLDocument *This, OLECMD *cmd)
730 case IDM_JUSTIFYCENTER:
731 TRACE("(%p) IDM_JUSTIFYCENTER\n", This);
732 cmd->cmdf = query_align_status(This, NSALIGN_CENTER);
734 case IDM_JUSTIFYLEFT:
735 TRACE("(%p) IDM_JUSTIFYLEFT\n", This);
736 /* FIXME: We should set OLECMDF_LATCHED only if it's set explicitly. */
737 if(This->usermode != EDITMODE || This->readystate < READYSTATE_INTERACTIVE)
738 cmd->cmdf = OLECMDF_SUPPORTED;
740 cmd->cmdf = OLECMDF_SUPPORTED | OLECMDF_ENABLED;
742 case IDM_JUSTIFYRIGHT:
743 TRACE("(%p) IDM_JUSTIFYRIGHT\n", This);
744 cmd->cmdf = query_align_status(This, NSALIGN_RIGHT);
751 static HRESULT exec_justifycenter(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
753 TRACE("(%p)\n", This);
756 FIXME("unsupported args\n");
758 set_ns_align(This, NSALIGN_CENTER);
759 update_doc(This, UPDATE_UI);
763 static HRESULT exec_justifyleft(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
765 TRACE("(%p)\n", This);
768 FIXME("unsupported args\n");
770 set_ns_align(This, NSALIGN_LEFT);
771 update_doc(This, UPDATE_UI);
775 static HRESULT exec_justifyright(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
777 TRACE("(%p)\n", This);
780 FIXME("unsupported args\n");
782 set_ns_align(This, NSALIGN_RIGHT);
783 update_doc(This, UPDATE_UI);
787 static HRESULT exec_underline(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
789 TRACE("(%p)\n", This);
792 FIXME("unsupported args\n");
794 if(This->nscontainer)
795 do_ns_command(This->nscontainer, NSCMD_UNDERLINE, NULL);
797 update_doc(This, UPDATE_UI);
801 static HRESULT exec_horizontalline(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
803 TRACE("(%p)\n", This);
806 FIXME("unsupported args\n");
808 if(This->nscontainer)
809 do_ns_command(This->nscontainer, NSCMD_INSERTHR, NULL);
811 update_doc(This, UPDATE_UI);
815 static HRESULT exec_orderlist(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
817 TRACE("(%p)\n", This);
820 FIXME("unsupported args\n");
822 if(This->nscontainer)
823 do_ns_command(This->nscontainer, NSCMD_OL, NULL);
825 update_doc(This, UPDATE_UI);
829 static HRESULT exec_unorderlist(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
831 TRACE("(%p)\n", This);
834 FIXME("unsupported args\n");
836 if(This->nscontainer)
837 do_ns_command(This->nscontainer, NSCMD_UL, NULL);
839 update_doc(This, UPDATE_UI);
843 static HRESULT exec_indent(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
845 TRACE("(%p)\n", This);
848 FIXME("unsupported args\n");
850 if(This->nscontainer)
851 do_ns_command(This->nscontainer, NSCMD_INDENT, NULL);
853 update_doc(This, UPDATE_UI);
857 static HRESULT exec_outdent(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
859 TRACE("(%p)\n", This);
862 FIXME("unsupported args\n");
864 if(This->nscontainer)
865 do_ns_command(This->nscontainer, NSCMD_OUTDENT, NULL);
867 update_doc(This, UPDATE_UI);
871 static HRESULT exec_composesettings(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
875 if(out || !in || V_VT(in) != VT_BSTR) {
876 WARN("invalid arg\n");
880 TRACE("(%p)->(%x %s)\n", This, cmdexecopt, debugstr_w(V_BSTR(in)));
882 update_doc(This, UPDATE_UI);
886 exec_bold(This, cmdexecopt, NULL, NULL);
887 ptr = strchrW(ptr, ',');
892 exec_italic(This, cmdexecopt, NULL, NULL);
893 ptr = strchrW(ptr, ',');
898 exec_underline(This, cmdexecopt, NULL, NULL);
899 ptr = strchrW(ptr, ',');
903 if(isdigitW(*++ptr)) {
909 exec_fontsize(This, cmdexecopt, &v, NULL);
911 ptr = strchrW(ptr, ',');
916 FIXME("set font color\n");
917 ptr = strchrW(ptr, ',');
922 FIXME("set background color\n");
923 ptr = strchrW(ptr, ',');
932 V_BSTR(&v) = SysAllocString(ptr);
934 exec_fontname(This, cmdexecopt, &v, NULL);
936 SysFreeString(V_BSTR(&v));
942 HRESULT editor_exec_copy(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
944 update_doc(This, UPDATE_UI);
946 if(!This->nscontainer)
949 do_ns_editor_command(This->nscontainer, NSCMD_COPY);
953 HRESULT editor_exec_cut(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
955 update_doc(This, UPDATE_UI);
957 if(!This->nscontainer)
960 do_ns_editor_command(This->nscontainer, NSCMD_CUT);
964 HRESULT editor_exec_paste(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
966 update_doc(This, UPDATE_UI);
968 if(!This->nscontainer)
971 do_ns_editor_command(This->nscontainer, NSCMD_PASTE);
975 static HRESULT exec_setdirty(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
977 TRACE("(%p)->(%08x %p %p)\n", This, cmdexecopt, in, out);
982 if(V_VT(in) == VT_BOOL)
983 set_dirty(This, V_BOOL(in));
985 FIXME("unsupported vt=%d\n", V_VT(in));
990 static HRESULT query_edit_status(HTMLDocument *This, OLECMD *cmd)
994 TRACE("CGID_MSHTML: IDM_DELETE\n");
995 cmd->cmdf = query_ns_edit_status(This, NULL);
998 TRACE("CGID_MSHTML: IDM_FONTNAME\n");
999 cmd->cmdf = query_ns_edit_status(This, NULL);
1002 TRACE("CGID_MSHTML: IDM_FONTSIZE\n");
1003 cmd->cmdf = query_ns_edit_status(This, NULL);
1006 TRACE("CGID_MSHTML: IDM_BOLD\n");
1007 cmd->cmdf = query_ns_edit_status(This, NSCMD_BOLD);
1010 TRACE("CGID_MSHTML: IDM_FORECOLOR\n");
1011 cmd->cmdf = query_ns_edit_status(This, NULL);
1014 TRACE("CGID_MSHTML: IDM_ITALIC\n");
1015 cmd->cmdf = query_ns_edit_status(This, NSCMD_ITALIC);
1018 TRACE("CGID_MSHTML: IDM_UNDERLINE\n");
1019 cmd->cmdf = query_ns_edit_status(This, NSCMD_UNDERLINE);
1021 case IDM_HORIZONTALLINE:
1022 TRACE("CGID_MSHTML: IDM_HORIZONTALLINE\n");
1023 cmd->cmdf = query_ns_edit_status(This, NULL);
1026 TRACE("CGID_MSHTML: IDM_ORDERLIST\n");
1027 cmd->cmdf = query_ns_edit_status(This, NSCMD_OL);
1029 case IDM_UNORDERLIST:
1030 TRACE("CGID_MSHTML: IDM_HORIZONTALLINE\n");
1031 cmd->cmdf = query_ns_edit_status(This, NSCMD_UL);
1034 TRACE("CGID_MSHTML: IDM_INDENT\n");
1035 cmd->cmdf = query_ns_edit_status(This, NULL);
1038 TRACE("CGID_MSHTML: IDM_OUTDENT\n");
1039 cmd->cmdf = query_ns_edit_status(This, NULL);
1042 TRACE("CGID_MSHTML: IDM_HYPERLINK\n");
1043 cmd->cmdf = query_ns_edit_status(This, NULL);
1050 static INT_PTR CALLBACK hyperlink_dlgproc(HWND hwnd, UINT msg, WPARAM wparam, LPARAM lparam)
1052 static const WCHAR wszOther[] = {'(','o','t','h','e','r',')',0};
1058 static const WCHAR wszFile[] = {'f','i','l','e',':',0};
1059 static const WCHAR wszFtp[] = {'f','t','p',':',0};
1060 static const WCHAR wszHttp[] = {'h','t','t','p',':',0};
1061 static const WCHAR wszHttps[] = {'h','t','t','p','s',':',0};
1062 static const WCHAR wszMailto[] = {'m','a','i','l','t','o',':',0};
1063 static const WCHAR wszNews[] = {'n','e','w','s',':',0};
1065 HWND hwndCB = GetDlgItem(hwnd, IDC_TYPE);
1066 HWND hwndURL = GetDlgItem(hwnd, IDC_URL);
1069 SetWindowLongPtrW(hwnd, DWLP_USER, lparam);
1071 SendMessageW(hwndCB, CB_INSERTSTRING, -1, (LPARAM)wszOther);
1072 SendMessageW(hwndCB, CB_INSERTSTRING, -1, (LPARAM)wszFile);
1073 SendMessageW(hwndCB, CB_INSERTSTRING, -1, (LPARAM)wszFtp);
1074 def_idx = SendMessageW(hwndCB, CB_INSERTSTRING, -1, (LPARAM)wszHttp);
1075 SendMessageW(hwndCB, CB_INSERTSTRING, -1, (LPARAM)wszHttps);
1076 SendMessageW(hwndCB, CB_INSERTSTRING, -1, (LPARAM)wszMailto);
1077 SendMessageW(hwndCB, CB_INSERTSTRING, -1, (LPARAM)wszNews);
1078 SendMessageW(hwndCB, CB_SETCURSEL, def_idx, 0);
1080 /* force the updating of the URL edit box */
1081 SendMessageW(hwnd, WM_COMMAND, MAKEWPARAM(IDC_TYPE, CBN_SELCHANGE), (LPARAM)hwndCB);
1084 len = SendMessageW(hwndURL, WM_GETTEXTLENGTH, 0, 0);
1085 SendMessageW(hwndURL, EM_SETSEL, 0, len);
1092 case MAKEWPARAM(IDCANCEL, BN_CLICKED):
1093 EndDialog(hwnd, wparam);
1095 case MAKEWPARAM(IDOK, BN_CLICKED):
1097 BSTR *url = (BSTR *)GetWindowLongPtrW(hwnd, DWLP_USER);
1098 HWND hwndURL = GetDlgItem(hwnd, IDC_URL);
1099 INT len = GetWindowTextLengthW(hwndURL);
1100 *url = SysAllocStringLen(NULL, len + 1);
1101 GetWindowTextW(hwndURL, *url, len + 1);
1102 EndDialog(hwnd, wparam);
1105 case MAKEWPARAM(IDC_TYPE, CBN_SELCHANGE):
1107 HWND hwndURL = GetDlgItem(hwnd, IDC_URL);
1113 static const WCHAR wszSlashSlash[] = {'/','/'};
1115 /* get string of currently selected hyperlink type */
1116 item = SendMessageW((HWND)lparam, CB_GETCURSEL, 0, 0);
1117 len = SendMessageW((HWND)lparam, CB_GETLBTEXTLEN, item, 0);
1118 type = HeapAlloc(GetProcessHeap(), 0, (len + 1) * sizeof(WCHAR));
1119 SendMessageW((HWND)lparam, CB_GETLBTEXT, item, (LPARAM)type);
1121 if (!strcmpW(type, wszOther))
1124 /* get current URL */
1125 len = GetWindowTextLengthW(hwndURL);
1126 url = HeapAlloc(GetProcessHeap(), 0, (len + strlenW(type) + 3) * sizeof(WCHAR));
1127 GetWindowTextW(hwndURL, url, len + 1);
1129 /* strip off old protocol */
1130 p = strchrW(url, ':');
1131 if (p && p[1] == '/' && p[2] == '/')
1134 memmove(url + (*type != '\0' ? strlenW(type) + 2 : 0), p, (len + 1 - (p - url)) * sizeof(WCHAR));
1136 /* add new protocol */
1139 memcpy(url, type, strlenW(type) * sizeof(WCHAR));
1140 memcpy(url + strlenW(type), wszSlashSlash, sizeof(wszSlashSlash));
1143 SetWindowTextW(hwndURL, url);
1145 HeapFree(GetProcessHeap(), 0, url);
1146 HeapFree(GetProcessHeap(), 0, type);
1152 EndDialog(hwnd, IDCANCEL);
1159 static HRESULT exec_hyperlink(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
1163 nsISelection *nsselection;
1164 nsIDOMDocument *nsdoc;
1166 HRESULT hres = E_FAIL;
1168 TRACE("%p, 0x%x, %p, %p\n", This, cmdexecopt, in, out);
1170 if (cmdexecopt == OLECMDEXECOPT_DONTPROMPTUSER)
1172 if (!in || V_VT(in) != VT_BSTR)
1174 WARN("invalid arg\n");
1175 return E_INVALIDARG;
1181 ret = DialogBoxParamW(hInst, MAKEINTRESOURCEW(IDD_HYPERLINK), NULL /* FIXME */, hyperlink_dlgproc, (LPARAM)&url);
1183 return OLECMDERR_E_CANCELED;
1186 nsselection = get_ns_selection(This);
1190 nsres = nsIWebNavigation_GetDocument(This->nscontainer->navigation, &nsdoc);
1191 if(NS_SUCCEEDED(nsres))
1193 static const WCHAR wszA[] = {'a',0};
1194 static const WCHAR wszHref[] = {'h','r','e','f',0};
1195 nsIHTMLEditor *html_editor;
1196 nsIDOMNode *text_node;
1197 nsIDOMElement *anchor_elem;
1198 nsIDOMNode *unused_node;
1202 PRBool insert_link_at_caret;
1204 nsAString_Init(&a_str, wszA);
1205 nsAString_Init(&href_str, wszHref);
1206 nsAString_Init(&ns_url, url);
1208 /* create an element for the link */
1209 nsIDOMDocument_CreateElement(nsdoc, &a_str, &anchor_elem);
1210 nsIDOMElement_SetAttribute(anchor_elem, &href_str, &ns_url);
1212 nsAString_Finish(&href_str);
1213 nsAString_Finish(&a_str);
1215 nsISelection_GetIsCollapsed(nsselection, &insert_link_at_caret);
1217 /* create an element with text of URL */
1218 if (insert_link_at_caret)
1220 nsIDOMDocument_CreateTextNode(nsdoc, &ns_url, (nsIDOMText **)&text_node);
1222 /* wrap the <a> tags around the text element */
1223 nsIDOMElement_AppendChild(anchor_elem, text_node, &unused_node);
1224 nsIDOMNode_Release(text_node);
1225 nsIDOMNode_Release(unused_node);
1228 nsAString_Finish(&ns_url);
1230 nsIEditor_QueryInterface(This->nscontainer->editor, &IID_nsIHTMLEditor, (void **)&html_editor);
1233 if (insert_link_at_caret)
1235 /* add them to the document at the caret position */
1236 nsres = nsIHTMLEditor_InsertElementAtSelection(html_editor, anchor_elem, FALSE);
1237 nsISelection_SelectAllChildren(nsselection, (nsIDOMNode*)anchor_elem);
1239 else /* add them around the selection using the magic provided to us by nsIHTMLEditor */
1240 nsres = nsIHTMLEditor_InsertLinkAroundSelection(html_editor, anchor_elem);
1241 nsIHTMLEditor_Release(html_editor);
1244 nsIDOMElement_Release(anchor_elem);
1245 nsIDOMDocument_Release(nsdoc);
1247 hres = NS_SUCCEEDED(nsres) ? S_OK : E_FAIL;
1250 nsISelection_Release(nsselection);
1252 if (cmdexecopt != OLECMDEXECOPT_DONTPROMPTUSER)
1255 TRACE("-- 0x%08x\n", nsres);
1259 static HRESULT query_selall_status(HTMLDocument *This, OLECMD *cmd)
1261 TRACE("(%p)->(%p)\n", This, cmd);
1263 cmd->cmdf = OLECMDF_SUPPORTED|OLECMDF_ENABLED;
1267 const cmdtable_t editmode_cmds[] = {
1268 {IDM_DELETE, query_edit_status, exec_delete},
1269 {IDM_FONTNAME, query_edit_status, exec_fontname},
1270 {IDM_FONTSIZE, query_edit_status, exec_fontsize},
1271 {IDM_SELECTALL, query_selall_status , exec_selectall},
1272 {IDM_FORECOLOR, query_edit_status, exec_forecolor},
1273 {IDM_BOLD, query_edit_status, exec_bold},
1274 {IDM_ITALIC, query_edit_status, exec_italic},
1275 {IDM_JUSTIFYCENTER, query_justify, exec_justifycenter},
1276 {IDM_JUSTIFYRIGHT, query_justify, exec_justifyright},
1277 {IDM_JUSTIFYLEFT, query_justify, exec_justifyleft},
1278 {IDM_FONT, NULL, exec_font},
1279 {IDM_UNDERLINE, query_edit_status, exec_underline},
1280 {IDM_HORIZONTALLINE, query_edit_status, exec_horizontalline},
1281 {IDM_ORDERLIST, query_edit_status, exec_orderlist},
1282 {IDM_UNORDERLIST, query_edit_status, exec_unorderlist},
1283 {IDM_INDENT, query_edit_status, exec_indent},
1284 {IDM_OUTDENT, query_edit_status, exec_outdent},
1285 {IDM_COMPOSESETTINGS, NULL, exec_composesettings},
1286 {IDM_HYPERLINK, query_edit_status, exec_hyperlink},
1287 {IDM_SETDIRTY, NULL, exec_setdirty},
1291 void init_editor(HTMLDocument *This)
1293 update_doc(This, UPDATE_UI);
1295 if(!This->nscontainer)
1298 set_ns_fontname(This->nscontainer, "Times New Roman");
1301 HRESULT editor_is_dirty(HTMLDocument *This)
1305 if(!This->nscontainer || !This->nscontainer->editor)
1308 nsIEditor_GetDocumentModified(This->nscontainer->editor, &modified);
1310 return modified ? S_OK : S_FALSE;