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