为什么定位器在此动态图形中看起来是半透明的？

Question

我想在图形上定位一个定位器，并根据鼠标位置更新其位置。以下是一些示例代码：

Show[{
  Graphics[{Yellow, Rectangle[]}], 
  Graphics[Dynamic[
     With[{pt = MousePosition[{"Graphics", Graphics}]}, 
        { If[pt===None, ,Locator[pt^2]], Text[pt, {0,0}, {-1,-1}] }
     ]
  ]]
  }, PlotRange -> {{-.2, 1.2},{-.2, 1.2}}]

奇怪的是，有时定位器会正常显示，有时会显示半透明度。当我移动鼠标时，它会从正常变为半透明。

为什么会这样，我该怎么做才能解决它？

我在OSX上使用Mathematica 8。