%
% acceptance vectors for Xhelp markdown
%
page@sel
<

|Arching
 wireop(
">Arching" log)(
 <
 |Initial
  true view!
  *taskbket "FieldDefs()" Url.!
  helpup
  "InitView" x/act

 |Accept

 |Reject
  wired*
  "DoneView" x/act?
  {
   true retr!
   x/<<
   false view!
  } if

 |Back
  wired*
  "BackView" x/act?
  {
   false retr!
%
% make sure downstream task and xhelp sizing is correct
%
   *xhelback
  } if

 |Tree
  noedits?
  {
   "TreeView" x/act?
   {
    empty !Help.Url *xhelnorm
   } if
  } if
 |SeeStd
  Ent._E4 unescape
  *archnavs

 |Edit
  "editepid.html"
  help@
  "NavLocal" *helpists
  "EditView" x/act
 |SaveStd
/*
  Ent._E4 unescape
  ^"marked\" ofcore
  &".html"
  "arching.html" ofcore exch copyfile
*/
  *autosave

 |EscKey
  wired*
  "EscView" x/act?
  {
   x/<<
   false view!
  } if

 |Xit
%
% place any field values back in the previously selected
% tree node
%
  _\
  root\ _\ select
  wired*
  selnode

 |Fields
%
% track the values within the xhelp page
%
  *archfeld
%
% send the setting javascript
%
  help@
  _setters
  Url.!
 > not
 {
%
% this is an extended operation for the marked viewer
%
  "Xop" x/act?
  {
   wired*
   wireop( *operator
  } if
 } if

>

*acceptun

%
% stack: found
%