ロールオーバーとマウスダウンでメンバーの入れ替わるボタン用ビエイビア

---

property SpriteNum,pFirstMemberNum,pRollMemberNum,pDownMemberNum

on beginSprite me
  set pFirstMemberNum to the memberNum of sprite SpriteNum
  set pRollMemberNum to (pFirstMemberNum + 1)
  set pDownMemberNum to (pFirstMemberNum + 2)
end

on mouseEnter me
  set the member of sprite SpriteNum to member pRollMemberNum
end

on mouseWithin me
  case (the mouseDown) of
    0:
      set the member of sprite SpriteNum to member pRollMemberNum
    1:
      set the member of sprite SpriteNum to member pDownMemberNum
  end case
end

on mouseDown me
  set the member of sprite SpriteNum to member pDownMemberNum
end

on mouseLeave me
  set the member of sprite SpriteNum to member pFirstMemberNum
end

on mouseUpOutside me
  set the member of sprite SpriteNum to member pFirstMemberNum
end

on mouseUp me
  if rollOver() = SpriteNum then
    set the member of sprite SpriteNum to member pRollMemberNum
  else
    set the member of sprite SpriteNum to member pFirstMemberNum
  end if
end

---