home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
AMIGA PD 1
/
AMIGA-PD-1.iso
/
Programme_zum_Heft
/
Programmieren
/
Kurztests
/
ACE
/
Prgs
/
Library
/
reqtools.b
< prev
Wrap
Text File
|
1994-09-18
|
996b
|
36 lines
'..An example of using reqtools.library functions.
'..(reqtools.library must be in your LIBS: directory
'..for this program to work). ReqTools.bmap is also
'..required and has been supplied in ACEbmaps:.
#include <stddef.h>
#include <reqtools.h> '..Thanks Nisse!
LIBRARY "reqtools.library"
DECLARE FUNCTION rtAllocRequestA& LIBRARY
DECLARE FUNCTION rtEZRequestA& LIBRARY
DECLARE FUNCTION rtFileRequestA& LIBRARY
DECLARE FUNCTION rtFreeRequest& LIBRARY
DECLARE STRUCT rtReqInfo *myreq
DECLARE STRUCT rtFileRequester *filereq
'..Message Requester
myreq = rtAllocRequestA(RT_REQINFO,NULL)
dummy$ = "This is a really"+CHR$(10)
dummy$ = dummy$ + "neat message"+CHR$(10)
dummy$ = dummy$ + "requester!"
button$="Sure|Perhaps|No way"
ret = rtEZRequestA(dummy$,button$,NULL,NULL,NULL)
rtFreeRequest(myreq)
'..File Requester
STRING fileBuffer
filereq = rtAllocRequestA(RT_FILEREQ,NULL)
rtFileRequestA(filereq,fileBuffer,NULL,NULL)
rtFreeRequest(filereq)
print "You chose: " fileBuffer
LIBRARY CLOSE