Target
"wrong-button"
{}
{ /ClientUp { 
    currentcursorlocation [(Wrong)(button!)] popmsg 
  } def
  /ItemPath {rr} def }