%
% acceptance vectors for Listen groups
%
sel@

_Ent.Page
<

|Lgroup

 Ent._E3
">Lgroup " log)(
 <
 |Initial
  "ListenGroups" *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
%
    "SetVed(true,true);"

   > not
   {
    *noedoff1
   } if
   Help.!

  |Change
   *untabber(

  |JsxEdit
   *untabber(

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

  |Delete

  > pop

 |Cancel
  "SetVed(true,true)" zerotab&
  Help.!
  *noeditor

 |Restore
  *treeofld

 |Tree
%
% spaces interpreted as hierarchy seps
% edit the requested tree
%
  "Default Target" *treemang

 |Save
  root\ select*
  Ent._E4 unescape "#" Str.RevRight newchild

  select*
  nod@
  *untabber(

%
% see if this is a 'new' save
%
  sel@
  _Edits negative
  *noeditor
  {
   *lstnatna
  }
  {
  } ifelse

 |DelStep
  *treedeln
  *untabber(

 |DelAll
  Tree.Off
  *unrootch
  select*
  Tree.On
  nod@
  *untabber(

 |Help
  "ListenGroups" !Help.Url
  x/*

 > pop

>

*acceptun

%
% stack: found
%