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