updated for version 7.0027

1 files changed, 1287 insertions, 0 deletions

diff --git a/src/gui_xmdlg.c b/src/gui_xmdlg.c
new file mode 100644
index 0000000000..3f1bd554fd
--- /dev/null
+++ b/src/gui_xmdlg.c
@@ -0,0 +1,1287 @@
+/* vi:set ts=8 sts=4 sw=4:
+ *
+ * VIM - Vi IMproved		by Bram Moolenaar
+ *				GUI/Motif support by Robert Webb
+ *
+ * Do ":help uganda"  in Vim to read copying and usage conditions.
+ * Do ":help credits" in Vim to see a list of people who contributed.
+ * See README.txt for an overview of the Vim source code.
+ */
+
+/*
+ * (C) 2001 by Marcin Dalecki <dalecki@evision.ag>
+ *
+ * Implementation of dialogue functions for the Motif GUI variant.
+ */
+
+#include <Xm/Form.h>
+#include <Xm/PushBG.h>
+#include <Xm/Text.h>
+#include <Xm/TextF.h>
+#include <Xm/Label.h>
+#include <Xm/Frame.h>
+#include <Xm/LabelG.h>
+#include <Xm/ToggleBG.h>
+#include <Xm/SeparatoG.h>
+#include <Xm/DialogS.h>
+#include <Xm/List.h>
+#include <Xm/RowColumn.h>
+#include <Xm/AtomMgr.h>
+#include <Xm/Protocols.h>
+
+#include <X11/keysym.h>
+#include <X11/Xatom.h>
+#include <X11/StringDefs.h>
+#include <X11/Intrinsic.h>
+
+#include "vim.h"
+
+extern Widget vimShell;
+
+#ifdef FEAT_MENU
+# define apply_fontlist(w) gui_motif_menu_fontlist(w)
+#else
+# define apply_fontlist(w)
+#endif
+
+/****************************************************************************
+ * Font selection dialogue implementation.
+ */
+
+static char wild[3] = "*";
+
+/*
+ * FIXME: This is a generic function, which should be used throughout the whole
+ * application.
+ *
+ * Add close_callback, which will be called when the user selects close from
+ * the window menu.  The close menu item usually activates f.kill which sends a
+ * WM_DELETE_WINDOW protocol request for the window.
+ */
+
+    static void
+add_cancel_action(Widget shell, XtCallbackProc close_callback, void *arg)
+{
+    static Atom wmp_atom = 0;
+    static Atom dw_atom = 0;
+    Display *display = XtDisplay(shell);
+
+    /* deactivate the built-in delete response of killing the application */
+    XtVaSetValues(shell, XmNdeleteResponse, XmDO_NOTHING, 0);
+
+    /* add a delete window protocol callback instead */
+    if (!dw_atom)
+    {
+	wmp_atom = XmInternAtom(display, "WM_PROTOCOLS", True);
+	dw_atom = XmInternAtom(display, "WM_DELETE_WINDOW", True);
+    }
+    XmAddProtocolCallback(shell, wmp_atom, dw_atom, close_callback, arg);
+}
+
+#define MAX_FONTS			65535
+#define MAX_FONT_NAME_LEN		256
+#define MAX_ENTRIES_IN_LIST		5000
+#define MAX_DISPLAY_SIZE		150
+#define TEMP_BUF_SIZE			256
+
+enum ListSpecifier
+{
+    ENCODING,
+    NAME,
+    STYLE,
+    SIZE,
+    NONE
+};
+
+typedef struct _SharedFontSelData
+{
+    Widget	dialog;
+    Widget	ok;
+    Widget	cancel;
+    Widget	encoding_pulldown;
+    Widget	encoding_menu;
+    Widget	list[NONE];
+    Widget	name;
+    Widget	sample;
+    char	**names;	/* font name array of arrays */
+    int		num;		/* number of font names */
+    String	sel[NONE];	/* selection category */
+    Boolean	in_pixels;	/* toggle state - size in pixels  */
+    char	*font_name;	/* current font name */
+    XFontStruct	*old;		/* font data structure for sample display */
+    XmFontList	old_list;	/* font data structure for sample display */
+    Boolean	exit;		/* used for program exit control */
+} SharedFontSelData;
+
+/*
+ * Checking access to the font name array for validity.
+ */
+    static char *
+fn(SharedFontSelData *data, int i)
+{
+    /* Assertion checks: */
+    if (data->num < 0)
+	abort();
+    if (i >= data->num)
+	i = data->num - 1;
+    if (i < 0)
+	i = 0;
+
+    return data->names[i];
+}
+
+/*
+ * Get a specific substring from a font name.
+ */
+    static void
+get_part(char *in, int pos, char *out)
+{
+    int	i;
+    int j;
+
+    *out = '\0';
+
+    for (i = 0; (pos > 0) && (in[i] != '\0'); ++i)
+	if (in[i] == '-')
+	    pos--;
+
+    if (in[i] == '\0')
+	return;
+
+    for (j = 0; (in[i] != '-') && (in[i] != '\0'); ++i, ++j)
+	out[j] = in[i];
+    out[j] = '\0';
+}
+
+/*
+ * Given a font name this function returns the part used in the first
+ * scroll list.
+ */
+    static void
+name_part(char *font, char *buf)
+{
+    char    buf2[TEMP_BUF_SIZE];
+    char    buf3[TEMP_BUF_SIZE];
+
+    get_part(font, 2, buf2);
+    get_part(font, 1, buf3);
+
+    if (strlen(buf3))
+	sprintf(buf, "%s (%s)", buf2, buf3);
+    else
+	sprintf(buf, "%s", buf2);
+}
+
+/*
+ * Given a font name this function returns the part used in the second scroll list.
+ */
+    static void
+style_part(char *font, char *buf)
+{
+    char    buf2[TEMP_BUF_SIZE];
+    char    buf3[TEMP_BUF_SIZE];
+
+    get_part(font, 3, buf3);
+    get_part(font, 5, buf2);
+
+    if (!strcmp(buf2, "normal") && !strcmp(buf2, "Normal")
+						   && !strcmp(buf2, "NORMAL"))
+	sprintf(buf, "%s %s", buf3, buf2);
+    else
+	strcpy(buf, buf3);
+
+    get_part(font, 6, buf2);
+
+    if (buf2[0] != '\0')
+	sprintf(buf3, "%s %s", buf, buf2);
+    else
+	strcpy(buf3, buf);
+
+    get_part(font, 4, buf2);
+
+    if (!strcmp(buf2, "o") || !strcmp(buf2, "O"))
+	sprintf(buf, "%s oblique", buf3);
+    else if (!strcmp(buf2, "i") || !strcmp(buf2, "I"))
+	sprintf(buf, "%s italic", buf3);
+
+    if (!strcmp(buf, " "))
+	strcpy(buf, "-");
+}
+
+/*
+ * Given a font name this function returns the part used in the third
+ * scroll list.
+ */
+    static void
+size_part(char *font, char *buf, int inPixels)
+{
+    int	    size;
+    float   temp;
+
+    *buf = '\0';
+
+    if (inPixels)
+    {
+	get_part(font, 7, buf);
+	if (strlen(buf) > 0)
+	{
+	    size = atoi(buf);
+	    sprintf(buf, "%3d", size);
+	}
+    }
+    else
+    {
+	get_part(font, 8, buf);
+	if (strlen(buf) > 0)
+	{
+	    size = atoi(buf);
+	    temp = (float)size / 10.0;
+	    size = temp;
+	    if (buf[strlen(buf) - 1] == '0')
+		sprintf(buf, "%3d", size);
+	    else
+		sprintf(buf, "%4.1f", temp);
+	}
+    }
+}
+
+/*
+ * Given a font name this function returns the part used in the choice menu.
+ */
+    static void
+encoding_part(char *font, char *buf)
+{
+    char    buf1[TEMP_BUF_SIZE];
+    char    buf2[TEMP_BUF_SIZE];
+
+    *buf = '\0';
+
+    get_part(font, 13, buf1);
+    get_part(font, 14, buf2);
+
+    if (strlen(buf1) > 0 && strlen(buf2))
+	sprintf(buf, "%s-%s", buf1, buf2);
+    if (!strcmp(buf, " "))
+	strcpy(buf, "-");
+}
+
+/*
+ * Inserts a string into correct sorted position in a list.
+ */
+    static void
+add_to_list(char **buf, char *item, int *count)
+{
+    int	i;
+    int j;
+
+    if (*count == MAX_ENTRIES_IN_LIST)
+	return;
+
+    /* avoid duplication */
+    for (i = 0; i < *count; ++i)
+    {
+	if (!strcmp(buf[i], item))
+	    return;
+    }
+
+    /* find order place, but make sure that wild card comes first */
+    if (!strcmp(item, wild))
+	i = 0;
+    else
+	for (i = 0; i < *count; ++i)
+	    if (strcmp(buf[i], item) > 0 && strcmp(buf[i], wild))
+		break;
+
+    /* now insert the item */
+    for (j = *count; j > i; --j)
+	buf[j] = buf[j-1];
+    buf[i] = XtNewString(item);
+
+    ++(*count);
+}
+
+/*
+ * True if the font matches some field.
+ */
+    static Boolean
+match(SharedFontSelData *data, enum ListSpecifier l, int i)
+{
+    char buf[TEMP_BUF_SIZE];
+
+    /* An empty selection or a wild card matches anything.
+     */
+    if (!data->sel[l] || !strcmp(data->sel[l], wild))
+	return True;
+
+    /* chunk out the desired part... */
+    switch (l)
+    {
+	case ENCODING:
+	    encoding_part(fn(data, i), buf);
+	    break;
+
+	case NAME:
+	    name_part(fn(data, i), buf);
+	    break;
+
+	case STYLE:
+	    style_part(fn(data, i), buf);
+	    break;
+
+	case SIZE:
+	    size_part(fn(data, i), buf, data->in_pixels);
+	    break;
+	default:
+	    ;
+    }
+
+    /* ...and chew it now */
+
+    return !strcmp(buf, data->sel[l]);
+}
+
+    static Boolean
+proportional(char *font)
+{
+    char buf[TEMP_BUF_SIZE];
+
+    get_part(font, 11, buf);
+
+    return !strcmp(buf, "p") || !strcmp(buf, "P");
+}
+
+
+static void encoding_callback(Widget w, SharedFontSelData *data,
+							     XtPointer dummy);
+
+/*
+ * Parse through the fontlist data and set up the three scroll lists.  The fix
+ * parameter can be used to exclude a list from any changes.  This is used for
+ * updates after selections caused by the users actions.
+ */
+    static void
+fill_lists(enum ListSpecifier fix, SharedFontSelData *data)
+{
+    char	*list[NONE][MAX_ENTRIES_IN_LIST];
+    int		count[NONE];
+    char	buf[TEMP_BUF_SIZE];
+    XmString	items[MAX_ENTRIES_IN_LIST];
+    int		i;
+    int		index;
+
+    for (index = (int)ENCODING; index < (int)NONE; ++index)
+	count[index] = 0;
+
+    /* First we insert the wild char into every single list. */
+    if (fix != ENCODING)
+	add_to_list(list[ENCODING], wild, &count[ENCODING]);
+    if (fix != NAME)
+	add_to_list(list[NAME], wild, &count[NAME]);
+    if (fix != STYLE)
+	add_to_list(list[STYLE], wild, &count[STYLE]);
+    if (fix != SIZE)
+	add_to_list(list[SIZE], wild, &count[SIZE]);
+
+    for (i = 0; i < data->num && i < MAX_ENTRIES_IN_LIST; i++)
+    {
+	if (proportional(fn(data, i)))
+	    continue;
+
+	if (fix != ENCODING
+		&& match(data, NAME, i)
+		&& match(data, STYLE, i)
+		&& match(data, SIZE, i))
+	{
+	    encoding_part(fn(data, i), buf);
+	    add_to_list(list[ENCODING], buf, &count[ENCODING]);
+	}
+
+	if (fix != NAME
+		&& match(data, ENCODING, i)
+		&& match(data, STYLE, i)
+		&& match(data, SIZE, i))
+	{
+	    name_part(fn(data, i), buf);
+	    add_to_list(list[NAME], buf, &count[NAME]);
+	}
+
+	if (fix != STYLE
+		&& match(data, ENCODING, i)
+		&& match(data, NAME, i)
+		&& match(data, SIZE, i))
+	{
+	    style_part(fn(data, i), buf);
+	    add_to_list(list[STYLE], buf, &count[STYLE]);
+	}
+
+	if (fix != SIZE
+		&& match(data, ENCODING, i)
+		&& match(data, NAME, i)
+		&& match(data, STYLE, i))
+	{
+	    size_part(fn(data, i), buf, data->in_pixels);
+	    add_to_list(list[SIZE], buf, &count[SIZE]);
+	}
+    }
+
+    /*
+     * And now do the preselection in all lists where there was one:
+     */
+
+    if (fix != ENCODING)
+    {
+	Cardinal n_items;
+	WidgetList children;
+	Widget selected_button = 0;
+
+	/* Get and update the current button list.  */
+	XtVaGetValues(data->encoding_pulldown,
+		XmNchildren, &children,
+		XmNnumChildren, &n_items,
+		NULL);
+
+	for (i = 0; i < count[ENCODING]; ++i)
+	{
+	    Widget button;
+
+	    items[i] = XmStringCreateLocalized(list[ENCODING][i]);
+
+	    if (i < n_items)
+	    {
+		/* recycle old button */
+		XtVaSetValues(children[i],
+			XmNlabelString, items[i],
+			XmNuserData, i,
+			NULL);
+		button = children[i];
+	    }
+	    else
+	    {
+		/* create a new button */
+		button = XtVaCreateManagedWidget("button",
+			xmPushButtonGadgetClass,
+			data->encoding_pulldown,
+			XmNlabelString, items[i],
+			XmNuserData, i,
+			NULL);
+		XtAddCallback(button, XmNactivateCallback,
+			(XtCallbackProc) encoding_callback, (XtPointer) data);
+		XtManageChild(button);
+	    }
+
+	    if (data->sel[ENCODING])
+	    {
+		if (!strcmp(data->sel[ENCODING], list[ENCODING][i]))
+		    selected_button = button;
+	    }
+	    XtFree(list[ENCODING][i]);
+	}
+
+	/* Destroy all the outstandig menu items.
+	 */
+	for (i = count[ENCODING]; i < n_items; ++i)
+	{
+	    XtUnmanageChild(children[i]);
+	    XtDestroyWidget(children[i]);
+	}
+
+	/* Preserve the current selection visually.
+	 */
+	if (selected_button)
+	{
+	    XtVaSetValues(data->encoding_menu,
+		    XmNmenuHistory, selected_button,
+		    NULL);
+	}
+
+	for (i = 0; i < count[ENCODING]; ++i)
+	    XmStringFree(items[i]);
+    }
+
+    /*
+     * Now loop trough the remaining lists and set them up.
+     */
+    for (index = (int)NAME; index < (int)NONE; ++index)
+    {
+	Widget w;
+
+	if (fix == (enum ListSpecifier)index)
+	    continue;
+
+	switch ((enum ListSpecifier)index)
+	{
+	    case NAME:
+		w = data->list[NAME];
+		break;
+	    case STYLE:
+		w = data->list[STYLE];
+		break;
+	    case SIZE:
+		w = data->list[SIZE];
+		break;
+	    default:
+		w = (Widget)0;	/* for lint */
+	}
+
+	for (i = 0; i < count[index]; ++i)
+	{
+	    items[i] = XmStringCreateLocalized(list[index][i]);
+	    XtFree(list[index][i]);
+	}
+	XmListDeleteAllItems(w);
+	XmListAddItems(w, items, count[index], 1);
+	if (data->sel[index])
+	{
+	    XmStringFree(items[0]);
+	    items[0] = XmStringCreateLocalized(data->sel[index]);
+	    XmListSelectItem(w, items[0], False);
+	    XmListSetBottomItem(w, items[0]);
+	}
+	for (i = 0; i < count[index]; ++i)
+	    XmStringFree(items[i]);
+    }
+}
+
+/*ARGSUSED*/
+    static void
+stoggle_callback(Widget w,
+	SharedFontSelData *data,
+	XmToggleButtonCallbackStruct *call_data)
+{
+    int		i, do_sel;
+    char	newSize[10];
+    XmString	str;
+
+    if (call_data->reason != (int)XmCR_VALUE_CHANGED)
+	return;
+
+    do_sel = (data->sel[SIZE] != NULL) && strcmp(data->sel[SIZE], wild);
+
+    for (i = 0; do_sel && (i < data->num); i++)
+	if (match(data, ENCODING, i)
+		&& match(data, NAME, i)
+		&& match(data, STYLE, i)
+		&& match(data, SIZE, i))
+	{
+	    size_part(fn(data, i), newSize, !data->in_pixels);
+	    break;
+	}
+
+    data->in_pixels = !data->in_pixels;
+
+    if (data->sel[SIZE])
+	XtFree(data->sel[SIZE]);
+    data->sel[SIZE] = NULL;
+    fill_lists(NONE, data);
+
+    if (do_sel)
+    {
+	str = XmStringCreateLocalized(newSize);
+	XmListSelectItem(data->list[SIZE], str, True);
+	XmListSetBottomItem(data->list[SIZE], str);
+	XmStringFree(str);
+    }
+}
+
+/*
+ * Show the currently selected font in the sample text label.
+ */
+    static void
+display_sample(SharedFontSelData *data)
+{
+    Arg		    args[2];
+    int		    n;
+    XFontStruct	*   font;
+    XmFontList	    font_list;
+    Display *	    display;
+    XmString	    str;
+
+    display = XtDisplay(data->dialog);
+    font = XLoadQueryFont(display, data->font_name);
+    font_list = gui_motif_create_fontlist(font);
+
+    n = 0;
+    str = XmStringCreateLocalized("AaBbZzYy 0123456789");
+    XtSetArg(args[n], XmNlabelString, str); n++;
+    XtSetArg(args[n], XmNfontList, font_list); n++;
+
+    XtSetValues(data->sample, args, n);
+    XmStringFree(str);
+
+    if (data->old)
+    {
+	XFreeFont(display, data->old);
+	XmFontListFree(data->old_list);
+    }
+    data->old = font;
+    data->old_list = font_list;
+}
+
+
+    static Boolean
+do_choice(Widget w,
+	SharedFontSelData *data,
+	XmListCallbackStruct *call_data,
+	enum ListSpecifier which)
+{
+    char *sel;
+
+    XmStringGetLtoR(call_data->item, XmSTRING_DEFAULT_CHARSET, &sel);
+
+    if (!data->sel[which])
+	data->sel[which] = XtNewString(sel);
+    else
+    {
+	XtFree(data->sel[which]);
+	if (!strcmp(data->sel[which], sel))
+	{
+	    /* unselecting current selection */
+	    data->sel[which] = NULL;
+	    if (w)
+		XmListDeselectItem(w, call_data->item);
+	}
+	else
+	    data->sel[which] = XtNewString(sel);
+    }
+    XtFree(sel);
+
+    fill_lists(which, data);
+
+    /* If there is a font selection, we display it. */
+    if (data->sel[ENCODING]
+	    && data->sel[NAME]
+	    && data->sel[STYLE]
+	    && data->sel[SIZE]
+	    && strcmp(data->sel[ENCODING], wild)
+	    && strcmp(data->sel[NAME], wild)
+	    && strcmp(data->sel[STYLE], wild)
+	    && strcmp(data->sel[SIZE], wild))
+    {
+	int i;
+
+	if (data->font_name)
+	    XtFree(data->font_name);
+	data->font_name = NULL;
+
+	for (i = 0; i < data->num; i++)
+	{
+	    if (match(data, ENCODING, i)
+		    && match(data, NAME, i)
+		    && match(data, STYLE, i)
+		    && match(data, SIZE, i))
+	    {
+		data->font_name = XtNewString(fn(data, i));
+		break;
+	    }
+	}
+
+	if (data->font_name)
+	{
+	    XmTextSetString(data->name, data->font_name);
+	    display_sample(data);
+	}
+	else
+	    do_dialog(VIM_ERROR,
+		    (char_u *)_("Error"),
+		    (char_u *)_("Invalid font specification"),
+		    (char_u *)_("&Dismiss"), 1, NULL);
+
+	return True;
+    }
+    else
+    {
+	int	    n;
+	XmString    str;
+	Arg	    args[4];
+	char	    *msg = _("no specific match");
+
+	n = 0;
+	str = XmStringCreateLocalized(msg);
+	XtSetArg(args[n], XmNlabelString, str); ++n;
+	XtSetValues(data->sample, args, n);
+	apply_fontlist(data->sample);
+	XmTextSetString(data->name, msg);
+	XmStringFree(str);
+
+	return False;
+    }
+}
+
+/*ARGSUSED*/
+    static void
+encoding_callback(Widget w,
+	SharedFontSelData *data,
+	XtPointer dummy)
+{
+    XmString str;
+    XmListCallbackStruct fake_data;
+
+    XtVaGetValues(w, XmNlabelString, &str, NULL);
+
+    if (!str)
+	return;
+
+    fake_data.item = str;
+
+    do_choice(0, data, &fake_data, ENCODING);
+}
+
+    static void
+name_callback(Widget w,
+	SharedFontSelData *data,
+	XmListCallbackStruct *call_data)
+{
+    do_choice(w, data, call_data, NAME);
+}
+
+    static void
+style_callback(Widget w,
+	SharedFontSelData *data,
+	XmListCallbackStruct *call_data)
+{
+    do_choice(w, data, call_data, STYLE);
+}
+
+    static void
+size_callback(Widget w,
+	SharedFontSelData *data,
+	XmListCallbackStruct *call_data)
+{
+    do_choice(w, data, call_data, SIZE);
+}
+
+/*ARGSUSED*/
+    static void
+cancel_callback(Widget w,
+	SharedFontSelData *data,
+	XmListCallbackStruct *call_data)
+{
+    if (data->sel[ENCODING])
+    {
+	XtFree(data->sel[ENCODING]);
+	data->sel[ENCODING] = NULL;
+    }
+    if (data->sel[NAME])
+    {
+	XtFree(data->sel[NAME]);
+	data->sel[NAME] = NULL;
+    }
+    if (data->sel[STYLE])
+    {
+	XtFree(data->sel[STYLE]);
+	data->sel[STYLE] = NULL;
+    }
+    if (data->sel[SIZE])
+    {
+	XtFree(data->sel[SIZE]);
+	data->sel[SIZE] = NULL;
+    }
+
+    if (data->font_name)
+	XtFree(data->font_name);
+    data->font_name = NULL;
+
+    data->num = 0;
+    XFreeFontNames(data->names);
+    data->names = NULL;
+    data->exit = True;
+}
+
+/*ARGSUSED*/
+    static void
+ok_callback(Widget w,
+	SharedFontSelData *data,
+	XmPushButtonCallbackStruct *call_data)
+{
+    char    *pattern;
+    char    **name;
+    int	    i;
+
+    pattern = XmTextGetString(data->name);
+    name    = XListFonts(XtDisplay(data->dialog), pattern, 1, &i);
+    XtFree(pattern);
+
+    if (i != 1)
+    {
+	do_dialog(VIM_ERROR,
+		(char_u *)_("Error"),
+		(char_u *)_("Invalid font specification"),
+		(char_u *)_("&Dismiss"), 1, NULL);
+	XFreeFontNames(name);
+    }
+    else
+    {
+	if (data->font_name)
+	    XtFree(data->font_name);
+	data->font_name = XtNewString(name[0]);
+
+	if (data->sel[ENCODING])
+	{
+	    XtFree(data->sel[ENCODING]);
+	    data->sel[ENCODING] = NULL;
+	}
+	if (data->sel[NAME])
+	{
+	    XtFree(data->sel[NAME]);
+	    data->sel[NAME] = NULL;
+	}
+	if (data->sel[STYLE])
+	{
+	    XtFree(data->sel[STYLE]);
+	    data->sel[STYLE] = NULL;
+	}
+	if (data->sel[SIZE])
+	{
+	    XtFree(data->sel[SIZE]);
+	    data->sel[SIZE] = NULL;
+	}
+
+	XFreeFontNames(name);
+
+	data->num = 0;
+	XFreeFontNames(data->names);
+	data->names = NULL;
+	data->exit = True;
+    }
+}
+
+/*
+ * Returns pointer to an ASCII character string that contains the name of the
+ * selected font (in X format for naming fonts); it is the users responsibility
+ * to free the space allocated to this string.
+ */
+    char_u *
+gui_xm_select_font(char_u *current)
+{
+    static SharedFontSelData	_data;
+
+    Widget		parent;
+    Widget		form;
+    Widget		separator;
+    Widget		sub_form;
+    Widget		size_toggle;
+    Widget		name;
+    Widget		disp_frame;
+    Widget		frame;
+    Arg			args[64];
+    int			n;
+    XmString		str;
+    char		big_font[MAX_FONT_NAME_LEN];
+    SharedFontSelData	*data;
+
+    data = &_data;
+
+    parent = vimShell;
+    data->names = XListFonts(XtDisplay(parent), "-*-*-*-*-*-*-*-*-*-*-*-*-*-*",
+						       MAX_FONTS, &data->num);
+
+    /*
+     * Find the name of the biggest font less than the given limit
+     * MAX_DISPLAY_SIZE used to set up the initial height of the display
+     * widget.
+     */
+
+    {
+	int	i;
+	int	max;
+	int	index = 0;
+	int	size;
+	char	str[128];
+
+	for (i = 0, max = 0; i < data->num; i++)
+	{
+	    get_part(fn(data, i), 7, str);
+	    size = atoi(str);
+	    if ((size > max) && (size < MAX_DISPLAY_SIZE))
+	    {
+		index = i;
+		max = size;
+	    }
+	}
+	strcpy(big_font, fn(data, index));
+    }
+    data->old = XLoadQueryFont(XtDisplay(parent), big_font);
+    data->old_list = gui_motif_create_fontlist(data->old);
+
+    /* Set the title of the Dialog window. */
+    data->dialog = XmCreateDialogShell(parent, "fontSelector", NULL, 0);
+    str = XmStringCreateLocalized(_("Vim - Font Selector"));
+
+    /* Create form popup dialog widget. */
+    form = XtVaCreateWidget("form",
+	    xmFormWidgetClass, data->dialog,
+	    XmNdialogTitle, str,
+	    XmNautoUnmanage, False,
+	    XmNdialogStyle, XmDIALOG_FULL_APPLICATION_MODAL,
+	    NULL);
+    XmStringFree(str);
+
+    sub_form = XtVaCreateManagedWidget("subForm",
+	    xmFormWidgetClass, form,
+	    XmNbottomAttachment, XmATTACH_FORM,
+	    XmNbottomOffset, 4,
+	    XmNrightAttachment, XmATTACH_FORM,
+	    XmNrightOffset, 4,
+	    XmNtopAttachment, XmATTACH_FORM,
+	    XmNtopOffset, 4,
+	    XmNorientation, XmVERTICAL,
+	    NULL);
+
+    data->ok = XtVaCreateManagedWidget(_("OK"),
+	    xmPushButtonGadgetClass, sub_form,
+	    XmNleftAttachment, XmATTACH_FORM,
+	    XmNrightAttachment, XmATTACH_FORM,
+	    XmNtopAttachment, XmATTACH_FORM,
+	    XmNtopOffset, 4,
+	    NULL);
+    apply_fontlist(data->ok);
+
+    data->cancel = XtVaCreateManagedWidget(_("Cancel"),
+	    xmPushButtonGadgetClass, sub_form,
+	    XmNrightAttachment, XmATTACH_FORM,
+	    XmNleftAttachment, XmATTACH_FORM,
+	    XmNtopAttachment, XmATTACH_WIDGET,
+	    XmNtopWidget, data->ok,
+	    XmNtopOffset, 4,
+	    XmNshowAsDefault, True,
+	    NULL);
+    apply_fontlist(data->cancel);
+
+    /* Create the separator for beauty. */
+    n = 0;
+    XtSetArg(args[n], XmNorientation, XmVERTICAL); n++;
+    XtSetArg(args[n], XmNbottomAttachment, XmATTACH_FORM); n++;
+    XtSetArg(args[n], XmNtopAttachment, XmATTACH_FORM); n++;
+    XtSetArg(args[n], XmNrightAttachment, XmATTACH_WIDGET); n++;
+    XtSetArg(args[n], XmNrightWidget, sub_form); n++;
+    XtSetArg(args[n], XmNrightOffset, 4); n++;
+    separator = XmCreateSeparatorGadget(form, "separator", args, n);
+    XtManageChild(separator);
+
+    /* Create font name text widget and the corresponding label. */
+    data->name = XtVaCreateManagedWidget("fontName",
+	    xmTextWidgetClass, form,
+	    XmNbottomAttachment, XmATTACH_FORM,
+	    XmNbottomOffset, 4,
+	    XmNleftAttachment, XmATTACH_FORM,
+	    XmNleftOffset, 4,
+	    XmNrightAttachment, XmATTACH_WIDGET,
+	    XmNrightWidget, separator,
+	    XmNrightOffset, 4,
+	    XmNeditable, False,
+	    XmNeditMode, XmSINGLE_LINE_EDIT,
+	    XmNmaxLength, MAX_FONT_NAME_LEN,
+	    XmNcolumns, 60,
+	    NULL);
+
+    str = XmStringCreateLocalized(_("Name:"));
+    name = XtVaCreateManagedWidget("fontNameLabel",
+	    xmLabelGadgetClass, form,
+	    XmNlabelString, str,
+	    XmNuserData, data->name,
+	    XmNleftAttachment, XmATTACH_OPPOSITE_WIDGET,
+	    XmNleftWidget, data->name,
+	    XmNbottomAttachment, XmATTACH_WIDGET,
+	    XmNbottomWidget, data->name,
+	    XmNtopOffset, 1,
+	    NULL);
+    XmStringFree(str);
+    apply_fontlist(name);
+
+    /* create sample display label widget */
+    disp_frame = XtVaCreateManagedWidget("sampleFrame",
+	    xmFrameWidgetClass, form,
+	    XmNshadowType, XmSHADOW_ETCHED_IN,
+	    XmNleftAttachment, XmATTACH_FORM,
+	    XmNleftOffset, 4,
+	    XmNbottomAttachment, XmATTACH_WIDGET,
+	    XmNbottomWidget, name,
+	    XmNrightAttachment, XmATTACH_WIDGET,
+	    XmNrightWidget, separator,
+	    XmNrightOffset, 4,
+	    XmNalignment, XmALIGNMENT_BEGINNING,
+	    NULL);
+
+    data->sample = XtVaCreateManagedWidget("sampleLabel",
+	    xmLabelWidgetClass, disp_frame,
+	    XmNleftAttachment, XmATTACH_FORM,
+	    XmNtopAttachment, XmATTACH_FORM,
+	    XmNbottomAttachment, XmATTACH_FORM,
+	    XmNrightAttachment, XmATTACH_FORM,
+	    XmNalignment, XmALIGNMENT_BEGINNING,
+	    XmNrecomputeSize, False,
+	    XmNfontList, data->old_list,
+	    NULL);
+
+    /* create toggle button */
+    str = XmStringCreateLocalized(_("Show size in Points"));
+    size_toggle = XtVaCreateManagedWidget("sizeToggle",
+	    xmToggleButtonGadgetClass, form,
+	    XmNlabelString, str,
+	    XmNleftAttachment, XmATTACH_FORM,
+	    XmNleftOffset, 4,
+	    XmNbottomAttachment, XmATTACH_WIDGET,
+	    XmNbottomWidget, disp_frame,
+	    XmNbottomOffset, 4,
+	    NULL);
+    XmStringFree(str);
+    apply_fontlist(size_toggle);
+    XtManageChild(size_toggle);
+
+    /* Encoding pulldown menu.
+     */
+
+    data->encoding_pulldown = XmCreatePulldownMenu(form,
+						 "encodingPulldown", NULL, 0);
+    str = XmStringCreateLocalized(_("Encoding:"));
+    n = 0;
+    XtSetArg(args[n], XmNsubMenuId, data->encoding_pulldown); ++n;
+    XtSetArg(args[n], XmNlabelString, str); ++n;
+    XtSetArg(args[n], XmNleftAttachment, XmATTACH_FORM); ++n;
+    XtSetArg(args[n], XmNleftOffset, 4); ++n;
+    XtSetArg(args[n], XmNbottomAttachment, XmATTACH_WIDGET); ++n;
+    XtSetArg(args[n], XmNbottomWidget, size_toggle); ++n;
+    XtSetArg(args[n], XmNbottomOffset, 4); ++n;
+    XtSetArg(args[n], XmNrightAttachment, XmATTACH_WIDGET); ++n;
+    XtSetArg(args[n], XmNrightWidget, separator); ++n;
+    XtSetArg(args[n], XmNrightOffset, 4); ++n;
+    data->encoding_menu = XmCreateOptionMenu(form, "encodingMenu", args, n);
+    XmStringFree(str);
+    XmAddTabGroup(data->encoding_menu);
+
+    /*
+     * Create scroll list widgets in a separate subform used to manage the
+     * different sizes of the lists.
+     */
+
+    sub_form = XtVaCreateManagedWidget("subForm",
+	    xmFormWidgetClass, form,
+	    XmNbottomAttachment, XmATTACH_WIDGET,
+	    XmNbottomWidget, data->encoding_menu,
+	    XmNbottomOffset, 4,
+	    XmNleftAttachment, XmATTACH_FORM,
+	    XmNleftOffset, 4,
+	    XmNrightAttachment, XmATTACH_WIDGET,
+	    XmNrightWidget, separator,
+	    XmNrightOffset, 4,
+	    XmNtopAttachment, XmATTACH_FORM,
+	    XmNtopOffset, 2,
+	    XmNorientation, XmVERTICAL,
+	    NULL);
+
+    /* font list */
+    frame = XtVaCreateManagedWidget("frame", xmFrameWidgetClass, sub_form,
+	    XmNshadowThickness, 0,
+	    XmNtopAttachment, XmATTACH_FORM,
+	    XmNbottomAttachment, XmATTACH_FORM,
+	    XmNleftAttachment, XmATTACH_FORM,
+	    XmNrightAttachment, XmATTACH_POSITION,
+	    XmNrightPosition, 50,
+	    NULL);
+
+    str = XmStringCreateLocalized(_("Font:"));
+    name = XtVaCreateManagedWidget("nameListLabel", xmLabelGadgetClass, frame,
+	    XmNchildType, XmFRAME_TITLE_CHILD,
+	    XmNchildVerticalAlignment, XmALIGNMENT_CENTER,
+	    XmNchildHorizontalAlignment, XmALIGNMENT_BEGINNING,
+	    XmNlabelString, str,
+	    NULL);
+    XmStringFree(str);
+    apply_fontlist(name);
+
+    n = 0;
+    XtSetArg(args[n], XmNvisibleItemCount, 8); ++n;
+    XtSetArg(args[n], XmNresizable, True); ++n;
+    XtSetArg(args[n], XmNlistSizePolicy, XmCONSTANT); ++n;
+    XtSetArg(args[n], XmNvisualPolicy, XmVARIABLE); ++n;
+#ifdef LESSTIF_VERSION
+    XtSetArg(args[n], XmNscrollBarDisplayPolicy, XmSTATIC); ++n;
+#endif
+    data->list[NAME] = XmCreateScrolledList(frame, "fontList", args, n);
+    XtVaSetValues(name, XmNuserData, data->list[NAME], NULL);
+
+    /* style list */
+    frame = XtVaCreateManagedWidget("frame", xmFrameWidgetClass, sub_form,
+	    XmNshadowThickness, 0,
+	    XmNtopAttachment, XmATTACH_FORM,
+	    XmNbottomAttachment, XmATTACH_FORM,
+	    XmNleftAttachment, XmATTACH_POSITION,
+	    XmNleftPosition, 50,
+	    XmNleftOffset, 4,
+	    XmNrightAttachment, XmATTACH_POSITION,
+	    XmNrightPosition, 80,
+	    NULL);
+
+    str = XmStringCreateLocalized(_("Style:"));
+    name = XtVaCreateManagedWidget("styleListLabel", xmLabelWidgetClass, frame,
+	    XmNchildType, XmFRAME_TITLE_CHILD,
+	    XmNchildVerticalAlignment, XmALIGNMENT_CENTER,
+	    XmNchildHorizontalAlignment, XmALIGNMENT_BEGINNING,
+	    XmNlabelString, str,
+	    NULL);
+    XmStringFree(str);
+    apply_fontlist(name);
+
+    n = 0;
+    XtSetArg(args[n], XmNvisibleItemCount, 8); ++n;
+    XtSetArg(args[n], XmNresizable, True); ++n;
+    XtSetArg(args[n], XmNlistSizePolicy, XmCONSTANT); ++n;
+    XtSetArg(args[n], XmNvisualPolicy, XmVARIABLE); ++n;
+#ifdef LESSTIF_VERSION
+    XtSetArg(args[n], XmNscrollBarDisplayPolicy, XmSTATIC); ++n;
+#endif
+    data->list[STYLE] = XmCreateScrolledList(frame, "styleList", args, n);
+    XtVaSetValues(name, XmNuserData, data->list[STYLE], NULL);
+
+    /* size list */
+    frame = XtVaCreateManagedWidget("frame", xmFrameWidgetClass, sub_form,
+	    XmNshadowThickness, 0,
+	    XmNtopAttachment, XmATTACH_FORM,
+	    XmNbottomAttachment, XmATTACH_FORM,
+	    XmNleftAttachment, XmATTACH_POSITION,
+	    XmNleftPosition, 80,
+	    XmNleftOffset, 4,
+	    XmNrightAttachment, XmATTACH_FORM,
+	    NULL);
+
+    str = XmStringCreateLocalized(_("Size:"));
+    name = XtVaCreateManagedWidget("sizeListLabel", xmLabelGadgetClass, frame,
+	    XmNchildType, XmFRAME_TITLE_CHILD,
+	    XmNchildVerticalAlignment, XmALIGNMENT_CENTER,
+	    XmNchildHorizontalAlignment, XmALIGNMENT_BEGINNING,
+	    XmNlabelString, str,
+	    NULL);
+    XmStringFree(str);
+    apply_fontlist(name);
+
+    n = 0;
+    XtSetArg(args[n], XmNvisibleItemCount, 8); ++n;
+    XtSetArg(args[n], XmNresizable, True); ++n;
+    XtSetArg(args[n], XmNlistSizePolicy, XmCONSTANT); ++n;
+    XtSetArg(args[n], XmNvisualPolicy, XmVARIABLE); ++n;
+#ifdef LESSTIF_VERSION
+    XtSetArg(args[n], XmNscrollBarDisplayPolicy, XmSTATIC); ++n;
+#endif
+    data->list[SIZE] = XmCreateScrolledList(frame, "sizeList", args, n);
+    XtVaSetValues(name, XmNuserData, data->list[SIZE], NULL);
+
+    /* update form widgets cancel button */
+    XtVaSetValues(form, XmNcancelButton, data->cancel, NULL);
+
+    XtAddCallback(size_toggle, XmNvalueChangedCallback,
+	    (XtCallbackProc)stoggle_callback, (XtPointer)data);
+    XtAddCallback(data->list[NAME], XmNbrowseSelectionCallback,
+	    (XtCallbackProc)name_callback, (XtPointer)data);
+    XtAddCallback(data->list[STYLE], XmNbrowseSelectionCallback,
+	    (XtCallbackProc)style_callback, (XtPointer)data);
+    XtAddCallback(data->list[SIZE], XmNbrowseSelectionCallback,
+	    (XtCallbackProc)size_callback, (XtPointer)data);
+    XtAddCallback(data->ok, XmNactivateCallback,
+	    (XtCallbackProc)ok_callback, (XtPointer)data);
+    XtAddCallback(data->cancel, XmNactivateCallback,
+	    (XtCallbackProc)cancel_callback, (XtPointer)data);
+
+    XmProcessTraversal(data->list[NAME], XmTRAVERSE_CURRENT);
+
+    /* setup tabgroups */
+
+    XmAddTabGroup(data->list[NAME]);
+    XmAddTabGroup(data->list[STYLE]);
+    XmAddTabGroup(data->list[SIZE]);
+    XmAddTabGroup(size_toggle);
+    XmAddTabGroup(data->name);
+    XmAddTabGroup(data->ok);
+    XmAddTabGroup(data->cancel);
+
+    add_cancel_action(data->dialog, (XtCallbackProc)cancel_callback, data);
+
+    /* Preset selection data. */
+
+    data->exit = False;
+    data->in_pixels= True;
+    data->sel[ENCODING] = NULL;
+    data->sel[NAME] = NULL;
+    data->sel[STYLE] = NULL;
+    data->sel[SIZE] = NULL;
+    data->font_name = NULL;
+
+    /* set up current font parameters */
+    if (current && current[0] != '\0')
+    {