home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 3 / goldfish_volume_3.bin / files / dev / basic / ace / prgs / library / reqtools.b < prev   
Encoding:
Text File  |  1994-09-17  |  996 b   |  36 lines
  1. '..An example of using reqtools.library functions.
  2. '..(reqtools.library must be in your LIBS: directory
  3. '..for this program to work). ReqTools.bmap is also
  4. '..required and has been supplied in ACEbmaps:.
  5.  
  6. #include <stddef.h>
  7. #include <reqtools.h>    '..Thanks Nisse!
  8.  
  9. LIBRARY "reqtools.library"
  10.  
  11. DECLARE FUNCTION rtAllocRequestA& LIBRARY
  12. DECLARE FUNCTION rtEZRequestA& LIBRARY
  13. DECLARE FUNCTION rtFileRequestA& LIBRARY
  14. DECLARE FUNCTION rtFreeRequest& LIBRARY
  15.  
  16. DECLARE STRUCT rtReqInfo *myreq
  17. DECLARE STRUCT rtFileRequester *filereq
  18.  
  19. '..Message Requester
  20. myreq = rtAllocRequestA(RT_REQINFO,NULL)
  21. dummy$ = "This is a really"+CHR$(10)
  22. dummy$ = dummy$ + "neat message"+CHR$(10)
  23. dummy$ = dummy$ + "requester!"
  24. button$="Sure|Perhaps|No way"
  25. ret = rtEZRequestA(dummy$,button$,NULL,NULL,NULL)
  26. rtFreeRequest(myreq)
  27.  
  28. '..File Requester
  29. STRING fileBuffer
  30. filereq = rtAllocRequestA(RT_FILEREQ,NULL)
  31. rtFileRequestA(filereq,fileBuffer,NULL,NULL)
  32. rtFreeRequest(filereq)
  33. print "You chose: " fileBuffer
  34.  
  35. LIBRARY CLOSE
  36.