%
% acceptance vectors for Instruction editing
%
sel@

_Ent.Page
<

|Instruct

 Ent._E3
">Instruct " log()
 <
 |Initial
  rootnode
  _\ Task.!Select
  *phocuntb
%
% chain to next command (items on stack)
%
"instrak1 " count - & logs
  *chaining(
  "Instruct" *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);"
    0 !JS.CompA
    0 !JS.CompB

   > not
   {
    *noedoff1
   } if

   Help.!

  > pop

 |LayerIns
  *deskfrnt
  *layrtred(

 |Help
  "Instruct" !Help.Url
  *xhelstar

 |Checkbox

 |DelAll

 > pop

>

*acceptun

%
% stack: found
%