e4db84915330e2e285ea24511f46aef67480e48e
[exim.git] / src / exim_monitor / em_menu.c
1 /*************************************************
2 *                  Exim Monitor                  *
3 *************************************************/
4
5 /* Copyright (c) University of Cambridge 1995 - 2018 */
6 /* Copyright (c) The Exim Maintainers 2021 */
7 /* See the file NOTICE for conditions of use and distribution. */
8 /* SPDX-License-Identifier: GPL-2.0-or-later */
9
10
11 #include "em_hdr.h"
12
13 /* This module contains code for handling the popup menus. */
14
15 static Widget menushell;
16 static Widget queue_text_sink;
17 static Widget dialog_shell, dialog_widget;
18
19 static Widget text_create(uschar *, int);
20
21 static int highlighted_start, highlighted_end, highlighted_x, highlighted_y;
22
23
24
25 static Arg queue_get_arg[] = {
26   { "textSink",   (XtArgVal)NULL },
27   { "textSource", (XtArgVal)NULL },
28   { "string",     (XtArgVal)NULL } };
29
30 static Arg dialog_arg[] = {
31   { "label",      (XtArgVal)"dialog" },
32   { "value",      (XtArgVal)"value" } };
33
34 static Arg get_pos_args[] = {
35   {"x",           (XtArgVal)NULL },
36   {"y",           (XtArgVal)NULL } };
37
38 static Arg menushell_arg[] = {
39   { "label",      (XtArgVal)NULL } };
40
41 static Arg button_arg[] = {
42   { XtNfromVert, (XtArgVal) NULL },         /* must be first */
43   { XtNlabel,    (XtArgVal) " Dismiss " },
44   { "left",      XawChainLeft },
45   { "right",     XawChainLeft },
46   { "top",       XawChainBottom },
47   { "bottom",    XawChainBottom } };
48
49 static Arg text_arg[] = {
50   { XtNfromVert, (XtArgVal) NULL },         /* must be first */
51   { "editType",  XawtextEdit },
52   { "string",    (XtArgVal)"" },            /* dummy to get it going */
53   { "scrollVertical", XawtextScrollAlways },
54   { "wrap",      XawtextWrapWord },
55   { "top",       XawChainTop },
56   { "bottom",    XawChainBottom } };
57
58 static Arg item_1_arg[] = {
59   { XtNfromVert,  (XtArgVal)NULL },         /* must be first */
60   { "label",      (XtArgVal)" Message log" } };
61
62 static Arg item_2_arg[] = {
63   { XtNfromVert,  (XtArgVal) NULL },        /* must be first */
64   { "label",      (XtArgVal)" Headers" } };
65
66 static Arg item_3_arg[] = {
67   { XtNfromVert,  (XtArgVal) NULL },        /* must be first */
68   { "label",      (XtArgVal)" Body" } };
69
70 static Arg item_4_arg[] = {
71   { XtNfromVert,  (XtArgVal) NULL },        /* must be first */
72   { "label",      (XtArgVal)" Deliver message" } };
73
74 static Arg item_5_arg[] = {
75   { XtNfromVert,  (XtArgVal) NULL },        /* must be first */
76   { "label",      (XtArgVal)" Freeze message" } };
77
78 static Arg item_6_arg[] = {
79   { XtNfromVert,  (XtArgVal) NULL },        /* must be first */
80   { "label",      (XtArgVal)" Thaw message" } };
81
82 static Arg item_7_arg[] = {
83   { XtNfromVert,  (XtArgVal) NULL },        /* must be first */
84   { "label",      (XtArgVal)" Give up on msg" } };
85
86 static Arg item_8_arg[] = {
87   { XtNfromVert,  (XtArgVal) NULL },        /* must be first */
88   { "label",      (XtArgVal)" Remove message" } };
89
90 static Arg item_9_arg[] = {
91   { XtNfromVert,  (XtArgVal) NULL },        /* must be first */
92   { "label",      (XtArgVal)"----------------" } };
93
94 static Arg item_10_arg[] = {
95   { XtNfromVert,  (XtArgVal) NULL },        /* must be first */
96   { "label",      (XtArgVal)" Add recipient" } };
97
98 static Arg item_11_arg[] = {
99   { XtNfromVert,  (XtArgVal) NULL },        /* must be first */
100   { "label",      (XtArgVal)" Mark delivered" } };
101
102 static Arg item_12_arg[] = {
103   { XtNfromVert,  (XtArgVal) NULL },        /* must be first */
104   { "label",      (XtArgVal)" Mark all delivered" } };
105
106 static Arg item_13_arg[] = {
107   { XtNfromVert,  (XtArgVal) NULL },        /* must be first */
108   { "label",      (XtArgVal)" Edit sender" } };
109
110 static Arg item_99_arg[] = {
111   { XtNfromVert,  (XtArgVal) NULL },        /* must be first */
112   { "label",      (XtArgVal)" " } };
113
114
115
116 /*************************************************
117 *        Destroy the menu when popped down       *
118 *************************************************/
119
120 static void
121 popdownAction(Widget w, XtPointer client_data, XtPointer call_data)
122 {
123 if (highlighted_x >= 0)
124   XawTextSinkDisplayText(queue_text_sink,
125     highlighted_x, highlighted_y,
126     highlighted_start, highlighted_end, 0);
127 XtDestroyWidget(w);
128 menu_is_up = FALSE;
129 }
130
131
132
133 /*************************************************
134 *          Display the message log               *
135 *************************************************/
136
137 static void
138 msglogAction(Widget w, XtPointer client_data, XtPointer call_data)
139 {
140 Widget text = text_create(US client_data, text_depth);
141 uschar * fname = NULL;
142 FILE * f = NULL;
143
144 /* End up with the split version, so message looks right when non-exist */
145
146 for (int i = 0; i < (spool_is_split ? 2:1); i++)
147   {
148   message_subdir[0] = i != 0 ? (US client_data)[5] : 0;
149   fname = spool_fname(US"msglog", message_subdir, US client_data, US"");
150   if ((f = fopen(CS fname, "r")))
151     break;
152   }
153
154 if (!f)
155   text_showf(text, "%s: %s\n", fname, strerror(errno));
156 else
157   {
158   uschar buffer[256];
159   while (Ufgets(buffer, sizeof(buffer), f) != NULL) text_show(text, buffer);
160   fclose(f);
161   }
162 }
163
164
165
166 /*************************************************
167 *          Display the message body               *
168 *************************************************/
169
170 static void
171 bodyAction(Widget w, XtPointer client_data, XtPointer call_data)
172 {
173 Widget text = text_create(US client_data, text_depth);
174 FILE *f = NULL;
175
176 for (int i = 0; i < (spool_is_split? 2:1); i++)
177   {
178   uschar * fname;
179   message_subdir[0] = i != 0 ? (US client_data)[5] : 0;
180   fname = spool_fname(US"input", message_subdir, US client_data, US"-D");
181   if ((f = fopen(CS fname, "r")))
182     break;
183   }
184
185 if (!f)
186   text_showf(text, "Failed to open file: %s\n", strerror(errno));
187 else
188   {
189   uschar buffer[256];
190   int count = 0;
191
192   while (Ufgets(buffer, sizeof(buffer), f) != NULL)
193     {
194     text_show(text, buffer);
195     count += Ustrlen(buffer);
196     if (count > body_max)
197       {
198       text_show(text, US"\n*** Message length exceeds BODY_MAX ***\n");
199       break;
200       }
201     }
202   fclose(f);
203   }
204 }
205
206
207
208 /*************************************************
209 *        Do something to a message               *
210 *************************************************/
211
212 /* The output is not shown in a window for non-delivery actions that succeed,
213 unless action_output is set. We can't, however, tell until we have run
214 the command whether we want the output or not, so the pipe has to be set up in
215 all cases. */
216
217 static void
218 ActOnMessage(uschar *id, uschar *action, uschar *address_arg)
219 {
220 int pid;
221 int pipe_fd[2];
222 int delivery = Ustrcmp(action + Ustrlen(action) - 2, "-M") == 0;
223 uschar *quote = US"";
224 uschar *at = US"";
225 uschar *qualify = US"";
226 uschar buffer[256];
227 queue_item *qq;
228 Widget text = NULL;
229
230 /* If the address arg is not empty and does not contain @ and there is a
231 qualify domain, qualify it. (But don't qualify '<>'.)*/
232
233 if (address_arg[0] != 0)
234   {
235   quote = US"\'";
236   if (Ustrchr(address_arg, '@') == NULL &&
237       Ustrcmp(address_arg, "<>") != 0 &&
238       qualify_domain != NULL &&
239       qualify_domain[0] != 0)
240     {
241     at = US"@";
242     qualify = qualify_domain;
243     }
244   }
245 sprintf(CS buffer, "%s %s %s %s %s %s%s%s%s%s", exim_path,
246   (alternate_config == NULL)? US"" : US"-C",
247   (alternate_config == NULL)? US"" : alternate_config,
248   action, id, quote, address_arg, at, qualify, quote);
249
250 /* If we know we are going to need the window, create it now. */
251
252 if (action_output || delivery)
253   {
254   text = text_create(id, text_depth);
255   text_showf(text, "%s\n", buffer);
256   }
257
258 /* Create the pipe for output. Remember, on most systems pipe[0] is
259 for reading and pipe[1] is for writing! Solaris, with its two-way
260 pipes is a trap! */
261
262 if (pipe(pipe_fd) != 0)
263   {
264   if (text == NULL)
265     {
266     text = text_create(id, text_depth);
267     text_showf(text, "%s\n", buffer);
268     }
269   text_show(text, US"*** Failed to create pipe ***\n");
270   return;
271   }
272
273 if (  fcntl(pipe_fd[0], F_SETFL, O_NONBLOCK)
274    || fcntl(pipe_fd[1], F_SETFL, O_NONBLOCK))
275   {
276   perror("set nonblocking on pipe");
277   exit(1);
278   }
279
280 /* Delivering a message can take some time, and we want to show the
281 output as it goes along. This requires subprocesses and is coded below. For
282 other commands, we can assume an immediate response, and so need not waste
283 resources with subprocesses. If action_output is FALSE, don't show the
284 output at all. */
285
286 if (!delivery)
287   {
288   int count, rc;
289   int save_stdout = dup(1);
290   int save_stderr = dup(2);
291
292   close(1);
293   close(2);
294
295   dup2(pipe_fd[1], 1);
296   dup2(pipe_fd[1], 2);
297   close(pipe_fd[1]);
298
299   rc = system(CS buffer);
300
301   close(1);
302   close(2);
303
304   if (action_output || rc != 0)
305     {
306     if (text == NULL)
307       {
308       text = text_create(id, text_depth);
309       text_showf(text, "%s\n", buffer);
310       }
311     while ((count = read(pipe_fd[0], buffer, 254)) > 0)
312       {
313       buffer[count] = 0;
314       text_show(text, buffer);
315       }
316     }
317
318   close(pipe_fd[0]);
319
320   dup2(save_stdout, 1);
321   dup2(save_stderr, 2);
322   close(save_stdout);
323   close(save_stderr);
324
325   /* If action was to change the sender, and it succeeded, we have to
326   update the in-store data. */
327
328   if (rc == 0 && Ustrcmp(action + Ustrlen(action) - 4, "-Mes") == 0)
329     {
330     queue_item *q = find_queue(id, queue_noop, 0);
331     if (q)
332       {
333       if (q->sender) store_free(q->sender);
334       q->sender = store_malloc(Ustrlen(address_arg) + 1);
335       Ustrcpy(q->sender, address_arg);
336       }
337     }
338
339   /* If configured, cause a display update and return */
340
341   if (action_queue_update) tick_queue_accumulator = 999999;
342   return;
343   }
344
345 /* Message is to be delivered. Ensure that it is marked unfrozen,
346 because nothing will get written to the log to show that this has
347 happened. (Other freezing/unfreezings get logged and picked up from
348 there.) */
349
350 qq = find_queue(id, queue_noop, 0);
351 if (qq != NULL) qq->frozen = FALSE;
352
353 /* New, asynchronous code runs in a subprocess for commands that
354 will take some time. The main process does not wait. There is a
355 SIGCHLD handler in the main program that cleans up any terminating
356 sub processes. */
357
358 if ((pid = fork()) == 0)
359   {
360   close(1);
361   close(2);
362
363   dup2(pipe_fd[1], 1);
364   dup2(pipe_fd[1], 2);
365   close(pipe_fd[1]);
366
367   system(CS buffer);
368
369   close(1);
370   close(2);
371   close(pipe_fd[0]);
372   _exit(0);
373   }
374
375 /* Main process - set up an item for the main ticker to watch. */
376
377 if (pid < 0) text_showf(text, "Failed to fork: %s\n", strerror(errno)); else
378   {
379   pipe_item *p = (pipe_item *)store_malloc(sizeof(pipe_item));
380
381   if (p == NULL)
382     {
383     text_show(text, US"Run out of store\n");
384     return;
385     }
386
387   p->widget = text;
388   p->fd = pipe_fd[0];
389
390   p->next = pipe_chain;
391   pipe_chain = p;
392
393   close(pipe_fd[1]);
394   }
395 }
396
397
398
399
400 /*************************************************
401 *        Cause a message to be delivered         *
402 *************************************************/
403
404 static void
405 deliverAction(Widget w, XtPointer client_data, XtPointer call_data)
406 {
407 ActOnMessage(US client_data, US"-v -M", US"");
408 }
409
410 /*************************************************
411 *        Cause a message to be Frozen            *
412 *************************************************/
413
414 static void
415 freezeAction(Widget w, XtPointer client_data, XtPointer call_data)
416 {
417 ActOnMessage(US client_data, US"-Mf", US"");
418 }
419
420 /*************************************************
421 *        Cause a message to be thawed            *
422 *************************************************/
423
424 static void
425 thawAction(Widget w, XtPointer client_data, XtPointer call_data)
426 {
427 ActOnMessage(US client_data, US"-Mt", US"");
428 }
429
430 /*************************************************
431 *          Take action using dialog data         *
432 *************************************************/
433
434 /* This function is called after a dialog box has been filled
435 in. It is global because it is set up in the action table at
436 start-up time. If the string is empty, do nothing. */
437
438 XtActionProc
439 dialogAction(Widget w, XEvent *event, String *ss, Cardinal *c)
440 {
441 uschar *s = US XawDialogGetValueString(dialog_widget);
442
443 XtPopdown((Widget)dialog_shell);
444 XtDestroyWidget((Widget)dialog_shell);
445 while (isspace(*s)) s++;
446 if (s[0] != 0)
447   if (actioned_message[0] != 0)
448     ActOnMessage(actioned_message, action_required, s);
449   else
450     NonMessageDialogue(s);    /* When called from somewhere else */
451 return NULL;
452 }
453
454
455
456 /*************************************************
457 *              Create a dialog box               *
458 *************************************************/
459
460 /* The focus is grabbed exclusively, so nothing else can
461 be done to the application until the box is filled in. This
462 function is also used by the Hide button handler. */
463
464 void
465 create_dialog(uschar *label, uschar *value)
466 {
467 Arg warg[4];
468 Dimension x, y, xx, yy;
469 XtTranslations pop_trans;
470 Widget text;
471
472 /* Get the position of a reference widget so the dialog box can be put
473 near to it. */
474
475 get_pos_args[0].value = (XtArgVal)(&x);
476 get_pos_args[1].value = (XtArgVal)(&y);
477 XtGetValues(dialog_ref_widget, get_pos_args, 2);
478
479 /* When this is not a message_specific thing, the position of the reference
480 widget is relative to the window. Get the position of the top level widget and
481 add to the position. */
482
483 if (dialog_ref_widget != menushell)
484   {
485   get_pos_args[0].value = (XtArgVal)(&xx);
486   get_pos_args[1].value = (XtArgVal)(&yy);
487   XtGetValues(toplevel_widget, get_pos_args, 2);
488   x += xx;
489   y += yy;
490   }
491
492 /* Create a transient shell for the dialog box. */
493
494 XtSetArg(warg[0], XtNtransientFor, queue_widget);
495 XtSetArg(warg[1], XtNx, x + 50);
496 XtSetArg(warg[2], XtNy, y + 50);
497 XtSetArg(warg[3], XtNallowShellResize, True);
498 dialog_shell = XtCreatePopupShell("forDialog", transientShellWidgetClass,
499    toplevel_widget, warg, 4);
500
501 /* Create the dialog box. */
502
503 dialog_arg[0].value = (XtArgVal)label;
504 dialog_arg[1].value = (XtArgVal)value;
505 dialog_widget = XtCreateManagedWidget("dialog", dialogWidgetClass, dialog_shell,
506   dialog_arg, XtNumber(dialog_arg));
507
508 /* Get the text widget from within the dialog box, give it the keyboard focus,
509 make it wider than the default, and override its translations to make Return
510 call the dialog action function. */
511
512 text = XtNameToWidget(dialog_widget, "value");
513 XawTextSetInsertionPoint(text, Ustrlen(value));
514 XtSetKeyboardFocus(dialog_widget, text);
515 xs_SetValues(text, 1, "width", 200);
516 pop_trans = XtParseTranslationTable(
517   "<Key>Return:         dialogAction()\n");
518 XtOverrideTranslations(text, pop_trans);
519
520 /* Pop the thing up. */
521
522 XtPopup(dialog_shell, XtGrabExclusive);
523 XFlush(X_display);
524 }
525
526
527 /*************************************************
528 *        Cause a recipient to be added           *
529 *************************************************/
530
531 /* This just sets up the dialog box; the action happens when it has been filled
532 in. */
533
534 static void
535 addrecipAction(Widget w, XtPointer client_data, XtPointer call_data)
536 {
537 Ustrncpy(actioned_message, client_data, 24);
538 actioned_message[23] = '\0';
539 action_required = US"-Mar";
540 dialog_ref_widget = menushell;
541 create_dialog(US"Recipient address to add?", US"");
542 }
543
544 /*************************************************
545 *    Cause an address to be marked delivered     *
546 *************************************************/
547
548 static void
549 markdelAction(Widget w, XtPointer client_data, XtPointer call_data)
550 {
551 Ustrncpy(actioned_message, client_data, 24);
552 actioned_message[23] = '\0';
553 action_required = US"-Mmd";
554 dialog_ref_widget = menushell;
555 create_dialog(US"Recipient address to mark delivered?", US"");
556 }
557
558 /*************************************************
559 *   Cause all addresses to be marked delivered   *
560 *************************************************/
561
562 static void
563 markalldelAction(Widget w, XtPointer client_data, XtPointer call_data)
564 {
565 ActOnMessage(US client_data, US"-Mmad", US"");
566 }
567
568 /*************************************************
569 *        Edit the message's sender               *
570 *************************************************/
571
572 static void
573 editsenderAction(Widget w, XtPointer client_data, XtPointer call_data)
574 {
575 queue_item *q;
576 uschar *sender;
577
578 Ustrncpy(actioned_message, client_data, 24);
579 actioned_message[23] = '\0';
580 q = find_queue(actioned_message, queue_noop, 0);
581 sender = !q ? US"" : q->sender[0] == 0 ? US"<>" : q->sender;
582 action_required = US"-Mes";
583 dialog_ref_widget = menushell;
584 create_dialog(US"New sender address?", sender);
585 }
586
587 /*************************************************
588 *    Cause a message to be returned to sender    *
589 *************************************************/
590
591 static void
592 giveupAction(Widget w, XtPointer client_data, XtPointer call_data)
593 {
594 ActOnMessage(US client_data, US"-v -Mg", US"");
595 }
596
597 /*************************************************
598 *      Cause a message to be cancelled           *
599 *************************************************/
600
601 static void
602 removeAction(Widget w, XtPointer client_data, XtPointer call_data)
603 {
604 ActOnMessage(US client_data, US"-Mrm", US"");
605 }
606
607 /*************************************************
608 *             Display a message's headers        *
609 *************************************************/
610
611 static void
612 headersAction(Widget w, XtPointer client_data, XtPointer call_data)
613 {
614 uschar buffer[256];
615 Widget text = text_create(US client_data, text_depth);
616 rmark reset_point;
617
618 /* Remember the point in the dynamic store so we can recover to it afterwards.
619 Then use Exim's function to read the header. */
620
621 reset_point = store_mark();
622
623 sprintf(CS buffer, "%s-H", US client_data);
624 if (spool_read_header(buffer, TRUE, FALSE) != spool_read_OK)
625   {
626   if (errno == ERRNO_SPOOLFORMAT)
627     {
628     struct stat statbuf;
629     sprintf(CS big_buffer, "%s/input/%s", spool_directory, buffer);
630     if (Ustat(big_buffer, &statbuf) == 0)
631       text_showf(text, "Format error in spool file %s: size=%lu\n", buffer,
632         (unsigned long)statbuf.st_size);
633     else text_showf(text, "Format error in spool file %s\n", buffer);
634     }
635   else text_showf(text, "Read error for spool file %s\n", buffer);
636   store_reset(reset_point);
637   return;
638   }
639
640 if (sender_address)
641   text_showf(text, "%s sender: <%s>\n", f.sender_local ? "Local" : "Remote",
642     sender_address);
643
644 if (recipients_list)
645   {
646   text_show(text, US"Recipients:\n");
647   for (int i = 0; i < recipients_count; i++)
648     text_showf(text, "  %s %s\n",
649       tree_search(tree_nonrecipients, recipients_list[i].address)
650         ? "*" : " ",
651       recipients_list[i].address);
652   text_show(text, US"\n");
653   }
654
655 for (header_line * next, * h = header_list; h; h = next)
656   {
657   next = h->next;
658   text_showf(text, "%c ", h->type);   /* Don't push h->text through a %s */
659   text_show(text, h->text);           /* expansion as it may be v large */
660   }
661
662 store_reset(reset_point);
663 }
664
665 /*************************************************
666 *              Dismiss a text window             *
667 *************************************************/
668
669 static void
670 dismissAction(Widget w, XtPointer client_data, XtPointer call_data)
671 {
672 XtPopdown((Widget)client_data);
673 XtDestroyWidget((Widget)client_data);
674
675 /* If this is a text widget for a sub-process, clear it out of
676 the chain so that subsequent data doesn't try to use it. We have
677 to search the parents of the saved widget to see if one of them
678 is what we have just destroyed. */
679
680 for (pipe_item * p = pipe_chain; p; p = p->next)
681   for (Widget pp = p->widget; pp; pp = XtParent(pp))
682     if (pp == (Widget)client_data) { p->widget = NULL; return; }
683 }
684
685
686
687 /*************************************************
688 *             Set up popup text window           *
689 *************************************************/
690
691 static Widget
692 text_create(uschar *name, int height)
693 {
694 Widget textshell, form, text, button;
695
696 /* Create a popup shell widget to display as an additional
697 toplevel window. */
698
699 textshell = XtCreatePopupShell("textshell", topLevelShellWidgetClass,
700   toplevel_widget, NULL, 0);
701 xs_SetValues(textshell, 4,
702   "title",     name,
703   "iconName",  name,
704   "minWidth",  100,
705   "minHeight", 100);
706
707 /* Create a form widget, containing the text widget and the
708 dismiss button widget. */
709
710 form = XtCreateManagedWidget("textform", formWidgetClass,
711   textshell, NULL, 0);
712 xs_SetValues(form, 1, "defaultDistance", 8);
713
714 text = XtCreateManagedWidget("texttext", asciiTextWidgetClass,
715   form, text_arg, XtNumber(text_arg));
716 xs_SetValues(text, 4,
717   "editType",        XawtextAppend,
718   "width",           700,
719   "height",          height,
720   "translations",    text_trans);
721 XawTextDisplayCaret(text, TRUE);
722
723 /* Use the same font as for the queue display */
724
725 if (queue_font != NULL)
726   {
727   XFontStruct *f = XLoadQueryFont(X_display, CS queue_font);
728   if (f != NULL) xs_SetValues(text, 1, "font", f);
729   }
730
731 button_arg[0].value = (XtArgVal)text;
732 button = XtCreateManagedWidget("dismiss", commandWidgetClass,
733   form, button_arg, XtNumber(button_arg));
734 XtAddCallback(button, "callback",  dismissAction, (XtPointer)textshell);
735
736 /* Get the toplevel popup displayed, and yield the text widget so
737 that text can be put into it. */
738
739 XtPopup(textshell, XtGrabNone);
740 return text;
741 }
742
743 /*************************************************
744 *            Set up menu in queue window         *
745 *************************************************/
746
747 /* We have added an action table that causes this function to
748 be called, and set up button 2 in the text widgets to call it. */
749
750 void
751 menu_create(Widget w, XEvent *event, String *actargs, Cardinal *count)
752 {
753 int line;
754 int i;
755 uschar *s;
756 XawTextPosition p;
757 Widget src, menu_line, item_1, item_2, item_3, item_4,
758   item_5, item_6, item_7, item_8, item_9, item_10, item_11,
759   item_12, item_13;
760 XtTranslations menu_trans = XtParseTranslationTable(
761   "<EnterWindow>:   highlight()\n\
762    <LeaveWindow>:   unhighlight()\n\
763    <BtnMotion>:     highlight()\n\
764    <BtnUp>:         MenuPopdown()notify()unhighlight()\n\
765   ");
766
767 /* Get the sink and source and the current text pointer */
768
769 queue_get_arg[0].value = (XtArgVal)(&queue_text_sink);
770 queue_get_arg[1].value = (XtArgVal)(&src);
771 queue_get_arg[2].value = (XtArgVal)(&s);
772 XtGetValues(w, queue_get_arg, 3);
773
774 /* Find the line number of the pointer in the window, and the
775 character offset of the top lefthand of the window. */
776
777 line = (event->xbutton).y / XawTextSinkMaxHeight(queue_text_sink, 1);
778 p = XawTextTopPosition(w);
779
780 /* Find the start of the line on which the button was clicked. */
781
782 i = line;
783 while (i-- > 0)
784   {
785   while (s[p] != 0 && s[p++] != '\n');
786   }
787
788 /* Now pointing either at 0 or 1st uschar after \n, or very 1st uschar.
789 If 0, the click was beyond the end of the data; just set up a dummy
790 menu. (Not easy to ignore as several actions are specified for the
791 mouse click and it expects this one to set up a menu.) If on a
792 continuation line, move back to the main line. */
793
794 if (s[p] == 0)
795   {
796   menushell_arg[0].value = (XtArgVal)"No message selected";
797   menushell = XtCreatePopupShell("menu", simpleMenuWidgetClass,
798     queue_widget, menushell_arg, XtNumber(menushell_arg));
799   XtAddCallback(menushell, "popdownCallback", popdownAction, NULL);
800   xs_SetValues(menushell, 2,
801     "cursor",       XCreateFontCursor(X_display, XC_arrow),
802     "translations", menu_trans);
803
804   /* To keep the widgets in XFree86 happy, we have to create at least one menu
805   item, it seems. (Openwindows doesn't mind a menu with no items.) Otherwise
806   there's a complaint about a zero width menu, and a crash. */
807
808   menu_line = XtCreateManagedWidget("line", smeLineObjectClass, menushell,
809     NULL, 0);
810
811   item_99_arg[0].value = (XtArgVal)menu_line;
812   (void)XtCreateManagedWidget("item99", smeBSBObjectClass, menushell,
813     item_99_arg, XtNumber(item_99_arg));
814
815   highlighted_x = -1;
816   return;
817   }
818
819 while (p > 0 && s[p+11] == ' ')
820   {
821   line--;
822   p--;
823   while (p > 0 && s[p-1] != '\n') p--;
824   }
825
826 /* Now pointing at first character of a main line. */
827
828 Ustrncpy(message_id, s+p+11, MESSAGE_ID_LENGTH);
829 message_id[MESSAGE_ID_LENGTH] = 0;
830
831 /* Highlight the line being menued, and save its parameters so that it
832 can be de-highlighted at popdown. */
833
834 highlighted_start = highlighted_end = p;
835 while (s[highlighted_end] != '\n') highlighted_end++;
836 highlighted_x = 17;
837 highlighted_y = line * XawTextSinkMaxHeight(queue_text_sink, 1) + 2;
838
839 XawTextSinkDisplayText(queue_text_sink,
840   highlighted_x, highlighted_y,
841   highlighted_start, highlighted_end, 1);
842
843 /* Create the popup shell and the other widgets that comprise the menu.
844 Set the translations and pointer shape, and add the callback pointers. */
845
846 menushell_arg[0].value = (XtArgVal)message_id;
847 menushell = XtCreatePopupShell("menu", simpleMenuWidgetClass,
848   queue_widget, menushell_arg, XtNumber(menushell_arg));
849 XtAddCallback(menushell, "popdownCallback", popdownAction, NULL);
850
851 xs_SetValues(menushell, 2,
852   "cursor",       XCreateFontCursor(X_display, XC_arrow),
853   "translations", menu_trans);
854
855 menu_line = XtCreateManagedWidget("line", smeLineObjectClass, menushell,
856   NULL, 0);
857
858 item_1_arg[0].value = (XtArgVal)menu_line;
859 item_1 = XtCreateManagedWidget("item1", smeBSBObjectClass, menushell,
860   item_1_arg, XtNumber(item_1_arg));
861 XtAddCallback(item_1, "callback",  msglogAction, (XtPointer)message_id);
862
863 item_2_arg[0].value = (XtArgVal)item_1;
864 item_2 = XtCreateManagedWidget("item2", smeBSBObjectClass, menushell,
865   item_2_arg, XtNumber(item_2_arg));
866 XtAddCallback(item_2, "callback",  headersAction, (XtPointer)message_id);
867
868 item_3_arg[0].value = (XtArgVal)item_2;
869 item_3 = XtCreateManagedWidget("item3", smeBSBObjectClass, menushell,
870   item_3_arg, XtNumber(item_3_arg));
871 XtAddCallback(item_3, "callback",  bodyAction, (XtPointer)message_id);
872
873 item_4_arg[0].value = (XtArgVal)item_3;
874 item_4 = XtCreateManagedWidget("item4", smeBSBObjectClass, menushell,
875   item_4_arg, XtNumber(item_4_arg));
876 XtAddCallback(item_4, "callback",  deliverAction, (XtPointer)message_id);
877
878 item_5_arg[0].value = (XtArgVal)item_4;
879 item_5 = XtCreateManagedWidget("item5", smeBSBObjectClass, menushell,
880   item_5_arg, XtNumber(item_5_arg));
881 XtAddCallback(item_5, "callback",  freezeAction, (XtPointer)message_id);
882
883 item_6_arg[0].value = (XtArgVal)item_5;
884 item_6 = XtCreateManagedWidget("item6", smeBSBObjectClass, menushell,
885   item_6_arg, XtNumber(item_6_arg));
886 XtAddCallback(item_6, "callback",  thawAction, (XtPointer)message_id);
887
888 item_7_arg[0].value = (XtArgVal)item_6;
889 item_7 = XtCreateManagedWidget("item7", smeBSBObjectClass, menushell,
890   item_7_arg, XtNumber(item_7_arg));
891 XtAddCallback(item_7, "callback",  giveupAction, (XtPointer)message_id);
892
893 item_8_arg[0].value = (XtArgVal)item_7;
894 item_8 = XtCreateManagedWidget("item8", smeBSBObjectClass, menushell,
895   item_8_arg, XtNumber(item_8_arg));
896 XtAddCallback(item_8, "callback",  removeAction, (XtPointer)message_id);
897
898 item_9_arg[0].value = (XtArgVal)item_8;
899 item_9 = XtCreateManagedWidget("item9", smeBSBObjectClass, menushell,
900   item_9_arg, XtNumber(item_9_arg));
901
902 item_10_arg[0].value = (XtArgVal)item_9;
903 item_10 = XtCreateManagedWidget("item10", smeBSBObjectClass, menushell,
904   item_10_arg, XtNumber(item_10_arg));
905 XtAddCallback(item_10, "callback",  addrecipAction, (XtPointer)message_id);
906
907 item_11_arg[0].value = (XtArgVal)item_10;
908 item_11 = XtCreateManagedWidget("item11", smeBSBObjectClass, menushell,
909   item_11_arg, XtNumber(item_11_arg));
910 XtAddCallback(item_11, "callback",  markdelAction, (XtPointer)message_id);
911
912 item_12_arg[0].value = (XtArgVal)item_11;
913 item_12 = XtCreateManagedWidget("item12", smeBSBObjectClass, menushell,
914   item_12_arg, XtNumber(item_12_arg));
915 XtAddCallback(item_12, "callback",  markalldelAction, (XtPointer)message_id);
916
917 item_13_arg[0].value = (XtArgVal)item_12;
918 item_13 = XtCreateManagedWidget("item13", smeBSBObjectClass, menushell,
919   item_13_arg, XtNumber(item_13_arg));
920 XtAddCallback(item_13, "callback",  editsenderAction, (XtPointer)message_id);
921
922 /* Arrange that the menu pops up with the first item selected. */
923
924 xs_SetValues(menushell, 1, "popupOnEntry", item_1);
925
926 /* Flag that the menu is up to suppress queue updates. */
927
928 menu_is_up = TRUE;
929 }
930
931 /* End of em_menu.c */