global gLDMNum
property pLocH, pLocV

on mouseEnter
  tell the stage to tell Sprite(gLDMNum) to sprite(20).loc = point(pLocH, pLocV)
end

on mouseLeave
  tell the stage to tell Sprite(gLDMNum) to sprite(20).loc = point(-100, -100)
end






on getPropertyDescriptionList me
  pdlist = [:]
  addprop pdlist, #pLocH, [#comment:"locH:", #format:#integer, #default:0]
  addprop pdlist, #pLocV, [#comment:"locV:", #format:#integer, #default:0]
  return pdlist
end getPropertyDescriptionList