diff options
Diffstat (limited to 'src/gui_xmdlg.c')
-rw-r--r-- | src/gui_xmdlg.c | 1287 |
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') + { + int i; + char **names; + + names = XListFonts(XtDisplay(form), (char *) current, 1, &i); + + if (i != 0) + { + char name[TEMP_BUF_SIZE]; + char style[TEMP_BUF_SIZE]; + char size[TEMP_BUF_SIZE]; + char encoding[TEMP_BUF_SIZE]; + char *found; + + found = names[0]; + + name_part(found, name); + style_part(found, style); + size_part(found, size, data-&g |