home *** CD-ROM | disk | FTP | other *** search
/ 3D World 107 / 3d-world-cd-107.iso / pc / Menu / Scenes / DisplayFullImage.dir / 00004_MouseScroll.ls < prev    next >
Encoding:
Text File  |  2008-05-16  |  424 b   |  34 lines
  1. property origin, Sp
  2. global pOffset, pDrag
  3.  
  4. on beginSprite me
  5.   pDrag = 0
  6.   Sp = sprite(me.spriteNum)
  7.   pOffset = point(0, 0)
  8.   origin = point(0, 0)
  9. end
  10.  
  11. on mouseWithin me
  12.   cursor(260)
  13. end
  14.  
  15. on mouseLeave me
  16.   cursor(-1)
  17. end
  18.  
  19. on mouseDown me
  20.   origin = the mouseLoc
  21.   pDrag = 1
  22. end
  23.  
  24. on mouseUp me
  25.   pDrag = 0
  26.   pOffset = Sp.loc
  27. end
  28.  
  29. on exitFrame me
  30.   if pDrag then
  31.     Sp.loc = pOffset + (the mouseLoc - origin)
  32.   end if
  33. end
  34.