%
% acceptance vectors for Machine Comm
%
page@sel
<

|MachStat
%
% 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(
">MachStat" log)(
 <
 |Initial
  "MachStat" *helpface
%
% initialize technical service operations
%
%
% start up and monitor Local Service if Photoshop running
%
  7000 !tick

 |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
%
    lockdis
    0 !JS.CompA
    0 !JS.CompB

   > not
   {
    lockdis
   } if

  |Change
   *macschng

  |MachEdit
   *macsedit

  |New
   edits?
   {
    contab
   }
   {
    *macsnewm
   } ifelse

  > pop

%
% expand specific references
%
 |Search

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

 |Save
  "SendOps('Store');"
  Help.!

 |Store
  *macsstor

 |Cancel
  noedits
  zerotab
  *reselect(

%
% done
%
 |Reject
  *nodebacr

 > pop

>

*acceptun

%
% stack: found
%