home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1998 July / WPCJUL98.ISO / DXRS / BUYERS07.DXR / Internal_10.ls < prev    next >
Encoding:
Text File  |  1998-05-11  |  393 b   |  12 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.     set nameOfProduct to line l of field (v1 && "list")
  9.     add(listOfSelectedReviews, nameOfProduct)
  10.   end repeat
  11. end
  12.