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
31 #include "wine/debug.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_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 void set_dirty(GeckoBrowser
*browser
, VARIANT_BOOL dirty
)
99 if(browser
->usermode
!= EDITMODE
|| !browser
->editor
)
103 nsres
= nsIEditor_IncrementModificationCount(browser
->editor
, 1);
105 ERR("IncrementModificationCount failed: %08lx\n", nsres
);
107 nsres
= nsIEditor_ResetModificationCount(browser
->editor
);
109 ERR("ResetModificationCount failed: %08lx\n", nsres
);
113 static void do_ns_editor_command(GeckoBrowser
*This
, const char *cmd
)
117 if(!This
->editor_controller
)
120 nsres
= nsIController_DoCommand(This
->editor_controller
, cmd
);
122 ERR("DoCommand(%s) failed: %08lx\n", debugstr_a(cmd
), nsres
);
125 static nsresult
get_ns_command_state(GeckoBrowser
*This
, const char *cmd
, nsICommandParams
*nsparam
)
127 nsICommandManager
*cmdmgr
;
130 nsres
= get_nsinterface((nsISupports
*)This
->webbrowser
, &IID_nsICommandManager
, (void**)&cmdmgr
);
131 if(NS_FAILED(nsres
)) {
132 ERR("Could not get nsICommandManager: %08lx\n", nsres
);
136 nsres
= nsICommandManager_GetCommandState(cmdmgr
, cmd
, This
->doc
->window
->window_proxy
, nsparam
);
138 ERR("GetCommandState(%s) failed: %08lx\n", debugstr_a(cmd
), nsres
);
140 nsICommandManager_Release(cmdmgr
);
144 static DWORD
query_ns_edit_status(HTMLDocumentNode
*doc
, const char *nscmd
)
146 nsICommandParams
*nsparam
;
149 if(doc
->browser
->usermode
!= EDITMODE
|| doc
->outer_window
->readystate
< READYSTATE_INTERACTIVE
)
150 return OLECMDF_SUPPORTED
;
153 nsparam
= create_nscommand_params();
154 get_ns_command_state(doc
->browser
, nscmd
, nsparam
);
156 nsICommandParams_GetBooleanValue(nsparam
, NSSTATE_ALL
, &b
);
158 nsICommandParams_Release(nsparam
);
161 return OLECMDF_SUPPORTED
| OLECMDF_ENABLED
| (b
? OLECMDF_LATCHED
: 0);
164 static void set_ns_align(HTMLDocumentNode
*doc
, const char *align_str
)
166 nsICommandParams
*nsparam
;
168 nsparam
= create_nscommand_params();
169 nsICommandParams_SetCStringValue(nsparam
, NSSTATE_ATTRIBUTE
, align_str
);
171 do_ns_command(doc
, NSCMD_ALIGN
, nsparam
);
173 nsICommandParams_Release(nsparam
);
176 static DWORD
query_align_status(HTMLDocumentNode
*doc
, const WCHAR
*align
)
178 DWORD ret
= OLECMDF_SUPPORTED
| OLECMDF_ENABLED
;
179 nsAString justify_str
;
183 if(doc
->browser
->usermode
!= EDITMODE
|| doc
->outer_window
->readystate
< READYSTATE_INTERACTIVE
)
184 return OLECMDF_SUPPORTED
;
186 if(!doc
->html_document
) {
187 FIXME("Not implemented for XML document\n");
191 nsAString_Init(&justify_str
, align
);
192 nsres
= nsIDOMHTMLDocument_QueryCommandState(doc
->html_document
, &justify_str
, &b
);
193 nsAString_Finish(&justify_str
);
194 if(NS_SUCCEEDED(nsres
) && b
)
195 ret
|= OLECMDF_LATCHED
;
201 static nsISelection
*get_ns_selection(HTMLDocumentNode
*doc
)
203 nsISelection
*nsselection
= NULL
;
206 nsres
= nsIDOMWindow_GetSelection(doc
->outer_window
->nswindow
, &nsselection
);
208 ERR("GetSelection failed %08lx\n", nsres
);
214 static void remove_child_attr(nsIDOMElement
*elem
, LPCWSTR tag
, nsAString
*attr_str
)
216 cpp_bool has_children
;
218 nsIDOMNode
*child_node
;
219 nsIDOMNodeList
*node_list
;
222 nsIDOMElement_HasChildNodes(elem
, &has_children
);
226 nsIDOMElement_GetChildNodes(elem
, &node_list
);
227 nsIDOMNodeList_GetLength(node_list
, &child_cnt
);
229 for(i
=0; i
<child_cnt
; i
++) {
230 nsIDOMNodeList_Item(node_list
, i
, &child_node
);
232 nsIDOMNode_GetNodeType(child_node
, &node_type
);
233 if(node_type
== ELEMENT_NODE
) {
234 nsIDOMElement
*child_elem
;
236 const PRUnichar
*ctag
;
238 nsIDOMNode_QueryInterface(child_node
, &IID_nsIDOMElement
, (void**)&child_elem
);
240 nsAString_Init(&tag_str
, NULL
);
241 nsIDOMElement_GetTagName(child_elem
, &tag_str
);
242 nsAString_GetData(&tag_str
, &ctag
);
244 if(!wcsicmp(ctag
, tag
))
245 /* FIXME: remove node if there are no more attributes */
246 nsIDOMElement_RemoveAttribute(child_elem
, attr_str
);
248 nsAString_Finish(&tag_str
);
250 remove_child_attr(child_elem
, tag
, attr_str
);
252 nsIDOMElement_Release(child_elem
);
255 nsIDOMNode_Release(child_node
);
258 nsIDOMNodeList_Release(node_list
);
261 static void get_font_size(HTMLDocumentNode
*doc
, WCHAR
*ret
)
263 nsISelection
*nsselection
= get_ns_selection(doc
);
264 nsIDOMElement
*elem
= NULL
;
265 nsIDOMNode
*node
= NULL
, *tmp_node
;
276 nsISelection_GetFocusNode(nsselection
, &node
);
277 nsISelection_Release(nsselection
);
280 nsres
= nsIDOMNode_GetNodeType(node
, &node_type
);
281 if(NS_FAILED(nsres
) || node_type
== DOCUMENT_NODE
)
284 if(node_type
== ELEMENT_NODE
) {
285 nsIDOMNode_QueryInterface(node
, &IID_nsIDOMElement
, (void**)&elem
);
287 nsAString_Init(&tag_str
, NULL
);
288 nsIDOMElement_GetTagName(elem
, &tag_str
);
289 nsAString_GetData(&tag_str
, &tag
);
291 if(!wcsicmp(tag
, L
"font")) {
293 const PRUnichar
*val
;
295 TRACE("found font tag %p\n", elem
);
297 get_elem_attr_value(elem
, L
"size", &val_str
, &val
);
299 TRACE("found size %s\n", debugstr_w(val
));
303 nsAString_Finish(&val_str
);
306 nsAString_Finish(&tag_str
);
307 nsIDOMElement_Release(elem
);
314 nsIDOMNode_GetParentNode(node
, &node
);
315 nsIDOMNode_Release(tmp_node
);
319 nsIDOMNode_Release(node
);
322 static void set_font_size(HTMLDocumentNode
*doc
, LPCWSTR size
)
324 nsISelection
*nsselection
;
332 nsselection
= get_ns_selection(doc
);
336 nsISelection_GetRangeCount(nsselection
, &range_cnt
);
338 FIXME("range_cnt %ld not supprted\n", range_cnt
);
340 nsISelection_Release(nsselection
);
345 create_nselem(doc
, L
"font", &elem
);
347 nsAString_InitDepend(&size_str
, L
"size");
348 nsAString_InitDepend(&val_str
, size
);
350 nsIDOMElement_SetAttribute(elem
, &size_str
, &val_str
);
351 nsAString_Finish(&val_str
);
353 nsISelection_GetRangeAt(nsselection
, 0, &range
);
354 nsISelection_GetIsCollapsed(nsselection
, &collapsed
);
355 nsISelection_RemoveAllRanges(nsselection
);
357 nsIDOMRange_SurroundContents(range
, (nsIDOMNode
*)elem
);
360 nsISelection_Collapse(nsselection
, (nsIDOMNode
*)elem
, 0);
362 /* Remove all size attributes from the range */
363 remove_child_attr(elem
, L
"font", &size_str
);
364 nsISelection_SelectAllChildren(nsselection
, (nsIDOMNode
*)elem
);
367 nsISelection_Release(nsselection
);
368 nsIDOMRange_Release(range
);
369 nsIDOMElement_Release(elem
);
371 nsAString_Finish(&size_str
);
373 set_dirty(doc
->browser
, VARIANT_TRUE
);
376 static void handle_arrow_key(HTMLDocumentNode
*doc
, nsIDOMEvent
*event
, nsIDOMKeyEvent
*key_event
, const char * const cmds
[4])
381 nsIDOMKeyEvent_GetCtrlKey(key_event
, &b
);
385 nsIDOMKeyEvent_GetShiftKey(key_event
, &b
);
390 do_ns_editor_command(doc
->browser
, cmds
[i
]);
392 nsIDOMEvent_PreventDefault(event
);
395 void handle_edit_event(HTMLDocumentNode
*doc
, nsIDOMEvent
*event
)
397 nsIDOMKeyEvent
*key_event
;
400 nsIDOMEvent_QueryInterface(event
, &IID_nsIDOMKeyEvent
, (void**)&key_event
);
402 nsIDOMKeyEvent_GetKeyCode(key_event
, &code
);
406 static const char * const cmds
[] = {
409 NSCMD_SELECTCHARPREVIOUS
,
410 NSCMD_SELECTWORDPREVIOUS
414 handle_arrow_key(doc
, event
, key_event
, cmds
);
418 static const char * const cmds
[] = {
421 NSCMD_SELECTCHARNEXT
,
426 handle_arrow_key(doc
, event
, key_event
, cmds
);
430 static const char * const cmds
[] = {
433 NSCMD_SELECTLINEPREVIOUS
,
438 handle_arrow_key(doc
, event
, key_event
, cmds
);
442 static const char * const cmds
[] = {
445 NSCMD_SELECTLINENEXT
,
450 handle_arrow_key(doc
, event
, key_event
, cmds
);
453 case DOM_VK_DELETE
: {
454 static const char * const cmds
[] = {
455 NSCMD_DELETECHARFORWARD
,
456 NSCMD_DELETEWORDFORWARD
,
461 handle_arrow_key(doc
, event
, key_event
, cmds
);
465 static const char * const cmds
[] = {
468 NSCMD_SELECTBEGINLINE
,
473 handle_arrow_key(doc
, event
, key_event
, cmds
);
477 static const char * const cmds
[] = {
485 handle_arrow_key(doc
, event
, key_event
, cmds
);
490 nsIDOMKeyEvent_Release(key_event
);
493 static void set_ns_fontname(HTMLDocumentNode
*doc
, const char *fontname
)
495 nsICommandParams
*nsparam
= create_nscommand_params();
497 nsICommandParams_SetCStringValue(nsparam
, NSSTATE_ATTRIBUTE
, fontname
);
498 do_ns_command(doc
, NSCMD_FONTFACE
, nsparam
);
499 nsICommandParams_Release(nsparam
);
502 static HRESULT
exec_delete(HTMLDocumentNode
*doc
, DWORD cmdexecopt
, VARIANT
*in
, VARIANT
*out
)
504 TRACE("(%p)->(%p %p)\n", doc
, in
, out
);
506 do_ns_editor_command(doc
->browser
, NSCMD_DELETECHARFORWARD
);
508 update_doc(doc
->browser
->doc
, UPDATE_UI
);
512 static HRESULT
exec_fontname(HTMLDocumentNode
*doc
, DWORD cmdexecopt
, VARIANT
*in
, VARIANT
*out
)
514 TRACE("(%p)->(%p %p)\n", doc
, in
, out
);
519 if(V_VT(in
) != VT_BSTR
) {
520 FIXME("Unsupported fontname %s\n", debugstr_variant(out
));
524 TRACE("%s\n", debugstr_w(V_BSTR(in
)));
526 stra
= strdupWtoA(V_BSTR(in
));
527 set_ns_fontname(doc
, stra
);
530 update_doc(doc
->browser
->doc
, UPDATE_UI
);
534 nsICommandParams
*nsparam
;
543 nsparam
= create_nscommand_params();
545 nsres
= get_ns_command_state(doc
->browser
, NSCMD_FONTFACE
, nsparam
);
549 nsICommandParams_GetCStringValue(nsparam
, NSSTATE_ATTRIBUTE
, &stra
);
550 nsICommandParams_Release(nsparam
);
552 len
= MultiByteToWideChar(CP_ACP
, 0, stra
, -1, NULL
, 0);
553 strw
= malloc(len
* sizeof(WCHAR
));
554 MultiByteToWideChar(CP_ACP
, 0, stra
, -1, strw
, len
);
557 V_BSTR(out
) = SysAllocString(strw
);
564 static HRESULT
exec_forecolor(HTMLDocumentNode
*doc
, DWORD cmdexecopt
, VARIANT
*in
, VARIANT
*out
)
566 TRACE("(%p)->(%p %p)\n", doc
, in
, out
);
569 if(V_VT(in
) == VT_I4
) {
570 nsICommandParams
*nsparam
= create_nscommand_params();
573 sprintf(color_str
, "#%02lx%02lx%02lx",
574 V_I4(in
)&0xff, (V_I4(in
)>>8)&0xff, (V_I4(in
)>>16)&0xff);
576 nsICommandParams_SetCStringValue(nsparam
, NSSTATE_ATTRIBUTE
, color_str
);
577 do_ns_command(doc
, NSCMD_FONTCOLOR
, nsparam
);
579 nsICommandParams_Release(nsparam
);
581 FIXME("unsupported forecolor %s\n", debugstr_variant(in
));
584 update_doc(doc
->browser
->doc
, UPDATE_UI
);
588 FIXME("unsupported out\n");
595 static HRESULT
exec_fontsize(HTMLDocumentNode
*doc
, DWORD cmdexecopt
, VARIANT
*in
, VARIANT
*out
)
597 TRACE("(%p)->(%p %p)\n", doc
, in
, out
);
602 get_font_size(doc
, val
);
604 V_I4(out
) = wcstol(val
, NULL
, 10);
611 wsprintfW(size
, L
"%d", V_I4(in
));
612 set_font_size(doc
, size
);
616 set_font_size(doc
, V_BSTR(in
));
619 FIXME("unsupported fontsize %s\n", debugstr_variant(in
));
622 update_doc(doc
->browser
->doc
, UPDATE_UI
);
628 static HRESULT
exec_font(HTMLDocumentNode
*doc
, DWORD cmdexecopt
, VARIANT
*in
, VARIANT
*out
)
631 FIXME("(%p)->(%p %p)\n", doc
, in
, out
);
635 static HRESULT
exec_bold(HTMLDocumentNode
*doc
, DWORD cmdexecopt
, VARIANT
*in
, VARIANT
*out
)
637 TRACE("(%p)\n", doc
);
640 FIXME("unsupported args\n");
642 do_ns_command(doc
, NSCMD_BOLD
, NULL
);
643 update_doc(doc
->browser
->doc
, UPDATE_UI
);
647 static HRESULT
exec_italic(HTMLDocumentNode
*doc
, DWORD cmdexecopt
, VARIANT
*in
, VARIANT
*out
)
649 TRACE("(%p)\n", doc
);
652 FIXME("unsupported args\n");
654 do_ns_command(doc
, NSCMD_ITALIC
, NULL
);
655 update_doc(doc
->browser
->doc
, UPDATE_UI
);
659 static HRESULT
query_justify(HTMLDocumentNode
*doc
, OLECMD
*cmd
)
662 case IDM_JUSTIFYCENTER
:
663 TRACE("(%p) IDM_JUSTIFYCENTER\n", doc
);
664 cmd
->cmdf
= query_align_status(doc
, L
"justifycenter");
666 case IDM_JUSTIFYLEFT
:
667 TRACE("(%p) IDM_JUSTIFYLEFT\n", doc
);
668 /* FIXME: We should set OLECMDF_LATCHED only if it's set explicitly. */
669 if(doc
->browser
->usermode
!= EDITMODE
|| doc
->outer_window
->readystate
< READYSTATE_INTERACTIVE
)
670 cmd
->cmdf
= OLECMDF_SUPPORTED
;
672 cmd
->cmdf
= OLECMDF_SUPPORTED
| OLECMDF_ENABLED
;
674 case IDM_JUSTIFYRIGHT
:
675 TRACE("(%p) IDM_JUSTIFYRIGHT\n", doc
);
676 cmd
->cmdf
= query_align_status(doc
, L
"justifyright");
683 static HRESULT
exec_justifycenter(HTMLDocumentNode
*doc
, DWORD cmdexecopt
, VARIANT
*in
, VARIANT
*out
)
685 TRACE("(%p)\n", doc
);
688 FIXME("unsupported args\n");
690 set_ns_align(doc
, NSALIGN_CENTER
);
691 update_doc(doc
->browser
->doc
, UPDATE_UI
);
695 static HRESULT
exec_justifyleft(HTMLDocumentNode
*doc
, DWORD cmdexecopt
, VARIANT
*in
, VARIANT
*out
)
697 TRACE("(%p)\n", doc
);
700 FIXME("unsupported args\n");
702 set_ns_align(doc
, NSALIGN_LEFT
);
703 update_doc(doc
->browser
->doc
, UPDATE_UI
);
707 static HRESULT
exec_justifyright(HTMLDocumentNode
*doc
, DWORD cmdexecopt
, VARIANT
*in
, VARIANT
*out
)
709 TRACE("(%p)\n", doc
);
712 FIXME("unsupported args\n");
714 set_ns_align(doc
, NSALIGN_RIGHT
);
715 update_doc(doc
->browser
->doc
, UPDATE_UI
);
719 static HRESULT
exec_underline(HTMLDocumentNode
*doc
, DWORD cmdexecopt
, VARIANT
*in
, VARIANT
*out
)
721 TRACE("(%p)\n", doc
);
724 FIXME("unsupported args\n");
726 do_ns_command(doc
, NSCMD_UNDERLINE
, NULL
);
727 update_doc(doc
->browser
->doc
, UPDATE_UI
);
731 static HRESULT
exec_horizontalline(HTMLDocumentNode
*doc
, DWORD cmdexecopt
, VARIANT
*in
, VARIANT
*out
)
733 TRACE("(%p)\n", doc
);
736 FIXME("unsupported args\n");
738 do_ns_command(doc
, NSCMD_INSERTHR
, NULL
);
739 update_doc(doc
->browser
->doc
, UPDATE_UI
);
743 static HRESULT
exec_orderlist(HTMLDocumentNode
*doc
, DWORD cmdexecopt
, VARIANT
*in
, VARIANT
*out
)
745 TRACE("(%p)\n", doc
);
748 FIXME("unsupported args\n");
750 do_ns_command(doc
, NSCMD_OL
, NULL
);
751 update_doc(doc
->browser
->doc
, UPDATE_UI
);
755 static HRESULT
exec_unorderlist(HTMLDocumentNode
*doc
, DWORD cmdexecopt
, VARIANT
*in
, VARIANT
*out
)
757 TRACE("(%p)\n", doc
);
760 FIXME("unsupported args\n");
762 do_ns_command(doc
, NSCMD_UL
, NULL
);
763 update_doc(doc
->browser
->doc
, UPDATE_UI
);
767 static HRESULT
exec_indent(HTMLDocumentNode
*doc
, DWORD cmdexecopt
, VARIANT
*in
, VARIANT
*out
)
769 TRACE("(%p)\n", doc
);
772 FIXME("unsupported args\n");
774 do_ns_command(doc
, NSCMD_INDENT
, NULL
);
775 update_doc(doc
->browser
->doc
, UPDATE_UI
);
779 static HRESULT
exec_outdent(HTMLDocumentNode
*doc
, DWORD cmdexecopt
, VARIANT
*in
, VARIANT
*out
)
781 TRACE("(%p)\n", doc
);
784 FIXME("unsupported args\n");
786 do_ns_command(doc
, NSCMD_OUTDENT
, NULL
);
787 update_doc(doc
->browser
->doc
, UPDATE_UI
);
791 static HRESULT
exec_composesettings(HTMLDocumentNode
*doc
, DWORD cmdexecopt
, VARIANT
*in
, VARIANT
*out
)
795 if(out
|| !in
|| V_VT(in
) != VT_BSTR
) {
796 WARN("invalid arg %s\n", debugstr_variant(in
));
800 TRACE("(%p)->(%lx %s)\n", doc
, cmdexecopt
, debugstr_w(V_BSTR(in
)));
802 update_doc(doc
->browser
->doc
, UPDATE_UI
);
806 exec_bold(doc
, cmdexecopt
, NULL
, NULL
);
807 ptr
= wcschr(ptr
, ',');
812 exec_italic(doc
, cmdexecopt
, NULL
, NULL
);
813 ptr
= wcschr(ptr
, ',');
818 exec_underline(doc
, cmdexecopt
, NULL
, NULL
);
819 ptr
= wcschr(ptr
, ',');
823 if(is_digit(*++ptr
)) {
829 exec_fontsize(doc
, cmdexecopt
, &v
, NULL
);
831 ptr
= wcschr(ptr
, ',');
836 FIXME("set font color\n");
837 ptr
= wcschr(ptr
, ',');
842 FIXME("set background color\n");
843 ptr
= wcschr(ptr
, ',');
852 V_BSTR(&v
) = SysAllocString(ptr
);
854 exec_fontname(doc
, cmdexecopt
, &v
, NULL
);
856 SysFreeString(V_BSTR(&v
));
862 HRESULT
editor_exec_copy(HTMLDocumentNode
*doc
, DWORD cmdexecopt
, VARIANT
*in
, VARIANT
*out
)
864 update_doc(doc
->browser
->doc
, UPDATE_UI
);
865 do_ns_editor_command(doc
->browser
, NSCMD_COPY
);
869 HRESULT
editor_exec_cut(HTMLDocumentNode
*doc
, DWORD cmdexecopt
, VARIANT
*in
, VARIANT
*out
)
871 update_doc(doc
->browser
->doc
, UPDATE_UI
);
872 do_ns_editor_command(doc
->browser
, NSCMD_CUT
);
876 HRESULT
editor_exec_paste(HTMLDocumentNode
*doc
, DWORD cmdexecopt
, VARIANT
*in
, VARIANT
*out
)
878 update_doc(doc
->browser
->doc
, UPDATE_UI
);
879 do_ns_editor_command(doc
->browser
, NSCMD_PASTE
);
883 static HRESULT
exec_setdirty(HTMLDocumentNode
*doc
, DWORD cmdexecopt
, VARIANT
*in
, VARIANT
*out
)
885 TRACE("(%p)->(%08lx %p %p)\n", doc
, cmdexecopt
, in
, out
);
890 if(V_VT(in
) == VT_BOOL
)
891 set_dirty(doc
->browser
, V_BOOL(in
));
893 FIXME("unsupported arg %s\n", debugstr_variant(in
));
898 static HRESULT
query_edit_status(HTMLDocumentNode
*doc
, OLECMD
*cmd
)
902 TRACE("CGID_MSHTML: IDM_DELETE\n");
903 cmd
->cmdf
= query_ns_edit_status(doc
, NULL
);
906 TRACE("CGID_MSHTML: IDM_FONTNAME\n");
907 cmd
->cmdf
= query_ns_edit_status(doc
, NULL
);
910 TRACE("CGID_MSHTML: IDM_FONTSIZE\n");
911 cmd
->cmdf
= query_ns_edit_status(doc
, NULL
);
914 TRACE("CGID_MSHTML: IDM_BOLD\n");
915 cmd
->cmdf
= query_ns_edit_status(doc
, NSCMD_BOLD
);
918 TRACE("CGID_MSHTML: IDM_FORECOLOR\n");
919 cmd
->cmdf
= query_ns_edit_status(doc
, NULL
);
922 TRACE("CGID_MSHTML: IDM_ITALIC\n");
923 cmd
->cmdf
= query_ns_edit_status(doc
, NSCMD_ITALIC
);
926 TRACE("CGID_MSHTML: IDM_UNDERLINE\n");
927 cmd
->cmdf
= query_ns_edit_status(doc
, NSCMD_UNDERLINE
);
929 case IDM_HORIZONTALLINE
:
930 TRACE("CGID_MSHTML: IDM_HORIZONTALLINE\n");
931 cmd
->cmdf
= query_ns_edit_status(doc
, NULL
);
934 TRACE("CGID_MSHTML: IDM_ORDERLIST\n");
935 cmd
->cmdf
= query_ns_edit_status(doc
, NSCMD_OL
);
937 case IDM_UNORDERLIST
:
938 TRACE("CGID_MSHTML: IDM_HORIZONTALLINE\n");
939 cmd
->cmdf
= query_ns_edit_status(doc
, NSCMD_UL
);
942 TRACE("CGID_MSHTML: IDM_INDENT\n");
943 cmd
->cmdf
= query_ns_edit_status(doc
, NULL
);
946 TRACE("CGID_MSHTML: IDM_OUTDENT\n");
947 cmd
->cmdf
= query_ns_edit_status(doc
, NULL
);
950 TRACE("CGID_MSHTML: IDM_HYPERLINK\n");
951 cmd
->cmdf
= query_ns_edit_status(doc
, NULL
);
958 static INT_PTR CALLBACK
hyperlink_dlgproc(HWND hwnd
, UINT msg
, WPARAM wparam
, LPARAM lparam
)
965 HWND hwndCB
= GetDlgItem(hwnd
, IDC_TYPE
);
966 HWND hwndURL
= GetDlgItem(hwnd
, IDC_URL
);
969 SetWindowLongPtrW(hwnd
, DWLP_USER
, lparam
);
971 SendMessageW(hwndCB
, CB_INSERTSTRING
, -1, (LPARAM
)L
"(other)");
972 SendMessageW(hwndCB
, CB_INSERTSTRING
, -1, (LPARAM
)L
"file:");
973 SendMessageW(hwndCB
, CB_INSERTSTRING
, -1, (LPARAM
)L
"ftp:");
974 def_idx
= SendMessageW(hwndCB
, CB_INSERTSTRING
, -1, (LPARAM
)L
"http:");
975 SendMessageW(hwndCB
, CB_INSERTSTRING
, -1, (LPARAM
)L
"https:");
976 SendMessageW(hwndCB
, CB_INSERTSTRING
, -1, (LPARAM
)L
"mailto:");
977 SendMessageW(hwndCB
, CB_INSERTSTRING
, -1, (LPARAM
)L
"news:");
978 SendMessageW(hwndCB
, CB_SETCURSEL
, def_idx
, 0);
980 /* force the updating of the URL edit box */
981 SendMessageW(hwnd
, WM_COMMAND
, MAKEWPARAM(IDC_TYPE
, CBN_SELCHANGE
), (LPARAM
)hwndCB
);
984 len
= SendMessageW(hwndURL
, WM_GETTEXTLENGTH
, 0, 0);
985 SendMessageW(hwndURL
, EM_SETSEL
, 0, len
);
992 case MAKEWPARAM(IDCANCEL
, BN_CLICKED
):
993 EndDialog(hwnd
, wparam
);
995 case MAKEWPARAM(IDOK
, BN_CLICKED
):
997 BSTR
*url
= (BSTR
*)GetWindowLongPtrW(hwnd
, DWLP_USER
);
998 HWND hwndURL
= GetDlgItem(hwnd
, IDC_URL
);
999 INT len
= GetWindowTextLengthW(hwndURL
);
1000 *url
= SysAllocStringLen(NULL
, len
+ 1);
1001 GetWindowTextW(hwndURL
, *url
, len
+ 1);
1002 EndDialog(hwnd
, wparam
);
1005 case MAKEWPARAM(IDC_TYPE
, CBN_SELCHANGE
):
1007 HWND hwndURL
= GetDlgItem(hwnd
, IDC_URL
);
1013 static const WCHAR wszSlashSlash
[] = {'/','/'};
1015 /* get string of currently selected hyperlink type */
1016 item
= SendMessageW((HWND
)lparam
, CB_GETCURSEL
, 0, 0);
1017 len
= SendMessageW((HWND
)lparam
, CB_GETLBTEXTLEN
, item
, 0);
1018 type
= malloc((len
+ 1) * sizeof(WCHAR
));
1019 SendMessageW((HWND
)lparam
, CB_GETLBTEXT
, item
, (LPARAM
)type
);
1021 if (!wcscmp(type
, L
"(other)"))
1024 /* get current URL */
1025 len
= GetWindowTextLengthW(hwndURL
);
1026 url
= malloc((len
+ lstrlenW(type
) + 3) * sizeof(WCHAR
));
1027 GetWindowTextW(hwndURL
, url
, len
+ 1);
1029 /* strip off old protocol */
1030 p
= wcschr(url
, ':');
1031 if (p
&& p
[1] == '/' && p
[2] == '/')
1034 memmove(url
+ (*type
!= '\0' ? lstrlenW(type
) + 2 : 0), p
, (len
+ 1 - (p
- url
)) * sizeof(WCHAR
));
1036 /* add new protocol */
1039 memcpy(url
, type
, (lstrlenW(type
) + 1) * sizeof(WCHAR
));
1040 if (wcscmp(type
, L
"mailto:") && wcscmp(type
, L
"news:"))
1041 memcpy(url
+ lstrlenW(type
), wszSlashSlash
, sizeof(wszSlashSlash
));
1044 SetWindowTextW(hwndURL
, url
);
1053 EndDialog(hwnd
, IDCANCEL
);
1060 static HRESULT
exec_hyperlink(HTMLDocumentNode
*doc
, DWORD cmdexecopt
, VARIANT
*in
, VARIANT
*out
)
1062 nsAString href_str
, ns_url
;
1063 nsIHTMLEditor
*html_editor
;
1064 nsIDOMElement
*anchor_elem
;
1065 cpp_bool insert_link_at_caret
;
1066 nsISelection
*nsselection
;
1069 HRESULT hres
= E_FAIL
;
1071 TRACE("%p, 0x%lx, %p, %p\n", doc
, cmdexecopt
, in
, out
);
1073 if (cmdexecopt
== OLECMDEXECOPT_DONTPROMPTUSER
)
1075 if (!in
|| V_VT(in
) != VT_BSTR
)
1077 WARN("invalid arg\n");
1078 return E_INVALIDARG
;
1084 ret
= DialogBoxParamW(hInst
, MAKEINTRESOURCEW(IDD_HYPERLINK
), NULL
/* FIXME */, hyperlink_dlgproc
, (LPARAM
)&url
);
1086 return OLECMDERR_E_CANCELED
;
1089 if(!doc
->dom_document
) {
1090 WARN("NULL dom_document\n");
1091 return E_UNEXPECTED
;
1094 nsselection
= get_ns_selection(doc
);
1098 /* create an element for the link */
1099 create_nselem(doc
, L
"a", &anchor_elem
);
1101 nsAString_InitDepend(&href_str
, L
"href");
1102 nsAString_InitDepend(&ns_url
, url
);
1103 nsIDOMElement_SetAttribute(anchor_elem
, &href_str
, &ns_url
);
1104 nsAString_Finish(&href_str
);
1106 nsISelection_GetIsCollapsed(nsselection
, &insert_link_at_caret
);
1108 /* create an element with text of URL */
1109 if (insert_link_at_caret
) {
1110 nsIDOMNode
*unused_node
;
1111 nsIDOMText
*text_node
;
1113 nsIDOMDocument_CreateTextNode(doc
->dom_document
, &ns_url
, &text_node
);
1115 /* wrap the <a> tags around the text element */
1116 nsIDOMElement_AppendChild(anchor_elem
, (nsIDOMNode
*)text_node
, &unused_node
);
1117 nsIDOMText_Release(text_node
);
1118 nsIDOMNode_Release(unused_node
);
1121 nsAString_Finish(&ns_url
);
1123 nsIEditor_QueryInterface(doc
->browser
->editor
, &IID_nsIHTMLEditor
, (void **)&html_editor
);
1127 if (insert_link_at_caret
) {
1128 /* add them to the document at the caret position */
1129 nsres
= nsIHTMLEditor_InsertElementAtSelection(html_editor
, anchor_elem
, FALSE
);
1130 nsISelection_SelectAllChildren(nsselection
, (nsIDOMNode
*)anchor_elem
);
1131 }else /* add them around the selection using the magic provided to us by nsIHTMLEditor */
1132 nsres
= nsIHTMLEditor_InsertLinkAroundSelection(html_editor
, anchor_elem
);
1134 nsIHTMLEditor_Release(html_editor
);
1135 hres
= NS_SUCCEEDED(nsres
) ? S_OK
: E_FAIL
;
1138 nsISelection_Release(nsselection
);
1139 nsIDOMElement_Release(anchor_elem
);
1141 if (cmdexecopt
!= OLECMDEXECOPT_DONTPROMPTUSER
)
1144 TRACE("-- 0x%08lx\n", hres
);
1148 const cmdtable_t editmode_cmds
[] = {
1149 {IDM_DELETE
, query_edit_status
, exec_delete
},
1150 {IDM_FONTNAME
, query_edit_status
, exec_fontname
},
1151 {IDM_FONTSIZE
, query_edit_status
, exec_fontsize
},
1152 {IDM_FORECOLOR
, query_edit_status
, exec_forecolor
},
1153 {IDM_BOLD
, query_edit_status
, exec_bold
},
1154 {IDM_ITALIC
, query_edit_status
, exec_italic
},
1155 {IDM_JUSTIFYCENTER
, query_justify
, exec_justifycenter
},
1156 {IDM_JUSTIFYRIGHT
, query_justify
, exec_justifyright
},
1157 {IDM_JUSTIFYLEFT
, query_justify
, exec_justifyleft
},
1158 {IDM_FONT
, NULL
, exec_font
},
1159 {IDM_UNDERLINE
, query_edit_status
, exec_underline
},
1160 {IDM_HORIZONTALLINE
, query_edit_status
, exec_horizontalline
},
1161 {IDM_ORDERLIST
, query_edit_status
, exec_orderlist
},
1162 {IDM_UNORDERLIST
, query_edit_status
, exec_unorderlist
},
1163 {IDM_INDENT
, query_edit_status
, exec_indent
},
1164 {IDM_OUTDENT
, query_edit_status
, exec_outdent
},
1165 {IDM_COMPOSESETTINGS
, NULL
, exec_composesettings
},
1166 {IDM_HYPERLINK
, query_edit_status
, exec_hyperlink
},
1167 {IDM_SETDIRTY
, NULL
, exec_setdirty
},
1171 void init_editor(HTMLDocumentNode
*doc
)
1173 update_doc(doc
->browser
->doc
, UPDATE_UI
);
1175 set_ns_fontname(doc
, "Times New Roman");
1178 HRESULT
browser_is_dirty(GeckoBrowser
*browser
)
1182 if(browser
->usermode
!= EDITMODE
|| !browser
->editor
)
1185 nsIEditor_GetDocumentModified(browser
->editor
, &modified
);
1186 return modified
? S_OK
: S_FALSE
;
1189 HRESULT
setup_edit_mode(HTMLDocumentObj
*doc
)
1194 if(doc
->nscontainer
->usermode
== EDITMODE
)
1197 doc
->nscontainer
->usermode
= EDITMODE
;
1199 if(doc
->window
->mon
) {
1200 CLSID clsid
= IID_NULL
;
1201 hres
= IMoniker_GetClassID(doc
->window
->mon
, &clsid
);
1202 if(SUCCEEDED(hres
)) {
1203 /* We should use IMoniker::Save here */
1204 FIXME("Use CLSID %s\n", debugstr_guid(&clsid
));
1209 IOleInPlaceFrame_SetStatusText(doc
->frame
, NULL
);
1211 doc
->window
->readystate
= READYSTATE_UNINITIALIZED
;
1214 IOleCommandTarget
*cmdtrg
;
1216 hres
= IOleClientSite_QueryInterface(doc
->client
, &IID_IOleCommandTarget
, (void**)&cmdtrg
);
1217 if(SUCCEEDED(hres
)) {
1222 IOleCommandTarget_Exec(cmdtrg
, &CGID_ShellDocView
, 37, 0, &var
, NULL
);
1224 IOleCommandTarget_Release(cmdtrg
);
1229 DOCHOSTUIINFO hostinfo
;
1231 memset(&hostinfo
, 0, sizeof(DOCHOSTUIINFO
));
1232 hostinfo
.cbSize
= sizeof(DOCHOSTUIINFO
);
1233 hres
= IDocHostUIHandler_GetHostInfo(doc
->hostui
, &hostinfo
);
1235 /* FIXME: use hostinfo */
1236 TRACE("hostinfo = {%lu %08lx %08lx %s %s}\n",
1237 hostinfo
.cbSize
, hostinfo
.dwFlags
, hostinfo
.dwDoubleClick
,
1238 debugstr_w(hostinfo
.pchHostCss
), debugstr_w(hostinfo
.pchHostNS
));
1241 update_doc(doc
, UPDATE_UI
);
1243 if(doc
->window
->mon
) {
1244 /* FIXME: We should find nicer way to do this */
1245 remove_target_tasks(doc
->task_magic
);
1247 mon
= doc
->window
->mon
;
1248 IMoniker_AddRef(mon
);
1250 hres
= CreateURLMoniker(NULL
, L
"about:blank", &mon
);
1252 FIXME("CreateURLMoniker failed: %08lx\n", hres
);
1257 hres
= IPersistMoniker_Load(&doc
->IPersistMoniker_iface
, TRUE
, mon
, NULL
, 0);
1258 IMoniker_Release(mon
);
1262 if(doc
->ui_active
) {
1264 call_set_active_object(doc
->ip_window
, NULL
);
1266 IDocHostUIHandler_HideUI(doc
->hostui
);
1269 if(doc
->ui_active
) {
1270 RECT rcBorderWidths
;
1273 IDocHostUIHandler_ShowUI(doc
->hostui
, DOCHOSTUITYPE_AUTHOR
,
1274 &doc
->IOleInPlaceActiveObject_iface
, &doc
->IOleCommandTarget_iface
,
1275 doc
->frame
, doc
->ip_window
);
1278 call_set_active_object(doc
->ip_window
, &doc
->IOleInPlaceActiveObject_iface
);
1280 SetRectEmpty(&rcBorderWidths
);
1282 IOleInPlaceFrame_SetBorderSpace(doc
->frame
, &rcBorderWidths
);