static void fontAction(Widget widget, xfselControlBlkType *ctrlBlk,
XmListCallbackStruct *call_data)
{
char *sel;
XmStringGetLtoR(call_data->item, XmSTRING_DEFAULT_CHARSET, &sel);
if (ctrlBlk->sel1 == NULL)
{
ctrlBlk->sel1 = XtMalloc(strlen(sel) + 1);
strcpy(ctrlBlk->sel1, sel);
}
else
{
if (strcmp(ctrlBlk->sel1, sel) == 0)
{ /* Unselecting current selection */
XtFree(ctrlBlk->sel1);
ctrlBlk->sel1 = NULL;
XmListDeselectItem(widget, call_data->item);
}
else
{
XtFree(ctrlBlk->sel1);
ctrlBlk->sel1 = XtMalloc(strlen(sel) + 1);
strcpy(ctrlBlk->sel1, sel);
}
}
XtFree(sel);
setupScrollLists(FONT, *ctrlBlk);
if ((ctrlBlk->sel1 != NULL) && (ctrlBlk->sel2 != NULL) &&
(ctrlBlk->sel3 != NULL))
choiceMade(ctrlBlk);
else
{
enableSample(ctrlBlk, False, NULL);
XmTextSetString(ctrlBlk->fontNameField, "");
}
}
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
{
if (!strcmp(data->sel[which], sel))
{
/* unselecting current selection */
XtFree(data->sel[which]);
data->sel[which] = NULL;
if (w)
XmListDeselectItem(w, call_data->item);
}
else
{
XtFree(data->sel[which]);
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 *nomatch_msg = _("no specific match");
n = 0;
str = XmStringCreateLocalized(nomatch_msg);
XtSetArg(args[n], XmNlabelString, str); ++n;
XtSetValues(data->sample, args, n);
apply_fontlist(data->sample);
XmTextSetString(data->name, nomatch_msg);
XmStringFree(str);
return False;
}
}
