home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 5 / FreshFish_July-August1994.bin / bbs / util / reqtools-2.2b.lha / ReqTools-2.2b / RexxReqTools / Examples / MultiSelect.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1993-07-07  |  622 b   |  26 lines
  1. /* MultiSelect.rexx
  2.  * Demonstrates multiselect
  3.  *
  4.  * NOTE: `,' is a continuation character for statements that must be entered
  5.  *       on several source lines!!
  6.  */
  7.  
  8. NL = '0a'x
  9.  
  10. call addlib("rexxreqtools.library", 0, -30, 0)
  11.  
  12. call rtezrequest("This is an example of a" || NL ||,
  13.                  "multiselect filerequester.", "Show me")
  14.  
  15. call rtfilerequest(, , "Pick some files", , "rtfi_flags=freqf_multiselect",files)
  16.  
  17. if files == 1 then
  18.   do
  19.     say "You selected" files.count "files"
  20.     do i=1 to files.count
  21.       say "  file" i || ":" files.i
  22.     end
  23.   end
  24. else
  25.   call rtezrequest("You picked no files.", " No ")
  26.