%
% stack: mousex mousey allw allh
%
% stack: eventx eventy viewerw viewerh
%
  !Pho.Vh
  !Pho.Vw
  !Pho.Ey
  !Pho.Ex
%
% replicate the click on the local screen
%
  _Pho.Ex _Pho.DiffX sub !ux
  _Pho.Ey _Pho.DiffY sub !uy

  _ux
  _Pho.Mul div normint
  _xglo add

  _uy
  _Pho.Mul div normint
  _yglo add

%
% stack: screen-x screen-y
%
  Win.Click