Esta rutina crea un DialogShell, es decir, una ventana hija de parent, que nos permite navegar por el árbol de ficheros, inicializado en path, aplicando la selección a los ficheros cubiertos con mask. Esta ventana tiene botones de validez y cancelación, a cada uno de llos asociamos una rutina de ejecución si se activan.
Devuelve el identificador del widget creado.
Widget SCreateFilSelBox(parent,path,mask,okCB,cancelCB)
Widget parent;
char *path,*mask;
void (*okCB)();
void (*cancelCB)();
{
Widget fbox;
Arg args[MAX_ARGS];
int n;
XmString file_path,file_mask;

file_path=XmStringCreateLtoR(path,CHARSET);
file_mask=XmStringCreateLtoR(mask,CHARSET);

/* Create a file selection box */

n=0;
XtSetArg(args[n],XmNdirectory,file_path); n++;
XtSetArg(args[n],XmNpattern,file_mask); n++;
XtSetArg(args[n],XmNfontList,fontlist); n++;
fbox=XmCreateFileSelectionDialog(parent,"fbox",args,n);

/* Manage the selection box */

XtManageChild(fbox);

XmStringFree(file_path);
XmStringFree(file_mask);

if (okCB != NULL)
XtAddCallback(fbox,XmNokCallback,okCB,NULL);

if (cancelCB != NULL)
XtAddCallback(fbox,XmNcancelCallback,cancelCB,NULL);

return(fbox);
}

Comentarios, críticas, sugerencias y demás a modesto@gias720.dis.ulpgc.es
The GIAS Group e-mail: gias@gias720.dis.ulpgc.es