static Widget text_create(uschar *name, int height)
{
Widget textshell, form, text, button;
/* Create a popup shell widget to display as an additional
toplevel window. */
textshell = XtCreatePopupShell("textshell", topLevelShellWidgetClass,
toplevel_widget, NULL, 0);
xs_SetValues(textshell, 4,
"title", name,
"iconName", name,
"minWidth", 100,
"minHeight", 100);
/* Create a form widget, containing the text widget and the
dismiss button widget. */
form = XtCreateManagedWidget("textform", formWidgetClass,
textshell, NULL, 0);
xs_SetValues(form, 1, "defaultDistance", 8);
text = XtCreateManagedWidget("texttext", asciiTextWidgetClass,
form, text_arg, XtNumber(text_arg));
xs_SetValues(text, 4,
"editType", XawtextAppend,
"width", 700,
"height", height,
"translations", text_trans);
XawTextDisplayCaret(text, TRUE);
/* Use the same font as for the queue display */
if (queue_font != NULL)
{
XFontStruct *f = XLoadQueryFont(X_display, CS queue_font);
if (f != NULL) xs_SetValues(text, 1, "font", f);
}
button_arg[0].value = (XtArgVal)text;
button = XtCreateManagedWidget("dismiss", commandWidgetClass,
form, button_arg, XtNumber(button_arg));
XtAddCallback(button, "callback", dismissAction, (XtPointer)textshell);
/* Get the toplevel popup displayed, and yield the text widget so
that text can be put into it. */
XtPopup(textshell, XtGrabNone);
return text;
}
void create_dialog(uschar *label, uschar *value)
{
Arg warg[4];
Dimension x, y, xx, yy;
XtTranslations pop_trans;
Widget text;
/* Get the position of a reference widget so the dialog box can be put
near to it. */
get_pos_args[0].value = (XtArgVal)(&x);
get_pos_args[1].value = (XtArgVal)(&y);
XtGetValues(dialog_ref_widget, get_pos_args, 2);
/* When this is not a message_specific thing, the position of the reference
widget is relative to the window. Get the position of the top level widget and
add to the position. */
if (dialog_ref_widget != menushell)
{
get_pos_args[0].value = (XtArgVal)(&xx);
get_pos_args[1].value = (XtArgVal)(&yy);
XtGetValues(toplevel_widget, get_pos_args, 2);
x += xx;
y += yy;
}
/* Create a transient shell for the dialog box. */
XtSetArg(warg[0], XtNtransientFor, queue_widget);
XtSetArg(warg[1], XtNx, x + 50);
XtSetArg(warg[2], XtNy, y + 50);
XtSetArg(warg[3], XtNallowShellResize, True);
dialog_shell = XtCreatePopupShell("forDialog", transientShellWidgetClass,
toplevel_widget, warg, 4);
/* Create the dialog box. */
dialog_arg[0].value = (XtArgVal)label;
dialog_arg[1].value = (XtArgVal)value;
dialog_widget = XtCreateManagedWidget("dialog", dialogWidgetClass, dialog_shell,
dialog_arg, XtNumber(dialog_arg));
/* Get the text widget from within the dialog box, give it the keyboard focus,
make it wider than the default, and override its translations to make Return
call the dialog action function. */
text = XtNameToWidget(dialog_widget, "value");
XawTextSetInsertionPoint(text, Ustrlen(value));
XtSetKeyboardFocus(dialog_widget, text);
xs_SetValues(text, 1, "width", 200);
pop_trans = XtParseTranslationTable(
"<Key>Return: dialogAction()\n");
XtOverrideTranslations(text, pop_trans);
/* Pop the thing up. */
XtPopup(dialog_shell, XtGrabExclusive);
XFlush(X_display);
}
static void show_log(char *s, ...)
{
int length, newtop;
va_list ap;
XawTextBlock b;
uschar buffer[log_buffer_len + 24];
/* Do nothing if not tailing a log */
if (log_widget == NULL) return;
/* Initialize the text block structure */
b.firstPos = 0;
b.ptr = CS buffer;
b.format = FMT8BIT;
/* We want to know whether the window has been scrolled back or not,
so that we can cease automatically scrolling with new text. This turns
out to be tricky with the text widget. We can detect whether the
scroll bar has been operated by checking on the "top" value, but it's
harder to detect that it has been returned to the bottom. The following
heuristic does its best. */
newtop = XawTextTopPosition(log_widget);
if (newtop != top)
{
if (!scrolled)
{
visible = size - top; /* save size of window */
scrolled = newtop < top;
}
else if (newtop > size - visible) scrolled = FALSE;
top = newtop;
}
/* Format the text that is to be written. */
va_start(ap, s);
vsprintf(CS buffer, s, ap);
va_end(ap);
length = Ustrlen(buffer);
/* If we are anonymizing for screen shots, flatten various things. */
#ifdef ANONYMIZE
{
uschar *p = buffer + 9;
if (p[6] == '-' && p[13] == '-') p += 17;
while (p < buffer + length)
{
int i;
/* Check for strings to be left alone */
for (i = 0; i < oklist_size; i++)
{
int len = Ustrlen(oklist[i]);
if (Ustrncmp(p, oklist[i], len) == 0)
{
p += len;
break;
}
}
if (i < oklist_size) continue;
/* Leave driver names, size, protocol, alone */
if ((*p == 'D' || *p == 'P' || *p == 'T' || *p == 'S' || *p == 'R') &&
p[1] == '=')
{
p += 2;
while (*p != ' ' && *p != 0) p++;
continue;
}
/* Leave C= text alone */
if (Ustrncmp(p, "C=\"", 3) == 0)
{
p += 3;
while (*p != 0 && *p != '"') p++;
continue;
}
/* Flatten remaining chars */
if (isdigit(*p)) *p++ = 'x';
else if (isalpha(*p)) *p++ = 'x';
else *p++ = '$';
}
}
#endif
/* If this would overflow the buffer, throw away 50% of the
current stuff in the buffer. Code defensively against odd
extreme cases that shouldn't actually arise. */
if (size + length > log_buffer_size)
{
if (size == 0) length = log_buffer_size/2; else
{
int cutcount = log_buffer_size/2;
if (cutcount > size) cutcount = size; else
{
while (cutcount < size && log_display_buffer[cutcount] != '\n')
cutcount++;
cutcount++;
}
b.length = 0;
XawTextReplace(log_widget, 0, cutcount, &b);
size -= cutcount;
top -= cutcount;
if (top < 0) top = 0;
if (top < cutcount) XawTextInvalidate(log_widget, 0, 999999);
xs_SetValues(log_widget, 1, "displayPosition", top);
}
}
/* Insert the new text at the end of the buffer. */
b.length = length;
XawTextReplace(log_widget, 999999, 999999, &b);
size += length;
/* When not scrolled back, we want to keep the bottom line
always visible. Put the insert point at the start of it because
this stops left/right scrolling with some X libraries. */
if (!scrolled)
{
XawTextSetInsertionPoint(log_widget, size - length);
top = XawTextTopPosition(log_widget);
}
}
void menu_create(Widget w, XEvent *event, String *actargs, Cardinal *count)
{
int line;
int i;
uschar *s;
XawTextPosition p;
Widget src, menu_line, item_1, item_2, item_3, item_4,
item_5, item_6, item_7, item_8, item_9, item_10, item_11,
item_12, item_13;
XtTranslations menu_trans = XtParseTranslationTable(
"<EnterWindow>: highlight()\n\
<LeaveWindow>: unhighlight()\n\
<BtnMotion>: highlight()\n\
<BtnUp>: MenuPopdown()notify()unhighlight()\n\
");
actargs = actargs; /* Keep picky compilers happy */
count = count;
/* Get the sink and source and the current text pointer */
queue_get_arg[0].value = (XtArgVal)(&queue_text_sink);
queue_get_arg[1].value = (XtArgVal)(&src);
queue_get_arg[2].value = (XtArgVal)(&s);
XtGetValues(w, queue_get_arg, 3);
/* Find the line number of the pointer in the window, and the
character offset of the top lefthand of the window. */
line = (event->xbutton).y / XawTextSinkMaxHeight(queue_text_sink, 1);
p = XawTextTopPosition(w);
/* Find the start of the line on which the button was clicked. */
i = line;
while (i-- > 0)
{
while (s[p] != 0 && s[p++] != '\n');
}
/* Now pointing either at 0 or 1st uschar after \n, or very 1st uschar.
If 0, the click was beyond the end of the data; just set up a dummy
menu. (Not easy to ignore as several actions are specified for the
mouse click and it expects this one to set up a menu.) If on a
continuation line, move back to the main line. */
if (s[p] == 0)
{
menushell_arg[0].value = (XtArgVal)"No message selected";
menushell = XtCreatePopupShell("menu", simpleMenuWidgetClass,
queue_widget, menushell_arg, XtNumber(menushell_arg));
XtAddCallback(menushell, "popdownCallback", popdownAction, NULL);
xs_SetValues(menushell, 2,
"cursor", XCreateFontCursor(X_display, XC_arrow),
"translations", menu_trans);
/* To keep the widgets in XFree86 happy, we have to create at least one menu
item, it seems. (Openwindows doesn't mind a menu with no items.) Otherwise
there's a complaint about a zero width menu, and a crash. */
menu_line = XtCreateManagedWidget("line", smeLineObjectClass, menushell,
NULL, 0);
item_99_arg[0].value = (XtArgVal)menu_line;
(void)XtCreateManagedWidget("item99", smeBSBObjectClass, menushell,
item_99_arg, XtNumber(item_99_arg));
highlighted_x = -1;
return;
}
while (p > 0 && s[p+11] == ' ')
{
line--;
p--;
while (p > 0 && s[p-1] != '\n') p--;
}
/* Now pointing at first character of a main line. */
Ustrncpy(message_id, s+p+11, MESSAGE_ID_LENGTH);
message_id[MESSAGE_ID_LENGTH] = 0;
/* Highlight the line being menued, and save its parameters so that it
can be de-highlighted at popdown. */
highlighted_start = highlighted_end = p;
while (s[highlighted_end] != '\n') highlighted_end++;
highlighted_x = 17;
highlighted_y = line * XawTextSinkMaxHeight(queue_text_sink, 1) + 2;
XawTextSinkDisplayText(queue_text_sink,
highlighted_x, highlighted_y,
highlighted_start, highlighted_end, 1);
/* Create the popup shell and the other widgets that comprise the menu.
Set the translations and pointer shape, and add the callback pointers. */
menushell_arg[0].value = (XtArgVal)message_id;
menushell = XtCreatePopupShell("menu", simpleMenuWidgetClass,
queue_widget, menushell_arg, XtNumber(menushell_arg));
XtAddCallback(menushell, "popdownCallback", popdownAction, NULL);
xs_SetValues(menushell, 2,
"cursor", XCreateFontCursor(X_display, XC_arrow),
"translations", menu_trans);
menu_line = XtCreateManagedWidget("line", smeLineObjectClass, menushell,
NULL, 0);
item_1_arg[0].value = (XtArgVal)menu_line;
item_1 = XtCreateManagedWidget("item1", smeBSBObjectClass, menushell,
item_1_arg, XtNumber(item_1_arg));
XtAddCallback(item_1, "callback", msglogAction, (XtPointer)message_id);
item_2_arg[0].value = (XtArgVal)item_1;
item_2 = XtCreateManagedWidget("item2", smeBSBObjectClass, menushell,
item_2_arg, XtNumber(item_2_arg));
XtAddCallback(item_2, "callback", headersAction, (XtPointer)message_id);
item_3_arg[0].value = (XtArgVal)item_2;
item_3 = XtCreateManagedWidget("item3", smeBSBObjectClass, menushell,
item_3_arg, XtNumber(item_3_arg));
XtAddCallback(item_3, "callback", bodyAction, (XtPointer)message_id);
item_4_arg[0].value = (XtArgVal)item_3;
item_4 = XtCreateManagedWidget("item4", smeBSBObjectClass, menushell,
item_4_arg, XtNumber(item_4_arg));
XtAddCallback(item_4, "callback", deliverAction, (XtPointer)message_id);
item_5_arg[0].value = (XtArgVal)item_4;
item_5 = XtCreateManagedWidget("item5", smeBSBObjectClass, menushell,
item_5_arg, XtNumber(item_5_arg));
XtAddCallback(item_5, "callback", freezeAction, (XtPointer)message_id);
item_6_arg[0].value = (XtArgVal)item_5;
item_6 = XtCreateManagedWidget("item6", smeBSBObjectClass, menushell,
item_6_arg, XtNumber(item_6_arg));
XtAddCallback(item_6, "callback", thawAction, (XtPointer)message_id);
item_7_arg[0].value = (XtArgVal)item_6;
item_7 = XtCreateManagedWidget("item7", smeBSBObjectClass, menushell,
item_7_arg, XtNumber(item_7_arg));
XtAddCallback(item_7, "callback", giveupAction, (XtPointer)message_id);
item_8_arg[0].value = (XtArgVal)item_7;
item_8 = XtCreateManagedWidget("item8", smeBSBObjectClass, menushell,
item_8_arg, XtNumber(item_8_arg));
XtAddCallback(item_8, "callback", removeAction, (XtPointer)message_id);
item_9_arg[0].value = (XtArgVal)item_8;
item_9 = XtCreateManagedWidget("item9", smeBSBObjectClass, menushell,
item_9_arg, XtNumber(item_9_arg));
item_10_arg[0].value = (XtArgVal)item_9;
item_10 = XtCreateManagedWidget("item10", smeBSBObjectClass, menushell,
item_10_arg, XtNumber(item_10_arg));
XtAddCallback(item_10, "callback", addrecipAction, (XtPointer)message_id);
item_11_arg[0].value = (XtArgVal)item_10;
item_11 = XtCreateManagedWidget("item11", smeBSBObjectClass, menushell,
item_11_arg, XtNumber(item_11_arg));
XtAddCallback(item_11, "callback", markdelAction, (XtPointer)message_id);
item_12_arg[0].value = (XtArgVal)item_11;
item_12 = XtCreateManagedWidget("item12", smeBSBObjectClass, menushell,
item_12_arg, XtNumber(item_12_arg));
XtAddCallback(item_12, "callback", markalldelAction, (XtPointer)message_id);
item_13_arg[0].value = (XtArgVal)item_12;
item_13 = XtCreateManagedWidget("item13", smeBSBObjectClass, menushell,
item_13_arg, XtNumber(item_13_arg));
XtAddCallback(item_13, "callback", editsenderAction, (XtPointer)message_id);
/* Arrange that the menu pops up with the first item selected. */
xs_SetValues(menushell, 1, "popupOnEntry", item_1);
/* Flag that the menu is up to suppress queue updates. */
menu_is_up = TRUE;
}