%
% acceptance vectors for Xhelp
%
page@sel
<
|Xhelp
%
% Extended Help vector operations
%
 wireop(
 <
%
% the Xhelp browser finishes loading and issues the Initial vector
%
 |Initial
  0 !Hier.Drag
  false view!
  *taskbket
  help@
  true Mep.Window
  "InitXhelp" *xhelperx pop

 |Tab
%
% react to the tab selection
%
  wired(
">>Tab" log)(
  <
  |Options
%
% check for first time entering
%
   wirex(
">>>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
%
    empty *enteroff
    false !Xhelp.Controls
   > not
   {
    edits?
    {
     "Tabber(2);"
    }
    {
     empty *enteroff
    } ifelse
   } if

   Help.!
   x/(>

  |New
   lockval
   newedits
   *treeofsv

  > pop
 |Cover
  help@
  *archarea *scroloff
  false !Xhelp.Controls
 |Controls
  help@
  *helparea *scroloff
  true !Xhelp.Controls
 |Tree
%
% go to tree hierarchy ops
%
  "Default" *treemang

 |Sever
%
% sever the tree branch
% save it as the pep address of this node
% this is the current tree pep, using the node parentage
% as the local pep filename within the current tree pep
%
  *severbra

 |Return
  "Desk" x!
  "Xreturn" *xhelperx
  {
   x/(>
  } if

 |Done
  edits?
  {
   "Tabber(2);" Help.!
  }
  {
   true retr!
   "DoneXhelp" *xhelperx
   {
    x/<<
   } if
  } ifelse

  |Back
%
% go back one level
%
   edits?
   {
    "Tabber(2);" Help.!
   }
   {
%
% this is a one-level retreat
%
    zerotab
    false retr!
    "BackXhelp" *xhelperx
    {
     x/<<
    } if
   } ifelse

 |Save
%
% copy node without children, not using xml content of that node
%
   *treebufr
   _\ @^Copy_ pop

  wired( _TLNODERELATION_NEXT _\ @^AddTo
  select*
  nod@
  *noeditor
  *untabber

 |Cancel
  *treeofld
  *noeditor
  *untabber
  sel@
  select*
  
 > pop

>

*acceptun

%
% stack: found
%