Crea una lista asociada a parent, conteniendo los elementos dados en el vector element, que contiene num_element items, y asocia una rutina para el caso de escoger uno de los elementos select_CB.
Devuelve el identificador.


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

/* 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);
}



Comentarios, críticas, sugerencias y demás a modesto@gias720.dis.ulpgc.es

The GIAS Group e-mail: gias@gias720.dis.ulpgc.es