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
30 #include "wine/debug.h"
31 #include "wine/unicode.h"
33 #include "mshtml_private.h"
36 WINE_DEFAULT_DEBUG_CHANNEL(mshtml);
38 #define NSCMD_ALIGN "cmd_align"
39 #define NSCMD_BEGINLINE "cmd_beginLine"
40 #define NSCMD_BOLD "cmd_bold"
41 #define NSCMD_CHARNEXT "cmd_charNext"
42 #define NSCMD_CHARPREVIOUS "cmd_charPrevious"
43 #define NSCMD_COPY "cmd_copy"
44 #define NSCMD_CUT "cmd_cut"
45 #define NSCMD_DELETECHARFORWARD "cmd_deleteCharForward"
46 #define NSCMD_DELETEWORDFORWARD "cmd_deleteWordForward"
47 #define NSCMD_ENDLINE "cmd_endLine"
48 #define NSCMD_FONTCOLOR "cmd_fontColor"
49 #define NSCMD_FONTFACE "cmd_fontFace"
50 #define NSCMD_INDENT "cmd_indent"
51 #define NSCMD_INSERTHR "cmd_insertHR"
52 #define NSCMD_INSERTLINKNOUI "cmd_insertLinkNoUI"
53 #define NSCMD_ITALIC "cmd_italic"
54 #define NSCMD_LINENEXT "cmd_lineNext"
55 #define NSCMD_LINEPREVIOUS "cmd_linePrevious"
56 #define NSCMD_MOVEBOTTOM "cmd_moveBottom"
57 #define NSCMD_MOVEPAGEDOWN "cmd_movePageDown"
58 #define NSCMD_MOVEPAGEUP "cmd_movePageUp"
59 #define NSCMD_MOVETOP "cmd_moveTop"
60 #define NSCMD_OL "cmd_ol"
61 #define NSCMD_OUTDENT "cmd_outdent"
62 #define NSCMD_PASTE "cmd_paste"
63 #define NSCMD_SELECTALL "cmd_selectAll"
64 #define NSCMD_SELECTBEGINLINE "cmd_selectBeginLine"
65 #define NSCMD_SELECTBOTTOM "cmd_selectBottom"
66 #define NSCMD_SELECTCHARNEXT "cmd_selectCharNext"
67 #define NSCMD_SELECTCHARPREVIOUS "cmd_selectCharPrevious"
68 #define NSCMD_SELECTENDLINE "cmd_selectEndLine"
69 #define NSCMD_SELECTLINENEXT "cmd_selectLineNext"
70 #define NSCMD_SELECTLINEPREVIOUS "cmd_selectLinePrevious"
71 #define NSCMD_SELECTPAGEDOWN "cmd_selectPageDown"
72 #define NSCMD_SELECTPAGEUP "cmd_selectPageUp"
73 #define NSCMD_SELECTTOP "cmd_selectTop"
74 #define NSCMD_SELECTWORDNEXT "cmd_selectWordNext"
75 #define NSCMD_SELECTWORDPREVIOUS "cmd_selectWordPrevious"
76 #define NSCMD_UL "cmd_ul"
77 #define NSCMD_UNDERLINE "cmd_underline"
78 #define NSCMD_WORDNEXT "cmd_wordNext"
79 #define NSCMD_WORDPREVIOUS "cmd_wordPrevious"
81 #define NSSTATE_ATTRIBUTE "state_attribute"
82 #define NSSTATE_ALL "state_all"
84 #define NSALIGN_CENTER "center"
85 #define NSALIGN_LEFT "left"
86 #define NSALIGN_RIGHT "right"
88 #define DOM_VK_LEFT VK_LEFT
89 #define DOM_VK_UP VK_UP
90 #define DOM_VK_RIGHT VK_RIGHT
91 #define DOM_VK_DOWN VK_DOWN
92 #define DOM_VK_DELETE VK_DELETE
93 #define DOM_VK_HOME VK_HOME
94 #define DOM_VK_END VK_END
96 static const WCHAR wszFont[] = {'f','o','n','t',0};
97 static const WCHAR wszSize[] = {'s','i','z','e',0};
99 void set_dirty(HTMLDocument *This, VARIANT_BOOL dirty)
103 if(This->doc_obj->usermode != EDITMODE || !This->doc_obj->nscontainer || !This->doc_obj->nscontainer->editor)
107 nsres = nsIEditor_IncrementModificationCount(This->doc_obj->nscontainer->editor, 1);
109 ERR("IncrementModificationCount failed: %08x\n", nsres);
111 nsres = nsIEditor_ResetModificationCount(This->doc_obj->nscontainer->editor);
113 ERR("ResetModificationCount failed: %08x\n", nsres);
117 static void do_ns_editor_command(NSContainer *This, const char *cmd)
121 if(!This->editor_controller)
124 nsres = nsIController_DoCommand(This->editor_controller, cmd);
126 ERR("DoCommand(%s) failed: %08x\n", debugstr_a(cmd), nsres);
129 static nsresult get_ns_command_state(NSContainer *This, const char *cmd, nsICommandParams *nsparam)
131 nsICommandManager *cmdmgr;
134 nsres = get_nsinterface((nsISupports*)This->webbrowser, &IID_nsICommandManager, (void**)&cmdmgr);
135 if(NS_FAILED(nsres)) {
136 ERR("Could not get nsICommandManager: %08x\n", nsres);
140 nsres = nsICommandManager_GetCommandState(cmdmgr, cmd, This->doc->basedoc.window->nswindow, nsparam);
142 ERR("GetCommandState(%s) failed: %08x\n", debugstr_a(cmd), nsres);
144 nsICommandManager_Release(cmdmgr);
148 static DWORD query_ns_edit_status(HTMLDocument *This, const char *nscmd)
150 nsICommandParams *nsparam;
153 if(This->doc_obj->usermode != EDITMODE || This->doc_obj->readystate < READYSTATE_INTERACTIVE)
154 return OLECMDF_SUPPORTED;
156 if(This->doc_obj->nscontainer && nscmd) {
157 nsparam = create_nscommand_params();
158 get_ns_command_state(This->doc_obj->nscontainer, nscmd, nsparam);
160 nsICommandParams_GetBooleanValue(nsparam, NSSTATE_ALL, &b);
162 nsICommandParams_Release(nsparam);
165 return OLECMDF_SUPPORTED | OLECMDF_ENABLED | (b ? OLECMDF_LATCHED : 0);
168 static void set_ns_align(HTMLDocument *This, const char *align_str)
170 nsICommandParams *nsparam;
172 if(!This->doc_obj->nscontainer)
175 nsparam = create_nscommand_params();
176 nsICommandParams_SetCStringValue(nsparam, NSSTATE_ATTRIBUTE, align_str);
178 do_ns_command(This, NSCMD_ALIGN, nsparam);
180 nsICommandParams_Release(nsparam);
183 static DWORD query_align_status(HTMLDocument *This, const char *align_str)
185 nsICommandParams *nsparam;
188 if(This->doc_obj->usermode != EDITMODE || This->doc_obj->readystate < READYSTATE_INTERACTIVE)
189 return OLECMDF_SUPPORTED;
191 if(This->doc_obj->nscontainer) {
192 nsparam = create_nscommand_params();
193 get_ns_command_state(This->doc_obj->nscontainer, NSCMD_ALIGN, nsparam);
195 nsICommandParams_GetCStringValue(nsparam, NSSTATE_ATTRIBUTE, &align);
197 nsICommandParams_Release(nsparam);
200 return OLECMDF_SUPPORTED | OLECMDF_ENABLED
201 | (align && !strcmp(align_str, align) ? OLECMDF_LATCHED : 0);
205 static nsISelection *get_ns_selection(HTMLDocument *This)
207 nsISelection *nsselection = NULL;
210 nsres = nsIDOMWindow_GetSelection(This->window->nswindow, &nsselection);
212 ERR("GetSelection failed %08x\n", nsres);
218 static void remove_child_attr(nsIDOMElement *elem, LPCWSTR tag, nsAString *attr_str)
221 PRUint32 child_cnt, i;
222 nsIDOMNode *child_node;
223 nsIDOMNodeList *node_list;
226 nsIDOMElement_HasChildNodes(elem, &has_children);
230 nsIDOMElement_GetChildNodes(elem, &node_list);
231 nsIDOMNodeList_GetLength(node_list, &child_cnt);
233 for(i=0; i<child_cnt; i++) {
234 nsIDOMNodeList_Item(node_list, i, &child_node);
236 nsIDOMNode_GetNodeType(child_node, &node_type);
237 if(node_type == ELEMENT_NODE) {
238 nsIDOMElement *child_elem;
240 const PRUnichar *ctag;
242 nsIDOMNode_QueryInterface(child_node, &IID_nsIDOMElement, (void**)&child_elem);
244 nsAString_Init(&tag_str, NULL);
245 nsIDOMElement_GetTagName(child_elem, &tag_str);
246 nsAString_GetData(&tag_str, &ctag);
248 if(!strcmpiW(ctag, tag))
249 /* FIXME: remove node if there are no more attributes */
250 nsIDOMElement_RemoveAttribute(child_elem, attr_str);
252 nsAString_Finish(&tag_str);
254 remove_child_attr(child_elem, tag, attr_str);
256 nsIDOMNode_Release(child_elem);
259 nsIDOMNode_Release(child_node);
262 nsIDOMNodeList_Release(node_list);
265 static void get_font_size(HTMLDocument *This, WCHAR *ret)
267 nsISelection *nsselection = get_ns_selection(This);
268 nsIDOMElement *elem = NULL;
269 nsIDOMNode *node = NULL, *tmp_node;
280 nsISelection_GetFocusNode(nsselection, &node);
281 nsISelection_Release(nsselection);
284 nsres = nsIDOMNode_GetNodeType(node, &node_type);
285 if(NS_FAILED(nsres) || node_type == DOCUMENT_NODE)
288 if(node_type == ELEMENT_NODE) {
289 nsIDOMNode_QueryInterface(node, &IID_nsIDOMElement, (void**)&elem);
291 nsAString_Init(&tag_str, NULL);
292 nsIDOMElement_GetTagName(elem, &tag_str);
293 nsAString_GetData(&tag_str, &tag);
295 if(!strcmpiW(tag, wszFont)) {
296 nsAString size_str, val_str;
299 TRACE("found font tag %p\n", elem);
301 nsAString_Init(&size_str, wszSize);
302 nsAString_Init(&val_str, NULL);
304 nsIDOMElement_GetAttribute(elem, &size_str, &val_str);
305 nsAString_GetData(&val_str, &val);
308 TRACE("found size %s\n", debugstr_w(val));
312 nsAString_Finish(&size_str);
313 nsAString_Finish(&val_str);
316 nsAString_Finish(&tag_str);
318 nsIDOMElement_Release(elem);
325 nsIDOMNode_GetParentNode(node, &node);
326 nsIDOMNode_Release(tmp_node);
330 nsIDOMNode_Release(node);
333 static void set_font_size(HTMLDocument *This, LPCWSTR size)
335 nsISelection *nsselection;
339 PRInt32 range_cnt = 0;
345 WARN("NULL nsdoc\n");
349 nsselection = get_ns_selection(This);
353 nsISelection_GetRangeCount(nsselection, &range_cnt);
355 FIXME("range_cnt %d not supprted\n", range_cnt);
357 nsISelection_Release(nsselection);
362 nsAString_Init(&font_str, wszFont);
363 nsAString_Init(&size_str, wszSize);
364 nsAString_Init(&val_str, size);
366 nsIDOMDocument_CreateElement(This->nsdoc, &font_str, &elem);
367 nsIDOMElement_SetAttribute(elem, &size_str, &val_str);
369 nsISelection_GetRangeAt(nsselection, 0, &range);
370 nsISelection_GetIsCollapsed(nsselection, &collapsed);
371 nsISelection_RemoveAllRanges(nsselection);
373 nsIDOMRange_SurroundContents(range, (nsIDOMNode*)elem);
376 nsISelection_Collapse(nsselection, (nsIDOMNode*)elem, 0);
378 /* Remove all size attributes from the range */
379 remove_child_attr(elem, wszFont, &size_str);
380 nsISelection_SelectAllChildren(nsselection, (nsIDOMNode*)elem);
383 nsISelection_Release(nsselection);
384 nsIDOMRange_Release(range);
385 nsIDOMElement_Release(elem);
387 nsAString_Finish(&font_str);
388 nsAString_Finish(&size_str);
389 nsAString_Finish(&val_str);
391 set_dirty(This, VARIANT_TRUE);
394 static void handle_arrow_key(HTMLDocument *This, nsIDOMKeyEvent *event, const char * const cmds[4])
399 nsIDOMKeyEvent_GetCtrlKey(event, &b);
403 nsIDOMKeyEvent_GetShiftKey(event, &b);
408 do_ns_editor_command(This->doc_obj->nscontainer, cmds[i]);
410 nsIDOMKeyEvent_PreventDefault(event);
413 void handle_edit_event(HTMLDocument *This, nsIDOMEvent *event)
415 nsIDOMKeyEvent *key_event;
418 nsIDOMEvent_QueryInterface(event, &IID_nsIDOMKeyEvent, (void**)&key_event);
420 nsIDOMKeyEvent_GetKeyCode(key_event, &code);
424 static const char * const cmds[] = {
427 NSCMD_SELECTCHARPREVIOUS,
428 NSCMD_SELECTWORDPREVIOUS
432 handle_arrow_key(This, key_event, cmds);
436 static const char * const cmds[] = {
439 NSCMD_SELECTCHARNEXT,
444 handle_arrow_key(This, key_event, cmds);
448 static const char * const cmds[] = {
451 NSCMD_SELECTLINEPREVIOUS,
456 handle_arrow_key(This, key_event, cmds);
460 static const char * const cmds[] = {
463 NSCMD_SELECTLINENEXT,
468 handle_arrow_key(This, key_event, cmds);
471 case DOM_VK_DELETE: {
472 static const char * const cmds[] = {
473 NSCMD_DELETECHARFORWARD,
474 NSCMD_DELETEWORDFORWARD,
479 handle_arrow_key(This, key_event, cmds);
483 static const char * const cmds[] = {
486 NSCMD_SELECTBEGINLINE,
491 handle_arrow_key(This, key_event, cmds);
495 static const char * const cmds[] = {
503 handle_arrow_key(This, key_event, cmds);
508 nsIDOMKeyEvent_Release(key_event);
511 void handle_edit_load(HTMLDocument *This)
513 This->doc_obj->nscontainer->reset_focus = GetFocus();
514 get_editor_controller(This->doc_obj->nscontainer);
517 static void set_ns_fontname(HTMLDocument *This, const char *fontname)
519 nsICommandParams *nsparam = create_nscommand_params();
521 nsICommandParams_SetCStringValue(nsparam, NSSTATE_ATTRIBUTE, fontname);
522 do_ns_command(This, NSCMD_FONTFACE, nsparam);
523 nsICommandParams_Release(nsparam);
526 static HRESULT exec_delete(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
528 TRACE("(%p)->(%p %p)\n", This, in, out);
530 if(This->doc_obj->nscontainer)
531 do_ns_editor_command(This->doc_obj->nscontainer, NSCMD_DELETECHARFORWARD);
533 update_doc(This, UPDATE_UI);
537 static HRESULT exec_fontname(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
539 TRACE("(%p)->(%p %p)\n", This, in, out);
541 if(!This->doc_obj->nscontainer) {
542 update_doc(This, UPDATE_UI);
549 if(V_VT(in) != VT_BSTR) {
550 FIXME("Unsupported vt=%d\n", V_VT(out));
554 TRACE("%s\n", debugstr_w(V_BSTR(in)));
556 stra = heap_strdupWtoA(V_BSTR(in));
557 set_ns_fontname(This, stra);
560 update_doc(This, UPDATE_UI);
564 nsICommandParams *nsparam;
573 nsparam = create_nscommand_params();
575 nsres = get_ns_command_state(This->doc_obj->nscontainer, NSCMD_FONTFACE, nsparam);
579 nsICommandParams_GetCStringValue(nsparam, NSSTATE_ATTRIBUTE, &stra);
580 nsICommandParams_Release(nsparam);
582 len = MultiByteToWideChar(CP_ACP, 0, stra, -1, NULL, 0);
583 strw = heap_alloc(len*sizeof(WCHAR));
584 MultiByteToWideChar(CP_ACP, 0, stra, -1, strw, len);
587 V_BSTR(out) = SysAllocString(strw);
594 static HRESULT exec_forecolor(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
596 TRACE("(%p)->(%p %p)\n", This, in, out);
599 if(V_VT(in) == VT_I4) {
600 nsICommandParams *nsparam = create_nscommand_params();
603 sprintf(color_str, "#%02x%02x%02x",
604 V_I4(in)&0xff, (V_I4(in)>>8)&0xff, (V_I4(in)>>16)&0xff);
606 nsICommandParams_SetCStringValue(nsparam, NSSTATE_ATTRIBUTE, color_str);
607 do_ns_command(This, NSCMD_FONTCOLOR, nsparam);
609 nsICommandParams_Release(nsparam);
611 FIXME("unsupported in vt=%d\n", V_VT(in));
614 update_doc(This, UPDATE_UI);
618 FIXME("unsupported out\n");
625 static HRESULT exec_fontsize(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
627 TRACE("(%p)->(%p %p)\n", This, in, out);
632 get_font_size(This, val);
634 V_I4(out) = strtolW(val, NULL, 10);
641 static const WCHAR format[] = {'%','d',0};
642 wsprintfW(size, format, V_I4(in));
643 set_font_size(This, size);
647 set_font_size(This, V_BSTR(in));
650 FIXME("unsupported vt %d\n", V_VT(in));
653 update_doc(This, UPDATE_UI);
659 static HRESULT exec_font(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
662 FIXME("(%p)->(%p %p)\n", This, in, out);
666 static HRESULT exec_selectall(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
668 TRACE("(%p)\n", This);
671 FIXME("unsupported args\n");
673 if(This->doc_obj->nscontainer)
674 do_ns_command(This, NSCMD_SELECTALL, NULL);
676 update_doc(This, UPDATE_UI);
680 static HRESULT exec_bold(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
682 TRACE("(%p)\n", This);
685 FIXME("unsupported args\n");
687 if(This->doc_obj->nscontainer)
688 do_ns_command(This, NSCMD_BOLD, NULL);
690 update_doc(This, UPDATE_UI);
694 static HRESULT exec_italic(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
696 TRACE("(%p)\n", This);
699 FIXME("unsupported args\n");
701 if(This->doc_obj->nscontainer)
702 do_ns_command(This, NSCMD_ITALIC, NULL);
704 update_doc(This, UPDATE_UI);
708 static HRESULT query_justify(HTMLDocument *This, OLECMD *cmd)
711 case IDM_JUSTIFYCENTER:
712 TRACE("(%p) IDM_JUSTIFYCENTER\n", This);
713 cmd->cmdf = query_align_status(This, NSALIGN_CENTER);
715 case IDM_JUSTIFYLEFT:
716 TRACE("(%p) IDM_JUSTIFYLEFT\n", This);
717 /* FIXME: We should set OLECMDF_LATCHED only if it's set explicitly. */
718 if(This->doc_obj->usermode != EDITMODE || This->doc_obj->readystate < READYSTATE_INTERACTIVE)
719 cmd->cmdf = OLECMDF_SUPPORTED;
721 cmd->cmdf = OLECMDF_SUPPORTED | OLECMDF_ENABLED;
723 case IDM_JUSTIFYRIGHT:
724 TRACE("(%p) IDM_JUSTIFYRIGHT\n", This);
725 cmd->cmdf = query_align_status(This, NSALIGN_RIGHT);
732 static HRESULT exec_justifycenter(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
734 TRACE("(%p)\n", This);
737 FIXME("unsupported args\n");
739 set_ns_align(This, NSALIGN_CENTER);
740 update_doc(This, UPDATE_UI);
744 static HRESULT exec_justifyleft(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
746 TRACE("(%p)\n", This);
749 FIXME("unsupported args\n");
751 set_ns_align(This, NSALIGN_LEFT);
752 update_doc(This, UPDATE_UI);
756 static HRESULT exec_justifyright(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
758 TRACE("(%p)\n", This);
761 FIXME("unsupported args\n");
763 set_ns_align(This, NSALIGN_RIGHT);
764 update_doc(This, UPDATE_UI);
768 static HRESULT exec_underline(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
770 TRACE("(%p)\n", This);
773 FIXME("unsupported args\n");
775 do_ns_command(This, NSCMD_UNDERLINE, NULL);
776 update_doc(This, UPDATE_UI);
780 static HRESULT exec_horizontalline(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
782 TRACE("(%p)\n", This);
785 FIXME("unsupported args\n");
787 do_ns_command(This, NSCMD_INSERTHR, NULL);
788 update_doc(This, UPDATE_UI);
792 static HRESULT exec_orderlist(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
794 TRACE("(%p)\n", This);
797 FIXME("unsupported args\n");
799 do_ns_command(This, NSCMD_OL, NULL);
800 update_doc(This, UPDATE_UI);
804 static HRESULT exec_unorderlist(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
806 TRACE("(%p)\n", This);
809 FIXME("unsupported args\n");
811 do_ns_command(This, NSCMD_UL, NULL);
812 update_doc(This, UPDATE_UI);
816 static HRESULT exec_indent(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
818 TRACE("(%p)\n", This);
821 FIXME("unsupported args\n");
823 do_ns_command(This, NSCMD_INDENT, NULL);
824 update_doc(This, UPDATE_UI);
828 static HRESULT exec_outdent(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
830 TRACE("(%p)\n", This);
833 FIXME("unsupported args\n");
835 do_ns_command(This, NSCMD_OUTDENT, NULL);
836 update_doc(This, UPDATE_UI);
840 static HRESULT exec_composesettings(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
844 if(out || !in || V_VT(in) != VT_BSTR) {
845 WARN("invalid arg\n");
849 TRACE("(%p)->(%x %s)\n", This, cmdexecopt, debugstr_w(V_BSTR(in)));
851 update_doc(This, UPDATE_UI);
855 exec_bold(This, cmdexecopt, NULL, NULL);
856 ptr = strchrW(ptr, ',');
861 exec_italic(This, cmdexecopt, NULL, NULL);
862 ptr = strchrW(ptr, ',');
867 exec_underline(This, cmdexecopt, NULL, NULL);
868 ptr = strchrW(ptr, ',');
872 if(isdigitW(*++ptr)) {
878 exec_fontsize(This, cmdexecopt, &v, NULL);
880 ptr = strchrW(ptr, ',');
885 FIXME("set font color\n");
886 ptr = strchrW(ptr, ',');
891 FIXME("set background color\n");
892 ptr = strchrW(ptr, ',');
901 V_BSTR(&v) = SysAllocString(ptr);
903 exec_fontname(This, cmdexecopt, &v, NULL);
905 SysFreeString(V_BSTR(&v));
911 HRESULT editor_exec_copy(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
913 update_doc(This, UPDATE_UI);
915 if(!This->doc_obj->nscontainer)
918 do_ns_editor_command(This->doc_obj->nscontainer, NSCMD_COPY);
922 HRESULT editor_exec_cut(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
924 update_doc(This, UPDATE_UI);
926 if(!This->doc_obj->nscontainer)
929 do_ns_editor_command(This->doc_obj->nscontainer, NSCMD_CUT);
933 HRESULT editor_exec_paste(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
935 update_doc(This, UPDATE_UI);
937 if(!This->doc_obj->nscontainer)
940 do_ns_editor_command(This->doc_obj->nscontainer, NSCMD_PASTE);
944 static HRESULT exec_setdirty(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
946 TRACE("(%p)->(%08x %p %p)\n", This, cmdexecopt, in, out);
951 if(V_VT(in) == VT_BOOL)
952 set_dirty(This, V_BOOL(in));
954 FIXME("unsupported vt=%d\n", V_VT(in));
959 static HRESULT query_edit_status(HTMLDocument *This, OLECMD *cmd)
963 TRACE("CGID_MSHTML: IDM_DELETE\n");
964 cmd->cmdf = query_ns_edit_status(This, NULL);
967 TRACE("CGID_MSHTML: IDM_FONTNAME\n");
968 cmd->cmdf = query_ns_edit_status(This, NULL);
971 TRACE("CGID_MSHTML: IDM_FONTSIZE\n");
972 cmd->cmdf = query_ns_edit_status(This, NULL);
975 TRACE("CGID_MSHTML: IDM_BOLD\n");
976 cmd->cmdf = query_ns_edit_status(This, NSCMD_BOLD);
979 TRACE("CGID_MSHTML: IDM_FORECOLOR\n");
980 cmd->cmdf = query_ns_edit_status(This, NULL);
983 TRACE("CGID_MSHTML: IDM_ITALIC\n");
984 cmd->cmdf = query_ns_edit_status(This, NSCMD_ITALIC);
987 TRACE("CGID_MSHTML: IDM_UNDERLINE\n");
988 cmd->cmdf = query_ns_edit_status(This, NSCMD_UNDERLINE);
990 case IDM_HORIZONTALLINE:
991 TRACE("CGID_MSHTML: IDM_HORIZONTALLINE\n");
992 cmd->cmdf = query_ns_edit_status(This, NULL);
995 TRACE("CGID_MSHTML: IDM_ORDERLIST\n");
996 cmd->cmdf = query_ns_edit_status(This, NSCMD_OL);
998 case IDM_UNORDERLIST:
999 TRACE("CGID_MSHTML: IDM_HORIZONTALLINE\n");
1000 cmd->cmdf = query_ns_edit_status(This, NSCMD_UL);
1003 TRACE("CGID_MSHTML: IDM_INDENT\n");
1004 cmd->cmdf = query_ns_edit_status(This, NULL);
1007 TRACE("CGID_MSHTML: IDM_OUTDENT\n");
1008 cmd->cmdf = query_ns_edit_status(This, NULL);
1011 TRACE("CGID_MSHTML: IDM_HYPERLINK\n");
1012 cmd->cmdf = query_ns_edit_status(This, NULL);
1019 static INT_PTR CALLBACK hyperlink_dlgproc(HWND hwnd, UINT msg, WPARAM wparam, LPARAM lparam)
1021 static const WCHAR wszOther[] = {'(','o','t','h','e','r',')',0};
1027 static const WCHAR wszFile[] = {'f','i','l','e',':',0};
1028 static const WCHAR wszFtp[] = {'f','t','p',':',0};
1029 static const WCHAR wszHttp[] = {'h','t','t','p',':',0};
1030 static const WCHAR wszHttps[] = {'h','t','t','p','s',':',0};
1031 static const WCHAR wszMailto[] = {'m','a','i','l','t','o',':',0};
1032 static const WCHAR wszNews[] = {'n','e','w','s',':',0};
1034 HWND hwndCB = GetDlgItem(hwnd, IDC_TYPE);
1035 HWND hwndURL = GetDlgItem(hwnd, IDC_URL);
1038 SetWindowLongPtrW(hwnd, DWLP_USER, lparam);
1040 SendMessageW(hwndCB, CB_INSERTSTRING, -1, (LPARAM)wszOther);
1041 SendMessageW(hwndCB, CB_INSERTSTRING, -1, (LPARAM)wszFile);
1042 SendMessageW(hwndCB, CB_INSERTSTRING, -1, (LPARAM)wszFtp);
1043 def_idx = SendMessageW(hwndCB, CB_INSERTSTRING, -1, (LPARAM)wszHttp);
1044 SendMessageW(hwndCB, CB_INSERTSTRING, -1, (LPARAM)wszHttps);
1045 SendMessageW(hwndCB, CB_INSERTSTRING, -1, (LPARAM)wszMailto);
1046 SendMessageW(hwndCB, CB_INSERTSTRING, -1, (LPARAM)wszNews);
1047 SendMessageW(hwndCB, CB_SETCURSEL, def_idx, 0);
1049 /* force the updating of the URL edit box */
1050 SendMessageW(hwnd, WM_COMMAND, MAKEWPARAM(IDC_TYPE, CBN_SELCHANGE), (LPARAM)hwndCB);
1053 len = SendMessageW(hwndURL, WM_GETTEXTLENGTH, 0, 0);
1054 SendMessageW(hwndURL, EM_SETSEL, 0, len);
1061 case MAKEWPARAM(IDCANCEL, BN_CLICKED):
1062 EndDialog(hwnd, wparam);
1064 case MAKEWPARAM(IDOK, BN_CLICKED):
1066 BSTR *url = (BSTR *)GetWindowLongPtrW(hwnd, DWLP_USER);
1067 HWND hwndURL = GetDlgItem(hwnd, IDC_URL);
1068 INT len = GetWindowTextLengthW(hwndURL);
1069 *url = SysAllocStringLen(NULL, len + 1);
1070 GetWindowTextW(hwndURL, *url, len + 1);
1071 EndDialog(hwnd, wparam);
1074 case MAKEWPARAM(IDC_TYPE, CBN_SELCHANGE):
1076 HWND hwndURL = GetDlgItem(hwnd, IDC_URL);
1082 static const WCHAR wszSlashSlash[] = {'/','/'};
1084 /* get string of currently selected hyperlink type */
1085 item = SendMessageW((HWND)lparam, CB_GETCURSEL, 0, 0);
1086 len = SendMessageW((HWND)lparam, CB_GETLBTEXTLEN, item, 0);
1087 type = HeapAlloc(GetProcessHeap(), 0, (len + 1) * sizeof(WCHAR));
1088 SendMessageW((HWND)lparam, CB_GETLBTEXT, item, (LPARAM)type);
1090 if (!strcmpW(type, wszOther))
1093 /* get current URL */
1094 len = GetWindowTextLengthW(hwndURL);
1095 url = HeapAlloc(GetProcessHeap(), 0, (len + strlenW(type) + 3) * sizeof(WCHAR));
1096 GetWindowTextW(hwndURL, url, len + 1);
1098 /* strip off old protocol */
1099 p = strchrW(url, ':');
1100 if (p && p[1] == '/' && p[2] == '/')
1103 memmove(url + (*type != '\0' ? strlenW(type) + 2 : 0), p, (len + 1 - (p - url)) * sizeof(WCHAR));
1105 /* add new protocol */
1108 memcpy(url, type, strlenW(type) * sizeof(WCHAR));
1109 memcpy(url + strlenW(type), wszSlashSlash, sizeof(wszSlashSlash));
1112 SetWindowTextW(hwndURL, url);
1114 HeapFree(GetProcessHeap(), 0, url);
1115 HeapFree(GetProcessHeap(), 0, type);
1121 EndDialog(hwnd, IDCANCEL);
1128 static HRESULT exec_hyperlink(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
1130 nsAString a_str, href_str, ns_url;
1131 nsIHTMLEditor *html_editor;
1132 nsIDOMElement *anchor_elem;
1133 PRBool insert_link_at_caret;
1134 nsISelection *nsselection;
1137 HRESULT hres = E_FAIL;
1139 static const WCHAR wszA[] = {'a',0};
1140 static const WCHAR wszHref[] = {'h','r','e','f',0};
1142 TRACE("%p, 0x%x, %p, %p\n", This, cmdexecopt, in, out);
1144 if (cmdexecopt == OLECMDEXECOPT_DONTPROMPTUSER)
1146 if (!in || V_VT(in) != VT_BSTR)
1148 WARN("invalid arg\n");
1149 return E_INVALIDARG;
1155 ret = DialogBoxParamW(hInst, MAKEINTRESOURCEW(IDD_HYPERLINK), NULL /* FIXME */, hyperlink_dlgproc, (LPARAM)&url);
1157 return OLECMDERR_E_CANCELED;
1161 WARN("NULL nsdoc\n");
1162 return E_UNEXPECTED;
1165 nsselection = get_ns_selection(This);
1169 nsAString_Init(&a_str, wszA);
1170 nsAString_Init(&href_str, wszHref);
1171 nsAString_Init(&ns_url, url);
1173 /* create an element for the link */
1174 nsIDOMDocument_CreateElement(This->nsdoc, &a_str, &anchor_elem);
1175 nsIDOMElement_SetAttribute(anchor_elem, &href_str, &ns_url);
1177 nsAString_Finish(&href_str);
1178 nsAString_Finish(&a_str);
1180 nsISelection_GetIsCollapsed(nsselection, &insert_link_at_caret);
1182 /* create an element with text of URL */
1183 if (insert_link_at_caret) {
1184 nsIDOMNode *text_node, *unused_node;
1186 nsIDOMDocument_CreateTextNode(This->nsdoc, &ns_url, (nsIDOMText **)&text_node);
1188 /* wrap the <a> tags around the text element */
1189 nsIDOMElement_AppendChild(anchor_elem, text_node, &unused_node);
1190 nsIDOMNode_Release(text_node);
1191 nsIDOMNode_Release(unused_node);
1194 nsAString_Finish(&ns_url);
1196 nsIEditor_QueryInterface(This->doc_obj->nscontainer->editor, &IID_nsIHTMLEditor, (void **)&html_editor);
1200 if (insert_link_at_caret) {
1201 /* add them to the document at the caret position */
1202 nsres = nsIHTMLEditor_InsertElementAtSelection(html_editor, anchor_elem, FALSE);
1203 nsISelection_SelectAllChildren(nsselection, (nsIDOMNode*)anchor_elem);
1204 }else /* add them around the selection using the magic provided to us by nsIHTMLEditor */
1205 nsres = nsIHTMLEditor_InsertLinkAroundSelection(html_editor, anchor_elem);
1207 nsIHTMLEditor_Release(html_editor);
1208 hres = NS_SUCCEEDED(nsres) ? S_OK : E_FAIL;
1211 nsISelection_Release(nsselection);
1212 nsIDOMElement_Release(anchor_elem);
1214 if (cmdexecopt != OLECMDEXECOPT_DONTPROMPTUSER)
1217 TRACE("-- 0x%08x\n", hres);
1221 static HRESULT query_selall_status(HTMLDocument *This, OLECMD *cmd)
1223 TRACE("(%p)->(%p)\n", This, cmd);
1225 cmd->cmdf = OLECMDF_SUPPORTED|OLECMDF_ENABLED;
1229 const cmdtable_t editmode_cmds[] = {
1230 {IDM_DELETE, query_edit_status, exec_delete},
1231 {IDM_FONTNAME, query_edit_status, exec_fontname},
1232 {IDM_FONTSIZE, query_edit_status, exec_fontsize},
1233 {IDM_SELECTALL, query_selall_status , exec_selectall},
1234 {IDM_FORECOLOR, query_edit_status, exec_forecolor},
1235 {IDM_BOLD, query_edit_status, exec_bold},
1236 {IDM_ITALIC, query_edit_status, exec_italic},
1237 {IDM_JUSTIFYCENTER, query_justify, exec_justifycenter},
1238 {IDM_JUSTIFYRIGHT, query_justify, exec_justifyright},
1239 {IDM_JUSTIFYLEFT, query_justify, exec_justifyleft},
1240 {IDM_FONT, NULL, exec_font},
1241 {IDM_UNDERLINE, query_edit_status, exec_underline},
1242 {IDM_HORIZONTALLINE, query_edit_status, exec_horizontalline},
1243 {IDM_ORDERLIST, query_edit_status, exec_orderlist},
1244 {IDM_UNORDERLIST, query_edit_status, exec_unorderlist},
1245 {IDM_INDENT, query_edit_status, exec_indent},
1246 {IDM_OUTDENT, query_edit_status, exec_outdent},
1247 {IDM_COMPOSESETTINGS, NULL, exec_composesettings},
1248 {IDM_HYPERLINK, query_edit_status, exec_hyperlink},
1249 {IDM_SETDIRTY, NULL, exec_setdirty},
1253 void init_editor(HTMLDocument *This)
1255 update_doc(This, UPDATE_UI);
1257 set_ns_fontname(This, "Times New Roman");
1260 HRESULT editor_is_dirty(HTMLDocument *This)
1264 if(!This->doc_obj->nscontainer || !This->doc_obj->nscontainer->editor)
1267 nsIEditor_GetDocumentModified(This->doc_obj->nscontainer->editor, &modified);
1269 return modified ? S_OK : S_FALSE;