Una rutina sencilla que nos crea una etiqueta dentro del elemento parent,con texto str.
Devuelve el identificador.


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

/* Procedure to create a label */

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

Widget SCreateLabel(parent,str)
Widget parent;
char *str;
{
Widget label;
XmString etiqueta;
Arg args[MAX_ARGS];
int n;

etiqueta=XmStringCreateLtoR(str,CHARSET);
n=0;
XtSetArg(args[n],XmNlabelString,etiqueta); n++;
XtSetArg(args[n],XmNfontList,fontlist); n++;
label=(Widget)XmCreateLabel(parent,"label",args,n);
XtManageChild(label);
XmStringFree(etiqueta);

return(label);
}



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

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