%
% acceptance vectors for Fire code
%
page@sel
<

|Rstruct
%
% Run Tree 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(
">Rstruct" log)(
 < 
 |Initial
  "RunTree" *helpface

 |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
%
% set the display name of the node being edited
% fill the Name field
%
    empty *enteroff

   > not
   {
    *noedoff1
   } if

   Help.!

  |Change
   root?
   {
    *untabber
   }
   {
    *jspmchng
   } ifelse

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

  > pop

%
% expand specific references
%
 |Expand
%%%  *jsphexpa

 |Search
  _@ !Values.SearchA
  "Body" !Values.SearchC
  "Search" vector()

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

%
% advanced tree operations
%
 |Tree
  hide
%
% spaces interpreted as hierarchy seps
% edit the requested tree
%
  "Run Targets" *treemang

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

 |Store
  *jspmstor

 |Cancel
  empty !Edits
  zerotab
  *reselect(

%
% done
%
 |Reject
  *nodebacr

%
% set compare anchor A
%
 |AnchorA
  *fanchora

%
% set compare anchor B
%
 |AnchorB
  *fanchorb

 > pop

>

*acceptun

%
% stack: found
%