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