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

Text File | 1997-12-17 | 362 b | 21 lines

on mouseEnter me
  cursor(280)
end

on mouseLeave me
  cursor(-1)
end

on mouseDown me
  puppetSprite(the currentSpriteNum, 1)
  set the member of sprite the currentSpriteNum to "downedy.down"
  repeat while the mouseDown = 1
    scrollByLine(member "description", 1)
    updateStage()
  end repeat
end

on mouseUp me
  puppetSprite(the currentSpriteNum, 0)
end