#include <exec/types.h>
#include <intuition/intuition.h>
#include <libraries/dosextens.h>
#include <functions.h>
#include "rctdef.h"

#define I_REV	 31
#define G_REV	 31


/* Compilieren mit AZTEC-C 5.0 */
/* cc filereq.c					 */
/* ln filereq.o -lc				 */


struct IntuitionBase *IntuitionBase;
struct GfxBase  { int b; } *GfxBase;
APTR RctBase; /* Lib Base Pointer */


struct RCTFileRequester MyFileReqStruct;
char filename[FCHARS];
char directoryname[DSIZE];

char	answerarray[DSIZE+FCHARS];

main()
{
char string[100];

if( ! (IntuitionBase = (struct IntuitionBase *)OpenLibrary("intuition.library",(long)I_REV)) ||
	 ! (GfxBase =(struct GfxBase *)OpenLibrary("graphics.library",(long)G_REV)) ||
	 ! (RctBase =(APTR)OpenLibrary("rct.library",15L)) )
  {
  printf("Can't open libraries\n");
  exit(20);
  }

strcpy(directoryname,"");
answerarray[0] = 0;
MyFileReqStruct.Title = "Wie gefällts euch?";
MyFileReqStruct.detailcolor = 1;
MyFileReqStruct.blockcolor = 4;
MyFileReqStruct.PathName = answerarray;
MyFileReqStruct.Dir = directoryname;
MyFileReqStruct.File = filename;
MyFileReqStruct.Flags = FRQLOADINGM| FRQABSOLUTEXYM;
MyFileReqStruct.WindowLeftEdge = 100L;
MyFileReqStruct.WindowTopEdge =20L;
MyFileReqStruct.filenamescolor = 1;
MyFileReqStruct.dirnamescolor = 2;
MyFileReqStruct.devicenamescolor = 2;
MyFileReqStruct.gadgettextcolor = 1;
MyFileReqStruct.Window = NULL;		 /* Window requesting or NULL */
strcpy(MyFileReqStruct.Hide, "#?.info");		/* The wildcards text. */


if(filer(&MyFileReqStruct))
  sprintf(string,"[2][Filer mit OK beendet.|Gewählter Pfad|%s][WIESCHÖN|ACHJA]",answerarray);
else
  sprintf(string,"[1][Abbruch gewählt!][SCHADE]");

form_alert(1,string);

CloseLibrary(GfxBase);
CloseLibrary(IntuitionBase);
CloseLibrary(RctBase);
}