/* Procedure to create a list */

/**************************************************************/

Widget SCreateList(parent,element,num_element,select_CB)
Widget parent;
char element[MAX_IMAG_NUMBER][80];
int num_element;
void (*select_CB)();
{
Widget list;
Arg args[MAX_ARGS];
int i;
XmString string_element[MAX_IMAG_NUMBER];

for (i=0;i string_element[i]=XmStringCreateLtoR(element[i],CHARSET);

i=0;
XtSetArg(args[i],XmNfontList,fontlist); i++;
XtSetArg(args[i],XmNselectionPolicy,XmSINGLE_SELECT); i++;
if (num_element) XtSetArg(args[i],XmNitems,string_element); i++;
if (num_element) XtSetArg(args[i],XmNitemCount,num_element); i++;
list=(Widget)XmCreateScrolledList(parent,NULL,args,i);

XtManageChild(list);

XtAddCallback(list,XmNdefaultActionCallback,select_CB,NULL);

for (i=0;i XmStringFree(string_element[i]);

return(list);
}