%
% acceptance vectors for Jsx master tree
%
sel@

_Ent.Page
<

|Jmast
%
% 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
">Jmast " log()
 <
 |Initial
  false !JS.Force
  "JsGroups" *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);"

   > not
   {
    *noedoff1
   } if

   Help.!

  |New
   "SetVed(false,true);" Help.!
   -1 !Edits

  > pop

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

 |Expand
  *jsphexpa

 |Help
  "JsGroups" !Help.Url
  *xhelstar

 |LintAll
  _Linting not dup !Linting
  {
   false !App.Logging
   *jsphalls
  }
  {
   true !App.Logging
  } ifelse

 |Tree
  hide
%
% spaces interpreted as hierarchy seps
% edit the requested tree
%
  "Pshop Ytools" *treemang

 |Wide
  _\ positive
  {
   *jspmdjsx
   read
   !JsEditing
   "cmirarea" "jsedit.html" *archcmir
  }
  {
  } ifelse

 |Reject

 |Save
  rootnode select*
  Ent._E4 unescape "#" Str.RevRight newchild
  select*
  Tree.Changed
  *noeditor
  *untabber(

 |Cancel
  "SetVed(true,true);Tabber(0);"
  Help.!
  *noeditor

 > pop

>

*acceptun

%
% stack: found
%