home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1999 January / WPCJAN99.ISO / DXRS / Buyers01.dxr / Internal_10.ls < prev    next >
Encoding:
Text File  |  1998-11-09  |  424 b   |  13 lines
  1. on CreateListOfOptions v1
  2.   global listOfSelectedReviews, categoryType
  3.   set categoryType to v1
  4.   set the member of sprite 46 to member (v1 && "pic")
  5.   set nLines to the number of lines in field (v1 && "list")
  6.   set listOfSelectedReviews to []
  7.   repeat with l = 2 to nLines
  8.     put "****" && v1 && "list"
  9.     set nameOfProduct to line l of field (v1 && "list")
  10.     add(listOfSelectedReviews, nameOfProduct)
  11.   end repeat
  12. end
  13.