home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / e / amigae30a_fr.lha / AmigaE30f / Sources / Reqs / AslDemo.e next >
Encoding:
Text File  |  1994-11-27  |  680 b   |  26 lines
  1. /* Une démo pour utiliser d'autres bibliothèques (Kick 2.0) en E.
  2.    On va afficher une requête de fichier de l'asl.library.       */
  3.  
  4. MODULE 'Asl', 'libraries/Asl'
  5.  
  6. DEF req:PTR TO filerequester
  7.  
  8. PROC main()
  9.   IF aslbase:=OpenLibrary('asl.library',37)
  10.     IF req:=AllocFileRequest()
  11.       WriteF('Pick a file:\n')
  12.       IF RequestFile(req)
  13.         WriteF('Devinez quoi! Vous avez choisit "\s" in "\s" !\n',req.file,req.drawer)
  14.       ELSE
  15.         WriteF('Dur, Hein ?\n')
  16.       ENDIF
  17.       FreeFileRequest(req)
  18.     ELSE
  19.       WriteF('Ne peut ouvrir la requête de fichier !\n')
  20.     ENDIF
  21.     CloseLibrary(aslbase)
  22.   ELSE
  23.     WriteF('Ne peut ouvrir l'asl.library!\n')
  24.   ENDIF
  25. ENDPROC
  26.