home *** CD-ROM | disk | FTP | other *** search
/ 3D World 110 / 3DW_110.iso / mac / Menu / Scenes / home.dir / 00085_Script_galleryThumb < prev    next >
Text File  |  2008-09-12  |  666b  |  30 lines
  1. property sp
  2. property myImage
  3. property myPath
  4. global gRootPath
  5. global gDiv
  6.  
  7. on init me, aSpriteChannel, anImageMemberNumber, galleryPath
  8.   sp = sprite(aSpriteChannel)
  9.   myImage = anImageMemberNumber
  10.   myPath = galleryPath
  11.   sp.blend = 70
  12. end
  13.  
  14. on mouseEnter me
  15.   sp.blend = 100
  16.   cursor 280
  17. end
  18.  
  19. on mouseLeave me
  20.   sp.blend = 70
  21.   cursor -1
  22. end
  23.  
  24. on mouseUp me
  25.   put member(myImage, "images").name
  26.   put gRootPath & gDiv & "menu" & gDiv & "scenes" & "FullImage.dir"
  27.   imageWindow = window().new(gRootPath & "menu" & gDiv & "scenes" & gDiv & "DisplayFullImage.dir")
  28.   imageWindow.open()
  29.   imageWindow.movie.DisplayImage(myImage, myPath)
  30. end