[MSHTML]
[reactos.git] / reactos / dll / win32 / mshtml / editor.c
1 /*
2 * Copyright 2006-2007 Jacek Caban for CodeWeavers
3 *
4 * This library is free software; you can redistribute it and/or
5 * modify it under the terms of the GNU Lesser General Public
6 * License as published by the Free Software Foundation; either
7 * version 2.1 of the License, or (at your option) any later version.
8 *
9 * This library is distributed in the hope that it will be useful,
10 * but WITHOUT ANY WARRANTY; without even the implied warranty of
11 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
12 * Lesser General Public License for more details.
13 *
14 * You should have received a copy of the GNU Lesser General Public
15 * License along with this library; if not, write to the Free Software
16 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
17 */
18
19 #include <stdarg.h>
20 #include <stdio.h>
21
22 #define COBJMACROS
23
24 #include "windef.h"
25 #include "winbase.h"
26 #include "winuser.h"
27 #include "ole2.h"
28 #include "mshtmcid.h"
29
30 #include "wine/debug.h"
31 #include "wine/unicode.h"
32
33 #include "mshtml_private.h"
34 #include "resource.h"
35
36 WINE_DEFAULT_DEBUG_CHANNEL(mshtml);
37
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"
80
81 #define NSSTATE_ATTRIBUTE "state_attribute"
82 #define NSSTATE_ALL "state_all"
83
84 #define NSALIGN_CENTER "center"
85 #define NSALIGN_LEFT "left"
86 #define NSALIGN_RIGHT "right"
87
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
95
96 static const WCHAR fontW[] = {'f','o','n','t',0};
97 static const WCHAR sizeW[] = {'s','i','z','e',0};
98
99 void set_dirty(HTMLDocument *This, VARIANT_BOOL dirty)
100 {
101 nsresult nsres;
102
103 if(This->doc_obj->usermode != EDITMODE || !This->doc_obj->nscontainer || !This->doc_obj->nscontainer->editor)
104 return;
105
106 if(dirty) {
107 nsres = nsIEditor_IncrementModificationCount(This->doc_obj->nscontainer->editor, 1);
108 if(NS_FAILED(nsres))
109 ERR("IncrementModificationCount failed: %08x\n", nsres);
110 }else {
111 nsres = nsIEditor_ResetModificationCount(This->doc_obj->nscontainer->editor);
112 if(NS_FAILED(nsres))
113 ERR("ResetModificationCount failed: %08x\n", nsres);
114 }
115 }
116
117 static void do_ns_editor_command(NSContainer *This, const char *cmd)
118 {
119 nsresult nsres;
120
121 if(!This->editor_controller)
122 return;
123
124 nsres = nsIController_DoCommand(This->editor_controller, cmd);
125 if(NS_FAILED(nsres))
126 ERR("DoCommand(%s) failed: %08x\n", debugstr_a(cmd), nsres);
127 }
128
129 static nsresult get_ns_command_state(NSContainer *This, const char *cmd, nsICommandParams *nsparam)
130 {
131 nsICommandManager *cmdmgr;
132 nsresult nsres;
133
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);
137 return nsres;
138 }
139
140 nsres = nsICommandManager_GetCommandState(cmdmgr, cmd, This->doc->basedoc.window->nswindow, nsparam);
141 if(NS_FAILED(nsres))
142 ERR("GetCommandState(%s) failed: %08x\n", debugstr_a(cmd), nsres);
143
144 nsICommandManager_Release(cmdmgr);
145 return nsres;
146 }
147
148 static DWORD query_ns_edit_status(HTMLDocument *This, const char *nscmd)
149 {
150 nsICommandParams *nsparam;
151 PRBool b = FALSE;
152
153 if(This->doc_obj->usermode != EDITMODE || This->window->readystate < READYSTATE_INTERACTIVE)
154 return OLECMDF_SUPPORTED;
155
156 if(This->doc_obj->nscontainer && nscmd) {
157 nsparam = create_nscommand_params();
158 get_ns_command_state(This->doc_obj->nscontainer, nscmd, nsparam);
159
160 nsICommandParams_GetBooleanValue(nsparam, NSSTATE_ALL, &b);
161
162 nsICommandParams_Release(nsparam);
163 }
164
165 return OLECMDF_SUPPORTED | OLECMDF_ENABLED | (b ? OLECMDF_LATCHED : 0);
166 }
167
168 static void set_ns_align(HTMLDocument *This, const char *align_str)
169 {
170 nsICommandParams *nsparam;
171
172 if(!This->doc_obj->nscontainer)
173 return;
174
175 nsparam = create_nscommand_params();
176 nsICommandParams_SetCStringValue(nsparam, NSSTATE_ATTRIBUTE, align_str);
177
178 do_ns_command(This, NSCMD_ALIGN, nsparam);
179
180 nsICommandParams_Release(nsparam);
181 }
182
183 static DWORD query_align_status(HTMLDocument *This, const char *align_str)
184 {
185 nsICommandParams *nsparam;
186 char *align = NULL;
187
188 if(This->doc_obj->usermode != EDITMODE || This->window->readystate < READYSTATE_INTERACTIVE)
189 return OLECMDF_SUPPORTED;
190
191 if(This->doc_obj->nscontainer) {
192 nsparam = create_nscommand_params();
193 get_ns_command_state(This->doc_obj->nscontainer, NSCMD_ALIGN, nsparam);
194
195 nsICommandParams_GetCStringValue(nsparam, NSSTATE_ATTRIBUTE, &align);
196
197 nsICommandParams_Release(nsparam);
198 }
199
200 return OLECMDF_SUPPORTED | OLECMDF_ENABLED
201 | (align && !strcmp(align_str, align) ? OLECMDF_LATCHED : 0);
202 }
203
204
205 static nsISelection *get_ns_selection(HTMLDocument *This)
206 {
207 nsISelection *nsselection = NULL;
208 nsresult nsres;
209
210 nsres = nsIDOMWindow_GetSelection(This->window->nswindow, &nsselection);
211 if(NS_FAILED(nsres))
212 ERR("GetSelection failed %08x\n", nsres);
213
214 return nsselection;
215
216 }
217
218 static void remove_child_attr(nsIDOMElement *elem, LPCWSTR tag, nsAString *attr_str)
219 {
220 PRBool has_children;
221 PRUint32 child_cnt, i;
222 nsIDOMNode *child_node;
223 nsIDOMNodeList *node_list;
224 PRUint16 node_type;
225
226 nsIDOMElement_HasChildNodes(elem, &has_children);
227 if(!has_children)
228 return;
229
230 nsIDOMElement_GetChildNodes(elem, &node_list);
231 nsIDOMNodeList_GetLength(node_list, &child_cnt);
232
233 for(i=0; i<child_cnt; i++) {
234 nsIDOMNodeList_Item(node_list, i, &child_node);
235
236 nsIDOMNode_GetNodeType(child_node, &node_type);
237 if(node_type == ELEMENT_NODE) {
238 nsIDOMElement *child_elem;
239 nsAString tag_str;
240 const PRUnichar *ctag;
241
242 nsIDOMNode_QueryInterface(child_node, &IID_nsIDOMElement, (void**)&child_elem);
243
244 nsAString_Init(&tag_str, NULL);
245 nsIDOMElement_GetTagName(child_elem, &tag_str);
246 nsAString_GetData(&tag_str, &ctag);
247
248 if(!strcmpiW(ctag, tag))
249 /* FIXME: remove node if there are no more attributes */
250 nsIDOMElement_RemoveAttribute(child_elem, attr_str);
251
252 nsAString_Finish(&tag_str);
253
254 remove_child_attr(child_elem, tag, attr_str);
255
256 nsIDOMNode_Release(child_elem);
257 }
258
259 nsIDOMNode_Release(child_node);
260 }
261
262 nsIDOMNodeList_Release(node_list);
263 }
264
265 static void get_font_size(HTMLDocument *This, WCHAR *ret)
266 {
267 nsISelection *nsselection = get_ns_selection(This);
268 nsIDOMElement *elem = NULL;
269 nsIDOMNode *node = NULL, *tmp_node;
270 nsAString tag_str;
271 LPCWSTR tag;
272 PRUint16 node_type;
273 nsresult nsres;
274
275 *ret = 0;
276
277 if(!nsselection)
278 return;
279
280 nsISelection_GetFocusNode(nsselection, &node);
281 nsISelection_Release(nsselection);
282
283 while(node) {
284 nsres = nsIDOMNode_GetNodeType(node, &node_type);
285 if(NS_FAILED(nsres) || node_type == DOCUMENT_NODE)
286 break;
287
288 if(node_type == ELEMENT_NODE) {
289 nsIDOMNode_QueryInterface(node, &IID_nsIDOMElement, (void**)&elem);
290
291 nsAString_Init(&tag_str, NULL);
292 nsIDOMElement_GetTagName(elem, &tag_str);
293 nsAString_GetData(&tag_str, &tag);
294
295 if(!strcmpiW(tag, fontW)) {
296 nsAString size_str, val_str;
297 LPCWSTR val;
298
299 TRACE("found font tag %p\n", elem);
300
301 nsAString_InitDepend(&size_str, sizeW);
302 nsAString_Init(&val_str, NULL);
303
304 nsIDOMElement_GetAttribute(elem, &size_str, &val_str);
305 nsAString_GetData(&val_str, &val);
306
307 if(*val) {
308 TRACE("found size %s\n", debugstr_w(val));
309 strcpyW(ret, val);
310 }
311
312 nsAString_Finish(&size_str);
313 nsAString_Finish(&val_str);
314 }
315
316 nsAString_Finish(&tag_str);
317
318 nsIDOMElement_Release(elem);
319 }
320
321 if(*ret)
322 break;
323
324 tmp_node = node;
325 nsIDOMNode_GetParentNode(node, &node);
326 nsIDOMNode_Release(tmp_node);
327 }
328
329 if(node)
330 nsIDOMNode_Release(node);
331 }
332
333 static void set_font_size(HTMLDocument *This, LPCWSTR size)
334 {
335 nsISelection *nsselection;
336 PRBool collapsed;
337 nsIDOMHTMLElement *elem;
338 nsIDOMRange *range;
339 PRInt32 range_cnt = 0;
340 nsAString size_str;
341 nsAString val_str;
342
343 if(!This->doc_node->nsdoc) {
344 WARN("NULL nsdoc\n");
345 return;
346 }
347
348 nsselection = get_ns_selection(This);
349 if(!nsselection)
350 return;
351
352 nsISelection_GetRangeCount(nsselection, &range_cnt);
353 if(range_cnt != 1) {
354 FIXME("range_cnt %d not supprted\n", range_cnt);
355 if(!range_cnt) {
356 nsISelection_Release(nsselection);
357 return;
358 }
359 }
360
361 create_nselem(This->doc_node, fontW, &elem);
362
363 nsAString_InitDepend(&size_str, sizeW);
364 nsAString_InitDepend(&val_str, size);
365
366 nsIDOMElement_SetAttribute(elem, &size_str, &val_str);
367 nsAString_Finish(&val_str);
368
369 nsISelection_GetRangeAt(nsselection, 0, &range);
370 nsISelection_GetIsCollapsed(nsselection, &collapsed);
371 nsISelection_RemoveAllRanges(nsselection);
372
373 nsIDOMRange_SurroundContents(range, (nsIDOMNode*)elem);
374
375 if(collapsed) {
376 nsISelection_Collapse(nsselection, (nsIDOMNode*)elem, 0);
377 }else {
378 /* Remove all size attributes from the range */
379 remove_child_attr((nsIDOMElement*)elem, fontW, &size_str);
380 nsISelection_SelectAllChildren(nsselection, (nsIDOMNode*)elem);
381 }
382
383 nsISelection_Release(nsselection);
384 nsIDOMRange_Release(range);
385 nsIDOMElement_Release(elem);
386
387 nsAString_Finish(&size_str);
388
389 set_dirty(This, VARIANT_TRUE);
390 }
391
392 static void handle_arrow_key(HTMLDocument *This, nsIDOMKeyEvent *event, const char * const cmds[4])
393 {
394 int i=0;
395 PRBool b;
396
397 nsIDOMKeyEvent_GetCtrlKey(event, &b);
398 if(b)
399 i |= 1;
400
401 nsIDOMKeyEvent_GetShiftKey(event, &b);
402 if(b)
403 i |= 2;
404
405 if(cmds[i])
406 do_ns_editor_command(This->doc_obj->nscontainer, cmds[i]);
407
408 nsIDOMKeyEvent_PreventDefault(event);
409 }
410
411 void handle_edit_event(HTMLDocument *This, nsIDOMEvent *event)
412 {
413 nsIDOMKeyEvent *key_event;
414 PRUint32 code;
415
416 nsIDOMEvent_QueryInterface(event, &IID_nsIDOMKeyEvent, (void**)&key_event);
417
418 nsIDOMKeyEvent_GetKeyCode(key_event, &code);
419
420 switch(code) {
421 case DOM_VK_LEFT: {
422 static const char * const cmds[] = {
423 NSCMD_CHARPREVIOUS,
424 NSCMD_WORDPREVIOUS,
425 NSCMD_SELECTCHARPREVIOUS,
426 NSCMD_SELECTWORDPREVIOUS
427 };
428
429 TRACE("left\n");
430 handle_arrow_key(This, key_event, cmds);
431 break;
432 }
433 case DOM_VK_RIGHT: {
434 static const char * const cmds[] = {
435 NSCMD_CHARNEXT,
436 NSCMD_WORDNEXT,
437 NSCMD_SELECTCHARNEXT,
438 NSCMD_SELECTWORDNEXT
439 };
440
441 TRACE("right\n");
442 handle_arrow_key(This, key_event, cmds);
443 break;
444 }
445 case DOM_VK_UP: {
446 static const char * const cmds[] = {
447 NSCMD_LINEPREVIOUS,
448 NSCMD_MOVEPAGEUP,
449 NSCMD_SELECTLINEPREVIOUS,
450 NSCMD_SELECTPAGEUP
451 };
452
453 TRACE("up\n");
454 handle_arrow_key(This, key_event, cmds);
455 break;
456 }
457 case DOM_VK_DOWN: {
458 static const char * const cmds[] = {
459 NSCMD_LINENEXT,
460 NSCMD_MOVEPAGEDOWN,
461 NSCMD_SELECTLINENEXT,
462 NSCMD_SELECTPAGEDOWN
463 };
464
465 TRACE("down\n");
466 handle_arrow_key(This, key_event, cmds);
467 break;
468 }
469 case DOM_VK_DELETE: {
470 static const char * const cmds[] = {
471 NSCMD_DELETECHARFORWARD,
472 NSCMD_DELETEWORDFORWARD,
473 NULL, NULL
474 };
475
476 TRACE("delete\n");
477 handle_arrow_key(This, key_event, cmds);
478 break;
479 }
480 case DOM_VK_HOME: {
481 static const char * const cmds[] = {
482 NSCMD_BEGINLINE,
483 NSCMD_MOVETOP,
484 NSCMD_SELECTBEGINLINE,
485 NSCMD_SELECTTOP
486 };
487
488 TRACE("home\n");
489 handle_arrow_key(This, key_event, cmds);
490 break;
491 }
492 case DOM_VK_END: {
493 static const char * const cmds[] = {
494 NSCMD_ENDLINE,
495 NSCMD_MOVEBOTTOM,
496 NSCMD_SELECTENDLINE,
497 NSCMD_SELECTBOTTOM
498 };
499
500 TRACE("end\n");
501 handle_arrow_key(This, key_event, cmds);
502 break;
503 }
504 }
505
506 nsIDOMKeyEvent_Release(key_event);
507 }
508
509 void handle_edit_load(HTMLDocument *This)
510 {
511 This->doc_obj->nscontainer->reset_focus = GetFocus();
512 get_editor_controller(This->doc_obj->nscontainer);
513 }
514
515 static void set_ns_fontname(HTMLDocument *This, const char *fontname)
516 {
517 nsICommandParams *nsparam = create_nscommand_params();
518
519 nsICommandParams_SetCStringValue(nsparam, NSSTATE_ATTRIBUTE, fontname);
520 do_ns_command(This, NSCMD_FONTFACE, nsparam);
521 nsICommandParams_Release(nsparam);
522 }
523
524 static HRESULT exec_delete(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
525 {
526 TRACE("(%p)->(%p %p)\n", This, in, out);
527
528 if(This->doc_obj->nscontainer)
529 do_ns_editor_command(This->doc_obj->nscontainer, NSCMD_DELETECHARFORWARD);
530
531 update_doc(This, UPDATE_UI);
532 return S_OK;
533 }
534
535 static HRESULT exec_fontname(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
536 {
537 TRACE("(%p)->(%p %p)\n", This, in, out);
538
539 if(!This->doc_obj->nscontainer) {
540 update_doc(This, UPDATE_UI);
541 return E_FAIL;
542 }
543
544 if(in) {
545 char *stra;
546
547 if(V_VT(in) != VT_BSTR) {
548 FIXME("Unsupported vt=%d\n", V_VT(out));
549 return E_INVALIDARG;
550 }
551
552 TRACE("%s\n", debugstr_w(V_BSTR(in)));
553
554 stra = heap_strdupWtoA(V_BSTR(in));
555 set_ns_fontname(This, stra);
556 heap_free(stra);
557
558 update_doc(This, UPDATE_UI);
559 }
560
561 if(out) {
562 nsICommandParams *nsparam;
563 LPWSTR strw;
564 char *stra;
565 DWORD len;
566 nsresult nsres;
567
568 V_VT(out) = VT_BSTR;
569 V_BSTR(out) = NULL;
570
571 nsparam = create_nscommand_params();
572
573 nsres = get_ns_command_state(This->doc_obj->nscontainer, NSCMD_FONTFACE, nsparam);
574 if(NS_FAILED(nsres))
575 return S_OK;
576
577 nsICommandParams_GetCStringValue(nsparam, NSSTATE_ATTRIBUTE, &stra);
578 nsICommandParams_Release(nsparam);
579
580 len = MultiByteToWideChar(CP_ACP, 0, stra, -1, NULL, 0);
581 strw = heap_alloc(len*sizeof(WCHAR));
582 MultiByteToWideChar(CP_ACP, 0, stra, -1, strw, len);
583 nsfree(stra);
584
585 V_BSTR(out) = SysAllocString(strw);
586 heap_free(strw);
587 }
588
589 return S_OK;
590 }
591
592 static HRESULT exec_forecolor(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
593 {
594 TRACE("(%p)->(%p %p)\n", This, in, out);
595
596 if(in) {
597 if(V_VT(in) == VT_I4) {
598 nsICommandParams *nsparam = create_nscommand_params();
599 char color_str[10];
600
601 sprintf(color_str, "#%02x%02x%02x",
602 V_I4(in)&0xff, (V_I4(in)>>8)&0xff, (V_I4(in)>>16)&0xff);
603
604 nsICommandParams_SetCStringValue(nsparam, NSSTATE_ATTRIBUTE, color_str);
605 do_ns_command(This, NSCMD_FONTCOLOR, nsparam);
606
607 nsICommandParams_Release(nsparam);
608 }else {
609 FIXME("unsupported in vt=%d\n", V_VT(in));
610 }
611
612 update_doc(This, UPDATE_UI);
613 }
614
615 if(out) {
616 FIXME("unsupported out\n");
617 return E_NOTIMPL;
618 }
619
620 return S_OK;
621 }
622
623 static HRESULT exec_fontsize(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
624 {
625 TRACE("(%p)->(%p %p)\n", This, in, out);
626
627 if(out) {
628 WCHAR val[10] = {0};
629
630 get_font_size(This, val);
631 V_VT(out) = VT_I4;
632 V_I4(out) = strtolW(val, NULL, 10);
633 }
634
635 if(in) {
636 switch(V_VT(in)) {
637 case VT_I4: {
638 WCHAR size[10];
639 static const WCHAR format[] = {'%','d',0};
640 wsprintfW(size, format, V_I4(in));
641 set_font_size(This, size);
642 break;
643 }
644 case VT_BSTR:
645 set_font_size(This, V_BSTR(in));
646 break;
647 default:
648 FIXME("unsupported vt %d\n", V_VT(in));
649 }
650
651 update_doc(This, UPDATE_UI);
652 }
653
654 return S_OK;
655 }
656
657 static HRESULT exec_font(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
658 {
659
660 FIXME("(%p)->(%p %p)\n", This, in, out);
661 return E_NOTIMPL;
662 }
663
664 static HRESULT exec_selectall(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
665 {
666 TRACE("(%p)\n", This);
667
668 if(in || out)
669 FIXME("unsupported args\n");
670
671 if(This->doc_obj->nscontainer)
672 do_ns_command(This, NSCMD_SELECTALL, NULL);
673
674 update_doc(This, UPDATE_UI);
675 return S_OK;
676 }
677
678 static HRESULT exec_bold(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
679 {
680 TRACE("(%p)\n", This);
681
682 if(in || out)
683 FIXME("unsupported args\n");
684
685 if(This->doc_obj->nscontainer)
686 do_ns_command(This, NSCMD_BOLD, NULL);
687
688 update_doc(This, UPDATE_UI);
689 return S_OK;
690 }
691
692 static HRESULT exec_italic(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
693 {
694 TRACE("(%p)\n", This);
695
696 if(in || out)
697 FIXME("unsupported args\n");
698
699 if(This->doc_obj->nscontainer)
700 do_ns_command(This, NSCMD_ITALIC, NULL);
701
702 update_doc(This, UPDATE_UI);
703 return S_OK;
704 }
705
706 static HRESULT query_justify(HTMLDocument *This, OLECMD *cmd)
707 {
708 switch(cmd->cmdID) {
709 case IDM_JUSTIFYCENTER:
710 TRACE("(%p) IDM_JUSTIFYCENTER\n", This);
711 cmd->cmdf = query_align_status(This, NSALIGN_CENTER);
712 break;
713 case IDM_JUSTIFYLEFT:
714 TRACE("(%p) IDM_JUSTIFYLEFT\n", This);
715 /* FIXME: We should set OLECMDF_LATCHED only if it's set explicitly. */
716 if(This->doc_obj->usermode != EDITMODE || This->window->readystate < READYSTATE_INTERACTIVE)
717 cmd->cmdf = OLECMDF_SUPPORTED;
718 else
719 cmd->cmdf = OLECMDF_SUPPORTED | OLECMDF_ENABLED;
720 break;
721 case IDM_JUSTIFYRIGHT:
722 TRACE("(%p) IDM_JUSTIFYRIGHT\n", This);
723 cmd->cmdf = query_align_status(This, NSALIGN_RIGHT);
724 break;
725 }
726
727 return S_OK;
728 }
729
730 static HRESULT exec_justifycenter(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
731 {
732 TRACE("(%p)\n", This);
733
734 if(in || out)
735 FIXME("unsupported args\n");
736
737 set_ns_align(This, NSALIGN_CENTER);
738 update_doc(This, UPDATE_UI);
739 return S_OK;
740 }
741
742 static HRESULT exec_justifyleft(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
743 {
744 TRACE("(%p)\n", This);
745
746 if(in || out)
747 FIXME("unsupported args\n");
748
749 set_ns_align(This, NSALIGN_LEFT);
750 update_doc(This, UPDATE_UI);
751 return S_OK;
752 }
753
754 static HRESULT exec_justifyright(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
755 {
756 TRACE("(%p)\n", This);
757
758 if(in || out)
759 FIXME("unsupported args\n");
760
761 set_ns_align(This, NSALIGN_RIGHT);
762 update_doc(This, UPDATE_UI);
763 return S_OK;
764 }
765
766 static HRESULT exec_underline(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
767 {
768 TRACE("(%p)\n", This);
769
770 if(in || out)
771 FIXME("unsupported args\n");
772
773 do_ns_command(This, NSCMD_UNDERLINE, NULL);
774 update_doc(This, UPDATE_UI);
775 return S_OK;
776 }
777
778 static HRESULT exec_horizontalline(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
779 {
780 TRACE("(%p)\n", This);
781
782 if(in || out)
783 FIXME("unsupported args\n");
784
785 do_ns_command(This, NSCMD_INSERTHR, NULL);
786 update_doc(This, UPDATE_UI);
787 return S_OK;
788 }
789
790 static HRESULT exec_orderlist(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
791 {
792 TRACE("(%p)\n", This);
793
794 if(in || out)
795 FIXME("unsupported args\n");
796
797 do_ns_command(This, NSCMD_OL, NULL);
798 update_doc(This, UPDATE_UI);
799 return S_OK;
800 }
801
802 static HRESULT exec_unorderlist(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
803 {
804 TRACE("(%p)\n", This);
805
806 if(in || out)
807 FIXME("unsupported args\n");
808
809 do_ns_command(This, NSCMD_UL, NULL);
810 update_doc(This, UPDATE_UI);
811 return S_OK;
812 }
813
814 static HRESULT exec_indent(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
815 {
816 TRACE("(%p)\n", This);
817
818 if(in || out)
819 FIXME("unsupported args\n");
820
821 do_ns_command(This, NSCMD_INDENT, NULL);
822 update_doc(This, UPDATE_UI);
823 return S_OK;
824 }
825
826 static HRESULT exec_outdent(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
827 {
828 TRACE("(%p)\n", This);
829
830 if(in || out)
831 FIXME("unsupported args\n");
832
833 do_ns_command(This, NSCMD_OUTDENT, NULL);
834 update_doc(This, UPDATE_UI);
835 return S_OK;
836 }
837
838 static HRESULT exec_composesettings(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
839 {
840 WCHAR *ptr;
841
842 if(out || !in || V_VT(in) != VT_BSTR) {
843 WARN("invalid arg\n");
844 return E_INVALIDARG;
845 }
846
847 TRACE("(%p)->(%x %s)\n", This, cmdexecopt, debugstr_w(V_BSTR(in)));
848
849 update_doc(This, UPDATE_UI);
850
851 ptr = V_BSTR(in);
852 if(*ptr == '1')
853 exec_bold(This, cmdexecopt, NULL, NULL);
854 ptr = strchrW(ptr, ',');
855 if(!ptr)
856 return S_OK;
857
858 if(*++ptr == '1')
859 exec_italic(This, cmdexecopt, NULL, NULL);
860 ptr = strchrW(ptr, ',');
861 if(!ptr)
862 return S_OK;
863
864 if(*++ptr == '1')
865 exec_underline(This, cmdexecopt, NULL, NULL);
866 ptr = strchrW(ptr, ',');
867 if(!ptr)
868 return S_OK;
869
870 if(isdigitW(*++ptr)) {
871 VARIANT v;
872
873 V_VT(&v) = VT_I4;
874 V_I4(&v) = *ptr-'0';
875
876 exec_fontsize(This, cmdexecopt, &v, NULL);
877 }
878 ptr = strchrW(ptr, ',');
879 if(!ptr)
880 return S_OK;
881
882 if(*++ptr != ',')
883 FIXME("set font color\n");
884 ptr = strchrW(ptr, ',');
885 if(!ptr)
886 return S_OK;
887
888 if(*++ptr != ',')
889 FIXME("set background color\n");
890 ptr = strchrW(ptr, ',');
891 if(!ptr)
892 return S_OK;
893
894 ptr++;
895 if(*ptr) {
896 VARIANT v;
897
898 V_VT(&v) = VT_BSTR;
899 V_BSTR(&v) = SysAllocString(ptr);
900
901 exec_fontname(This, cmdexecopt, &v, NULL);
902
903 SysFreeString(V_BSTR(&v));
904 }
905
906 return S_OK;
907 }
908
909 HRESULT editor_exec_copy(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
910 {
911 update_doc(This, UPDATE_UI);
912
913 if(!This->doc_obj->nscontainer)
914 return E_FAIL;
915
916 do_ns_editor_command(This->doc_obj->nscontainer, NSCMD_COPY);
917 return S_OK;
918 }
919
920 HRESULT editor_exec_cut(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
921 {
922 update_doc(This, UPDATE_UI);
923
924 if(!This->doc_obj->nscontainer)
925 return E_FAIL;
926
927 do_ns_editor_command(This->doc_obj->nscontainer, NSCMD_CUT);
928 return S_OK;
929 }
930
931 HRESULT editor_exec_paste(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
932 {
933 update_doc(This, UPDATE_UI);
934
935 if(!This->doc_obj->nscontainer)
936 return E_FAIL;
937
938 do_ns_editor_command(This->doc_obj->nscontainer, NSCMD_PASTE);
939 return S_OK;
940 }
941
942 static HRESULT exec_setdirty(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
943 {
944 TRACE("(%p)->(%08x %p %p)\n", This, cmdexecopt, in, out);
945
946 if(!in)
947 return S_OK;
948
949 if(V_VT(in) == VT_BOOL)
950 set_dirty(This, V_BOOL(in));
951 else
952 FIXME("unsupported vt=%d\n", V_VT(in));
953
954 return S_OK;
955 }
956
957 static HRESULT query_edit_status(HTMLDocument *This, OLECMD *cmd)
958 {
959 switch(cmd->cmdID) {
960 case IDM_DELETE:
961 TRACE("CGID_MSHTML: IDM_DELETE\n");
962 cmd->cmdf = query_ns_edit_status(This, NULL);
963 break;
964 case IDM_FONTNAME:
965 TRACE("CGID_MSHTML: IDM_FONTNAME\n");
966 cmd->cmdf = query_ns_edit_status(This, NULL);
967 break;
968 case IDM_FONTSIZE:
969 TRACE("CGID_MSHTML: IDM_FONTSIZE\n");
970 cmd->cmdf = query_ns_edit_status(This, NULL);
971 break;
972 case IDM_BOLD:
973 TRACE("CGID_MSHTML: IDM_BOLD\n");
974 cmd->cmdf = query_ns_edit_status(This, NSCMD_BOLD);
975 break;
976 case IDM_FORECOLOR:
977 TRACE("CGID_MSHTML: IDM_FORECOLOR\n");
978 cmd->cmdf = query_ns_edit_status(This, NULL);
979 break;
980 case IDM_ITALIC:
981 TRACE("CGID_MSHTML: IDM_ITALIC\n");
982 cmd->cmdf = query_ns_edit_status(This, NSCMD_ITALIC);
983 break;
984 case IDM_UNDERLINE:
985 TRACE("CGID_MSHTML: IDM_UNDERLINE\n");
986 cmd->cmdf = query_ns_edit_status(This, NSCMD_UNDERLINE);
987 break;
988 case IDM_HORIZONTALLINE:
989 TRACE("CGID_MSHTML: IDM_HORIZONTALLINE\n");
990 cmd->cmdf = query_ns_edit_status(This, NULL);
991 break;
992 case IDM_ORDERLIST:
993 TRACE("CGID_MSHTML: IDM_ORDERLIST\n");
994 cmd->cmdf = query_ns_edit_status(This, NSCMD_OL);
995 break;
996 case IDM_UNORDERLIST:
997 TRACE("CGID_MSHTML: IDM_HORIZONTALLINE\n");
998 cmd->cmdf = query_ns_edit_status(This, NSCMD_UL);
999 break;
1000 case IDM_INDENT:
1001 TRACE("CGID_MSHTML: IDM_INDENT\n");
1002 cmd->cmdf = query_ns_edit_status(This, NULL);
1003 break;
1004 case IDM_OUTDENT:
1005 TRACE("CGID_MSHTML: IDM_OUTDENT\n");
1006 cmd->cmdf = query_ns_edit_status(This, NULL);
1007 break;
1008 case IDM_HYPERLINK:
1009 TRACE("CGID_MSHTML: IDM_HYPERLINK\n");
1010 cmd->cmdf = query_ns_edit_status(This, NULL);
1011 break;
1012 }
1013
1014 return S_OK;
1015 }
1016
1017 static INT_PTR CALLBACK hyperlink_dlgproc(HWND hwnd, UINT msg, WPARAM wparam, LPARAM lparam)
1018 {
1019 static const WCHAR wszOther[] = {'(','o','t','h','e','r',')',0};
1020
1021 switch (msg)
1022 {
1023 case WM_INITDIALOG:
1024 {
1025 static const WCHAR wszFile[] = {'f','i','l','e',':',0};
1026 static const WCHAR wszFtp[] = {'f','t','p',':',0};
1027 static const WCHAR wszHttp[] = {'h','t','t','p',':',0};
1028 static const WCHAR wszHttps[] = {'h','t','t','p','s',':',0};
1029 static const WCHAR wszMailto[] = {'m','a','i','l','t','o',':',0};
1030 static const WCHAR wszNews[] = {'n','e','w','s',':',0};
1031 INT def_idx;
1032 HWND hwndCB = GetDlgItem(hwnd, IDC_TYPE);
1033 HWND hwndURL = GetDlgItem(hwnd, IDC_URL);
1034 INT len;
1035
1036 SetWindowLongPtrW(hwnd, DWLP_USER, lparam);
1037
1038 SendMessageW(hwndCB, CB_INSERTSTRING, -1, (LPARAM)wszOther);
1039 SendMessageW(hwndCB, CB_INSERTSTRING, -1, (LPARAM)wszFile);
1040 SendMessageW(hwndCB, CB_INSERTSTRING, -1, (LPARAM)wszFtp);
1041 def_idx = SendMessageW(hwndCB, CB_INSERTSTRING, -1, (LPARAM)wszHttp);
1042 SendMessageW(hwndCB, CB_INSERTSTRING, -1, (LPARAM)wszHttps);
1043 SendMessageW(hwndCB, CB_INSERTSTRING, -1, (LPARAM)wszMailto);
1044 SendMessageW(hwndCB, CB_INSERTSTRING, -1, (LPARAM)wszNews);
1045 SendMessageW(hwndCB, CB_SETCURSEL, def_idx, 0);
1046
1047 /* force the updating of the URL edit box */
1048 SendMessageW(hwnd, WM_COMMAND, MAKEWPARAM(IDC_TYPE, CBN_SELCHANGE), (LPARAM)hwndCB);
1049
1050 SetFocus(hwndURL);
1051 len = SendMessageW(hwndURL, WM_GETTEXTLENGTH, 0, 0);
1052 SendMessageW(hwndURL, EM_SETSEL, 0, len);
1053
1054 return FALSE;
1055 }
1056 case WM_COMMAND:
1057 switch (wparam)
1058 {
1059 case MAKEWPARAM(IDCANCEL, BN_CLICKED):
1060 EndDialog(hwnd, wparam);
1061 return TRUE;
1062 case MAKEWPARAM(IDOK, BN_CLICKED):
1063 {
1064 BSTR *url = (BSTR *)GetWindowLongPtrW(hwnd, DWLP_USER);
1065 HWND hwndURL = GetDlgItem(hwnd, IDC_URL);
1066 INT len = GetWindowTextLengthW(hwndURL);
1067 *url = SysAllocStringLen(NULL, len + 1);
1068 GetWindowTextW(hwndURL, *url, len + 1);
1069 EndDialog(hwnd, wparam);
1070 return TRUE;
1071 }
1072 case MAKEWPARAM(IDC_TYPE, CBN_SELCHANGE):
1073 {
1074 HWND hwndURL = GetDlgItem(hwnd, IDC_URL);
1075 INT item;
1076 INT len;
1077 LPWSTR type;
1078 LPWSTR url;
1079 LPWSTR p;
1080 static const WCHAR wszSlashSlash[] = {'/','/'};
1081
1082 /* get string of currently selected hyperlink type */
1083 item = SendMessageW((HWND)lparam, CB_GETCURSEL, 0, 0);
1084 len = SendMessageW((HWND)lparam, CB_GETLBTEXTLEN, item, 0);
1085 type = HeapAlloc(GetProcessHeap(), 0, (len + 1) * sizeof(WCHAR));
1086 SendMessageW((HWND)lparam, CB_GETLBTEXT, item, (LPARAM)type);
1087
1088 if (!strcmpW(type, wszOther))
1089 *type = '\0';
1090
1091 /* get current URL */
1092 len = GetWindowTextLengthW(hwndURL);
1093 url = HeapAlloc(GetProcessHeap(), 0, (len + strlenW(type) + 3) * sizeof(WCHAR));
1094 GetWindowTextW(hwndURL, url, len + 1);
1095
1096 /* strip off old protocol */
1097 p = strchrW(url, ':');
1098 if (p && p[1] == '/' && p[2] == '/')
1099 p += 3;
1100 if (!p) p = url;
1101 memmove(url + (*type != '\0' ? strlenW(type) + 2 : 0), p, (len + 1 - (p - url)) * sizeof(WCHAR));
1102
1103 /* add new protocol */
1104 if (*type != '\0')
1105 {
1106 memcpy(url, type, strlenW(type) * sizeof(WCHAR));
1107 memcpy(url + strlenW(type), wszSlashSlash, sizeof(wszSlashSlash));
1108 }
1109
1110 SetWindowTextW(hwndURL, url);
1111
1112 HeapFree(GetProcessHeap(), 0, url);
1113 HeapFree(GetProcessHeap(), 0, type);
1114 return TRUE;
1115 }
1116 }
1117 return FALSE;
1118 case WM_CLOSE:
1119 EndDialog(hwnd, IDCANCEL);
1120 return TRUE;
1121 default:
1122 return FALSE;
1123 }
1124 }
1125
1126 static HRESULT exec_hyperlink(HTMLDocument *This, DWORD cmdexecopt, VARIANT *in, VARIANT *out)
1127 {
1128 nsAString href_str, ns_url;
1129 nsIHTMLEditor *html_editor;
1130 nsIDOMHTMLElement *anchor_elem;
1131 PRBool insert_link_at_caret;
1132 nsISelection *nsselection;
1133 BSTR url = NULL;
1134 INT ret;
1135 HRESULT hres = E_FAIL;
1136
1137 static const WCHAR aW[] = {'a',0};
1138 static const WCHAR hrefW[] = {'h','r','e','f',0};
1139
1140 TRACE("%p, 0x%x, %p, %p\n", This, cmdexecopt, in, out);
1141
1142 if (cmdexecopt == OLECMDEXECOPT_DONTPROMPTUSER)
1143 {
1144 if (!in || V_VT(in) != VT_BSTR)
1145 {
1146 WARN("invalid arg\n");
1147 return E_INVALIDARG;
1148 }
1149 url = V_BSTR(in);
1150 }
1151 else
1152 {
1153 ret = DialogBoxParamW(hInst, MAKEINTRESOURCEW(IDD_HYPERLINK), NULL /* FIXME */, hyperlink_dlgproc, (LPARAM)&url);
1154 if (ret != IDOK)
1155 return OLECMDERR_E_CANCELED;
1156 }
1157
1158 if(!This->doc_node->nsdoc) {
1159 WARN("NULL nsdoc\n");
1160 return E_UNEXPECTED;
1161 }
1162
1163 nsselection = get_ns_selection(This);
1164 if (!nsselection)
1165 return E_FAIL;
1166
1167 /* create an element for the link */
1168 create_nselem(This->doc_node, aW, &anchor_elem);
1169
1170 nsAString_InitDepend(&href_str, hrefW);
1171 nsAString_InitDepend(&ns_url, url);
1172 nsIDOMElement_SetAttribute(anchor_elem, &href_str, &ns_url);
1173 nsAString_Finish(&href_str);
1174
1175 nsISelection_GetIsCollapsed(nsselection, &insert_link_at_caret);
1176
1177 /* create an element with text of URL */
1178 if (insert_link_at_caret) {
1179 nsIDOMNode *text_node, *unused_node;
1180
1181 nsIDOMDocument_CreateTextNode(This->doc_node->nsdoc, &ns_url, (nsIDOMText **)&text_node);
1182
1183 /* wrap the <a> tags around the text element */
1184 nsIDOMElement_AppendChild(anchor_elem, text_node, &unused_node);
1185 nsIDOMNode_Release(text_node);
1186 nsIDOMNode_Release(unused_node);
1187 }
1188
1189 nsAString_Finish(&ns_url);
1190
1191 nsIEditor_QueryInterface(This->doc_obj->nscontainer->editor, &IID_nsIHTMLEditor, (void **)&html_editor);
1192 if (html_editor) {
1193 nsresult nsres;
1194
1195 if (insert_link_at_caret) {
1196 /* add them to the document at the caret position */
1197 nsres = nsIHTMLEditor_InsertElementAtSelection(html_editor, (nsIDOMElement*)anchor_elem, FALSE);
1198 nsISelection_SelectAllChildren(nsselection, (nsIDOMNode*)anchor_elem);
1199 }else /* add them around the selection using the magic provided to us by nsIHTMLEditor */
1200 nsres = nsIHTMLEditor_InsertLinkAroundSelection(html_editor, (nsIDOMElement*)anchor_elem);
1201
1202 nsIHTMLEditor_Release(html_editor);
1203 hres = NS_SUCCEEDED(nsres) ? S_OK : E_FAIL;
1204 }
1205
1206 nsISelection_Release(nsselection);
1207 nsIDOMElement_Release(anchor_elem);
1208
1209 if (cmdexecopt != OLECMDEXECOPT_DONTPROMPTUSER)
1210 SysFreeString(url);
1211
1212 TRACE("-- 0x%08x\n", hres);
1213 return hres;
1214 }
1215
1216 static HRESULT query_selall_status(HTMLDocument *This, OLECMD *cmd)
1217 {
1218 TRACE("(%p)->(%p)\n", This, cmd);
1219
1220 cmd->cmdf = OLECMDF_SUPPORTED|OLECMDF_ENABLED;
1221 return S_OK;
1222 }
1223
1224 const cmdtable_t editmode_cmds[] = {
1225 {IDM_DELETE, query_edit_status, exec_delete},
1226 {IDM_FONTNAME, query_edit_status, exec_fontname},
1227 {IDM_FONTSIZE, query_edit_status, exec_fontsize},
1228 {IDM_SELECTALL, query_selall_status , exec_selectall},
1229 {IDM_FORECOLOR, query_edit_status, exec_forecolor},
1230 {IDM_BOLD, query_edit_status, exec_bold},
1231 {IDM_ITALIC, query_edit_status, exec_italic},
1232 {IDM_JUSTIFYCENTER, query_justify, exec_justifycenter},
1233 {IDM_JUSTIFYRIGHT, query_justify, exec_justifyright},
1234 {IDM_JUSTIFYLEFT, query_justify, exec_justifyleft},
1235 {IDM_FONT, NULL, exec_font},
1236 {IDM_UNDERLINE, query_edit_status, exec_underline},
1237 {IDM_HORIZONTALLINE, query_edit_status, exec_horizontalline},
1238 {IDM_ORDERLIST, query_edit_status, exec_orderlist},
1239 {IDM_UNORDERLIST, query_edit_status, exec_unorderlist},
1240 {IDM_INDENT, query_edit_status, exec_indent},
1241 {IDM_OUTDENT, query_edit_status, exec_outdent},
1242 {IDM_COMPOSESETTINGS, NULL, exec_composesettings},
1243 {IDM_HYPERLINK, query_edit_status, exec_hyperlink},
1244 {IDM_SETDIRTY, NULL, exec_setdirty},
1245 {0,NULL,NULL}
1246 };
1247
1248 void init_editor(HTMLDocument *This)
1249 {
1250 update_doc(This, UPDATE_UI);
1251
1252 set_ns_fontname(This, "Times New Roman");
1253 }
1254
1255 HRESULT editor_is_dirty(HTMLDocument *This)
1256 {
1257 PRBool modified;
1258
1259 if(!This->doc_obj->nscontainer || !This->doc_obj->nscontainer->editor)
1260 return S_FALSE;
1261
1262 nsIEditor_GetDocumentModified(This->doc_obj->nscontainer->editor, &modified);
1263
1264 return modified ? S_OK : S_FALSE;
1265 }