--
-- Basic sprite rollover
-- Ken Loge - http://diginoodles.com
--

property pOrigMember -- the original cast member of the sprite
property pSwapMember -- the cast member to use for the rollover

on beginSprite me
  pOrigMember = sprite(me.spriteNum).member
end

on getPropertyDescriptionList me
  list = [:]
  addProp list, #pSwapMember, [#comment: "Cast member to swap on rollover:", #format: #bitmap, #default: ""]
  return list
end

on mouseEnter me
  sprite(me.spriteNum).member = member(pSwapMember)
end

on mouseLeave me
  sprite(me.spriteNum).member = member(pOrigMember)
end