%
% acceptance vectors for Fire code
%
sel@

_Ent.Page
<

|Gleaned
%
% Jsx editing 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
%
 Ent._E3
">Gstruct " log()
 <
 |Initial
  "FireVisual" *helpface

 |Tab
%
% react to the tab selection
%
  Ent._E4 trim
">>Tab " log()
  <
  |Options
%
% check for first time entering
%
   Ent._E5 trim
">>>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
%
    "SetVed(true,true);"
    0 !JS.CompA
    0 !JS.CompB

   > not
   {
    *noedoff1
   } if

   Help.!

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

  |New
   _Edits any)?
   {
    "Tabber(1);"
    Help.!
   }
   {
    *jspmnewm
   } ifelse

  > pop

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

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

%
% invoke Xhelp
%
 |Help
  "FireVisual" !Help.Url
  *xhelstar

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

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

 |Store
  *jspmstor

 |Direct

 |Cancel
  empty !Edits
  "Tabber(0);"
  Help.!
  *reselect(

%
% done
%
 |Reject
  *nodebacr

%
% set compare anchor A
%
 |AnchorA
  *fanchora

%
% set compare anchor B
%
 |AnchorB
  *fanchorb

 > pop

>

*acceptun

%
% stack: found
%