Creando un campo de texto asociado a parent.
Devuelve el identificador.


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

/* Procedure to create a text */

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

Widget SCreateText(parent)
Widget parent;
{
Widget text;
Arg args[MAX_ARGS];
int n;

n=0;
XtSetArg(args[n],XmNfontList,fontlist); n++;
text=(Widget)XmCreateTextField(parent,"text",args,n);
XtManageChild(text);
return(text);
}



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

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