home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 July / Chip_1998-07_cd.bin / zkuste / mazda / mazIn311.dxr / Internal_8_UI Rollover Change Member.ls < prev    next >
Encoding:
Text File  |  1998-05-06  |  1.5 KB  |  36 lines

  1. property standardImage, alternateImage, nextCM
  2.  
  3. on mouseEnter me
  4.   set the member of sprite the spriteNum of me to the alternateImage of me
  5. end
  6.  
  7. on mouseLeave me
  8.   set the member of sprite the spriteNum of me to the standardImage of me
  9. end
  10.  
  11. on beginSprite me
  12.   set the standardImage of me to the member of sprite the spriteNum of me
  13.   if nextCM = 1 then
  14.     set memref to the member of sprite the currentSpriteNum
  15.     set castLibNum to the castLibNum of memref
  16.     set memdefault to member (the memberNum of member memref + 1) of castLib castLibNum
  17.     set alternateImage to memdefault
  18.   end if
  19. end
  20.  
  21. on getPropertyDescriptionList
  22.   if the currentSpriteNum = 0 then
  23.     set memdefault to 0
  24.   else
  25.     set memref to the member of sprite the currentSpriteNum
  26.     set castLibNum to the castLibNum of memref
  27.     set memdefault to member (the memberNum of member memref + 1) of castLib castLibNum
  28.   end if
  29.   set p_list to [#nextCM: [#comment: "Use Next Member:", #format: #boolean, #default: 1], #alternateImage: [#comment: "Rollover Cast Member:", #format: #graphic, #default: memdefault]]
  30.   return p_list
  31. end
  32.  
  33. on getBehaviorDescription
  34.   return "Change the sprite's cast member when the mouse rolls over the current sprite." & RETURN & "PARAMETERS:" & RETURN & "ΓÇó Use Next Member - Turn this option on to automatically display the next cast member in the cast when mouse rolls over the sprite." & RETURN & "ΓÇó Rollover Cast Member - Choose a specific cast member to appear when the mouse rolls over the sprite. This setting is ignored if Use Next Member is on."
  35. end
  36.