home *** CD-ROM | disk | FTP | other *** search
/ 3D World 110 / 3DW_110.iso / mac / Menu / Scenes / DisplayFullImage.dir / 00004_Script_MouseScroll < prev   
Text File  |  2006-09-06  |  493b  |  41 lines
  1. global pOffset
  2. property origin
  3. global pDrag
  4. property Sp
  5.  
  6. on beginsprite me
  7.   pDrag = false
  8.   Sp = sprite(me.spritenum)
  9.   pOffset = point(0,0)
  10.   origin = point(0,0)
  11. end
  12.  
  13.  
  14. on mouseWithin me
  15.   cursor 260
  16. end
  17.  
  18. on mouseLeave me
  19.   cursor -1
  20. end
  21.  
  22. on mouseDown me
  23.   origin = the mouseLoc
  24.   pDrag = true
  25. end
  26.  
  27. on mouseUp me
  28.   pDrag = false
  29.   pOffset = Sp.loc
  30. end
  31.  
  32.  
  33. on exitframe me 
  34.   if (pDrag) then
  35.     Sp.loc = pOffset + (the mouseLoc - origin)
  36.   end if
  37. end
  38.  
  39.  
  40.  
  41.