home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 5 / FreshFish_July-August1994.bin / bbs / dev / amiga_e-2.1b.lha / Amiga_E-2.1b / Sources / Examples / ReqToolsDemo.e < prev    next >
Encoding:
Text File  |  1993-10-05  |  1.2 KB  |  34 lines
  1. /* Yet another demo to use other librarys from E.
  2.    Now we do some requesters from the reqtools.library.   */
  3.  
  4. MODULE 'ReqTools'
  5.  
  6. CONST FILEREQ=0,REQINFO=1
  7.  
  8. DEF colour,num=10,buf[120]:STRING,req
  9.  
  10. PROC main()
  11.   IF reqtoolsbase:=OpenLibrary('reqtools.library',37)
  12.     RtEZRequestA('Lets test that handy ReqTools library, shall we ?','Why?|Not again!|Yes! lets see that!',0,0,0)
  13.     IF (colour:=RtPaletteRequestA('Pick your colour:',0,0))=-1
  14.       RtEZRequestA('Hard to choose eh?','Damn right.',0,0,0)     /* colreq */
  15.     ELSE
  16.       RtEZRequestA('Did you really like colour \d ?','Nope|Zure!',0,[colour],0)
  17.     ENDIF
  18.     RtEZRequestA('Now for some input ...','What?',0,0,0)
  19.     RtGetLongA({num},'Enter a number:',0,0)                      /* longreq */
  20.     StrCopy(buf,'bla',ALL)
  21.     RtGetStringA(buf,100,'Enter something:',0,0)                 /* stringreq */
  22.     RtEZRequestA('Lets have that nice filerequester ...','More!more!|Boring!',0,0,0)
  23.     IF req:=RtAllocRequestA(FILEREQ,0)
  24.       buf[0]:=0
  25.       RtFileRequestA(req,buf,'Pick yo file:',0)
  26.       RtFreeRequest(req)
  27.     ENDIF
  28.     RtEZRequestA('That\as it.','Phew.',0,0,0)
  29.     CloseLibrary(reqtoolsbase)
  30.   ELSE
  31.     WriteF('Could not open reqtools.library!\n')
  32.   ENDIF
  33. ENDPROC
  34.