home *** CD-ROM | disk | FTP | other *** search
/ Media Gallery 1995 June / MG6.ISO / mg.dig / 00063.ls < prev    next >
Encoding:
Text File  |  1995-04-20  |  486 b   |  15 lines
  1. on mouseUp
  2.   global selectedproducts
  3.   set foo to getAt(the clickLoc, 2)
  4.   if (foo < 420) and (the mouseV > 60) then
  5.     set Artikel to ((foo + 7 - the locV of sprite 17) / 30) + 1
  6.     if line Artikel of field "Hiliteliste" = " " then
  7.       put "x" into line Artikel of field "Hiliteliste"
  8.       append(selectedproducts, Artikel)
  9.     else
  10.       put " " into line Artikel of field "Hiliteliste"
  11.       deleteAt(selectedproducts, getOne(selectedproducts, Artikel))
  12.     end if
  13.   end if
  14. end
  15.