%
% acceptance vectors for Glean tree
%
sel@

_Ent.Page
<

|Glean
%
% 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
">Glean " log()
 <
 |Initial
  "Glean" *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()

 |Reject

 |UtilityA
%
% load Glean#Work with the list of Robot text files
%
%
% initialize the target Tree container
%
  true "Glean#Targets" *treeacts
  *loadmark
%
% load all Tree references
%
% stack: empty
%
  *firetree

 |Help
  "Glean" !Help.Url
  *xhelstar

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

 |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
%