Mobiclic 51/Mobiclic51.iso/mac/DATA/COMMUNS/MOBICLIC_MENUS.CST/00267_Script_GESTION_BTON_REPONSE_RECRE

Text File | 2003-01-30 | 606b | 39 lines

property pclic, psprite, pmember,prollName, pAction

on beginsprite me
  psprite = sprite(me.spriteNum)
  pmember = psprite.member
  pRollName = psprite.member.name&"_r"
end

on mouseUp me
  do pAction
end

on exitframe me
  go the frame
end

on mouseEnter me
  cursor 280
  psprite.member = member pRollName
end

on endsprite me
  cursor -1
end


on mouseleave me
  cursor -1
  psprite.member = pmember
end


on getpropertydescriptionList
  desc = [:]
  desc[#pAction] = [#comment: "quelle action",#format: #string,#default:" go to the frame + 1"]
  return desc
end