home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / e / amigae30a_fr.lha / AmigaE30f / Sources / Tools / EasyGUI / Exemples / file.e < prev    next >
Encoding:
Text File  |  1994-10-06  |  489 b   |  24 lines
  1. -> filereq
  2.  
  3. OPT OSVERSION=37
  4. MODULE 'tools/EasyGUI'
  5.  
  6. PROC main() HANDLE
  7.   WriteF('résultat=\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,'répertoire','E:',200,10],
  12.       [STR,0,'Fichier','',200,10],
  13.       [COLS,
  14.         [SBUTTON,1,'Ok'],
  15.         [SBUTTON,2,'Disque'],
  16.         [SBUTTON,3,'Parent'],
  17.         [SBUTTON,0,'Arrêter']
  18.       ]
  19.     ],
  20.     0,0,0))
  21. EXCEPT
  22.   WriteF('"\s"\n',[exception,0])
  23. ENDPROC
  24.