%
% look up the button left clicked
%
% stack: x y
%
0 !Gwiz.InBtn
"none" !Gwiz.BtnName
false !Gwiz.Within
"Spotbut" textwild
"Spotbut\" ofsnap
&_Gwiz.Amenu &"\"
"cldir" log)(
empty
{
 nextfile ?
 execing
%
% stack: x y dir seed
%
 fourth _Gwiz.BtnX
"Gx" log)(
 _Gwiz.Xradius sub lt
 {
 }
 {
  fourth _Gwiz.BtnX _Gwiz.Xradius add gt
  {
  }
  {
   third _Gwiz.BtnY
"Gy" log)(
   _Gwiz.Yradius sub lt
   {
   }
   {
    third _Gwiz.BtnY
    _Gwiz.Yradius add gt
    {
    }
    {
     dup noext Str.PostDig
"postnum" log)(
     !Gwiz.InBtn
     true !Gwiz.Within
     true ?
    } ifelse  
   } ifelse
  } ifelse  
 } ifelse

} loop
filing)
_Gwiz.Within
{
 _Gwiz.InBtn
"In Button" log)(
 <gwizbtnr> not { "none" } if
" named " log)(
 !Gwiz.BtnName
%
% act upon button click
%
 *gwizopnm

} if
%
% stack: x y
%
pop2