home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / E / TFF-A32R.LZX / AmigaE3.2a / PdSrc / oomodules / reqtools_test.e < prev    next >
Encoding:
Text File  |  1996-08-29  |  571 b   |  27 lines
  1. MODULE 'oomodules/reqtools','libraries/reqtools'
  2.  
  3.  
  4. PROC main()
  5. DEF req:PTR TO reqtools
  6.  
  7.   NEW req.new()
  8.  
  9. /*  req.ez('Nice to see ya!','Ah.|So what?',0,0,[RTEZ_REQTITLE,'Just a test',RT_REQPOS,REQPOS_POINTER])
  10.   req.string('Just enter a string:')
  11.   WriteF('\s\n',req.stringbuf)
  12.   req.string('Just enter a string:')
  13.   WriteF('\s\n',req.stringbuf)
  14.  
  15.   req.long('just enter a number:')
  16.   WriteF('\d\n', req.number)
  17.  
  18.   req.palette('just choose a colour:')
  19.   WriteF('\d\n', req.number)
  20. */
  21.  
  22.   req.file('FILE?')
  23.   WriteF('\s\n', req.filebuf)
  24.   WriteF('\s\n', req.dirbuf)
  25.  
  26. ENDPROC
  27.