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