MacAddict 19/MacAddict_019_1998_03.iso/Media/STORE.dxr/Internal_47_scrollDown.ls

Text File | 1997-12-17 | 346 b | 20 lines

on mouseDown me
  puppetSprite(the currentSpriteNum, 1)
  set the member of sprite the currentSpriteNum to "scrollDown.press"
  repeat while the mouseDown = 1
    scrollByLine(member "indexList", 1)
  end repeat
end

on mouseUp me
  puppetSprite(the currentSpriteNum, 0)
end

on mouseEnter me
  cursor(280)
end

on mouseLeave me
  cursor(-1)
end