%
% extract next Gtext block
%
|6120 6125 !Gearing %------- Focus on Gwizard
 _Gwiz Win.Focus
%%% 1188
 5 !Gwiz.Collect
 0 !Gwiz.Index
 *gwizspur

|6125 6130 !Gearing %------- Click down in GtextLR
%
% click down in GtextLR, rightmost downmost in Gtext area
%
"GtextLR" <gwizmapd>
{
%
% stack: x y w h
%
 *gwizopck
}
{
 6010 !Gearing
} ifelse

 *gwizspur

|6130 6140 !Gearing %------- 
 *gwizspur

|6140 6144 !Gearing %------- 
 "^{End}" false sendkeys
 *gwizspur

|6144 6148 !Gearing %------- 
 *gwizspur

|6148 6150 !Gearing %------- 
 "^+{Home}" false sendkeys
 *gwizspur

|6150 6154 !Gearing %------- 
 *gwizspur

|6154 6450 !Gearing %------- 
 *gwizspur

%
% ^C
%
|6450 6460 !Gearing %------- start sending CtrlC
 @Xframe
 clipclear
 *gwizspur

|6460 6466 !Gearing %-------
 @Xframe
 *gwizspur

|6466 6468 !Gearing %-------
 @Xframe
 "^c" false sendkeys
 *gwizspur

|6468 6482 !Gearing %-------
 @Xframe
 *gwizspur

|6482 6484 !Gearing %-------
 @Xframe
 *gwizspur

|6484 6550 !Gearing %-------
 0 clipget any?
 {
  +Gwiz.Index
  4 prezero ^"__" text!bin
 }
 {
  6460 !Gearing
 } ifelse
 *gwizspur

%
% click on GcodeUp
%
|6550 6560 !Gearing %------- click on GcodeHz
 @Xframe
%
% click down on GcodeDown, then down arrow to advance cnc text
% brings focus back to Gtext lines
%
"GcodeDn" <gwizmapd>
{
%
% stack: x y w h
%
 *gwizopck
}
{
 6010 !Gearing
} ifelse

 *gwizspur

|6560 6562 !Gearing %-------
 *gwizspur
|6562 6564 !Gearing %-------
 "{Down}" false sendkeys
 *gwizspur
|6564 6576 !Gearing %-------
 *gwizspur
|6576 6578 !Gearing %-------
 *gwizspur

|6578 6080 !Gearing %-------
 _Gwiz.Index _Gwiz.Collect gt
 {
 }
 {
  6125 !Gearing
 } ifelse
 *gwizspur