%
% acceptance vectors for Machine Comm
%
page@sel
<
|Machine
%
% machine and program code vector operations
% note that the case for the first tab is derived from the tab # in E4
% to derive startup, use a separate lookup for prior tab 'name' in E5
%
 wireop(
">Machine" log)(
 <
 |Initial
  "Machine" *helpface
%
% initiate status iframe
%
  "machs.html"
  *helparea perscreen
  "Machs"
  -1
%
% stack: navurl x y w h mep-name mep-slot
%
  this)
  *navformn
%
% stack: x y w h navroot
%
  local ^
%
% stack: x y w h nav-url
%
  *navformo
  0 !Msys.Images
 
 |Tab
%
% react to the tab selection
%
  wired(
">>Tab" log)(
  <
  |Options
%
% check for first time entering
%
   wirex(
">>>Options" log)(
   <
   |-1
%
% this is startup, the first time form loaded
% user selects the desired path from here
%
   > not
   {
    *machtabs
    {
     *machmoff
    } if
   } if

  |Change
   *machtabs
   {
    *machchng
   } if

  |New
   *machtabs
   {
    *machnewm
   } if

  |Upload
   *machtabs
   {
    0.6 1.0 0.6 0.6 *machindy
    "The icon with the gold arrow, sends the program:" &;
    &_Program
    *machcomu
    *machinsh
   } if

  |Download
   *machtabs
   {
    0.6 0.6 1.0 0.6 *machindy
    "The icon with the gold arrow, receives the program:" &;
    &_Program
    *machcomu
    *machinsh
   } if
  |Listen
   *machtabs
   {
    0.6 0.6 0.6 1.0 *machindy
    "The first icon listens and reports." &;
    *machcomu
    *machinsh
   } if
  > pop

 |PartCheck
  *machrepa

 |Show
  *machinsh

%
% expand specific references
%
 |Search

 |Delete
  *machmoff(
  _\ dup positive
  {
   Mep.Remove
   @@
   "Load" *persists
  }
  {
   pop
  } ifelse
  noedits

 |SelProg
  fork@)?
  {
%
% viewing based on sub-tree
%
   newedits?
   {
    *machpsel
   }
   {
    root?
    {
    }
    {
     *machpsel
    } ifelse
   } ifelse
  }
  {
%
% viewing based on master tree
%
  } ifelse

%
% invoke Xhelp
%
 |Help
  "Machine" x!/*

 |Save
  *machstor

 |GetProg
  *machpsav

 |Cancel
  noedits
  *machmoff
  *reselect(

 |PartShow
  *machpash

 |PartEn
%
% enable partner global uarts flag
%
  *machenpa

 |PartRe
  *machenre

 |PartTo
  *machento

 |PartFr
  *machenfr

 > pop

>

*acceptun

%
% stack: found
%