ブラウザを起動して指定のULRを表示する。

---

property SpriteNum,pTargetURL,pWhichEvent

on beginSprite me
  
end

on GoToURL me
  goToNetPage pTargetURL
end

on exitFrame me
  if pWhichEvent = #exitFrame then GoToURL(me)
end

on mouseDown me
  if pWhichEvent = #mouseDown then GoToURL(me)
end

on mouseUp me
  if rollOver() <> SpriteNum then exit
  if pWhichEvent = #mouseUp then GoToURL(me)
end

on getPropertyDescriptionList
  set propList to [:]
  addProp propList,#pTargetURL,[#comment:"どのURLですか:",#format:#string,#default:""]
  set myList to [#mouseUp,#mouseDown,#exitFrame]
  addProp propList,#pWhichEvent,[#comment:"どのイベントで:",#format:#symbol,#range:myList,#default:#mouseUp]
  
  return propList
end

---