home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / E / TFF-A32R.LZX / AmigaE3.2a / Src / Tools / EasyGUI / examples / file.e < prev    next >
Encoding:
Text File  |  1996-06-06  |  478 b   |  24 lines
  1. -> filereq
  2.  
  3. OPT OSVERSION=37
  4. MODULE 'tools/EasyGUI'
  5.  
  6. PROC main() HANDLE
  7.   WriteF('result=\d\n',easygui('Select a file:',
  8.     [EQROWS,
  9.       [LISTV,0,NIL,1,5,NIL,0,NIL],
  10.       [STR,0,'Pattern','#?.e',200,10],
  11.       [STR,0,'Drawer','E:',200,10],
  12.       [STR,0,'File','',200,10],
  13.       [COLS,
  14.         [SBUTTON,1,'Ok'],
  15.         [SBUTTON,2,'Disks'],
  16.         [SBUTTON,3,'Parent'],
  17.         [SBUTTON,0,'Cancel']
  18.       ]
  19.     ],
  20.     0,0,0))
  21. EXCEPT
  22.   WriteF('"\s"\n',[exception,0])
  23. ENDPROC
  24.