%
% get the mouse track, keep tracking
%
% stack: mouse-track-str
%
"mtrack" log)(
dup !Gwiz.Mtrack
_Gwiz.Active
"gwact" log)(
{

 execstr !Gwiz.Mchg !Gwiz.Mrb !Gwiz.Mlb
 !Gwiz.BtnY !Gwiz.BtnX
 _Gwiz Win.IsZoomed
"gwzoom" log)(
 {
  _Gwiz.Mchg _Gwiz.Mrb zero not and
  {
"right" log#
   _Gwiz.Mtrack &" *gwizbutn" &; ^:Gwiz.Track
   _Gwiz.Track "_Gwiz" text!bin
  } if

  _Gwiz.Mchg _Gwiz.Mlb zero not and
  {
"left" log#
   *gwizbdet
  } if
 } if
}
{
%
% Gwizard not active
%
 pop
} ifelse