home *** CD-ROM | disk | FTP | other *** search
/ Cocktail Hour / image.iso / COCKTAIL.DIR / objects_64_mouseDown.ls < prev    next >
Encoding:
Text File  |  1997-03-05  |  731 b   |  18 lines
  1. on mouseDown
  2.   global ShoppingLine
  3.   repeat while the mouseDown
  4.     set MaxLines to the number of lines in the text of member "shop2"
  5.     set y to the height of member "shop1" / MaxLines
  6.     set MaxLines to y * (MaxLines - 10)
  7.     if the scrollTop of member "shop1" < (MaxLines - 9) then
  8.       set the foreColor of field "shop2" to 204
  9.       set the foreColor of field "shop2temp" to 204
  10.       set the text of field "shop1temp" to line ShoppingLine to ShoppingLine + 9 of field "shop1"
  11.       set the text of field "shop2temp" to line ShoppingLine to ShoppingLine + 9 of field "shop2"
  12.       set ShoppingLine to ShoppingLine + 1
  13.       scrollByLine(member "shop1", 1)
  14.       scrollByLine(member "shop2", 1)
  15.     end if
  16.   end repeat
  17. end
  18.