%
% acceptance vectors for Listener code
%
sel@

_Ent.Page
<

|LuqOut

 Ent._E3
">LuqOut " log()
 <
 |Initial
%%%  "Listener" *helpface
  Ent._E4
dup logs
  pop

 |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);"
%
% change the Steps setting
%
   > not
   {
    *noedoff1
   } if
   Help.!

  |Change
   root?
   {
    *untabber(
   }
   {
    *jspmchng
   } ifelse

  |JsxEdit
   *jspmedit

  |Vary
   "Vary" \_ zeronull dup !Listen.Vary
   ^"ChangeV(" &");"
   "Steps" \_ zeronull dup !Listen.Steps
   ^"ChangeS(" &");"
   &
   Help.!

  |Delete

  > pop

 |RunS
  Ent._E4 unescape dup !Listen.Vary
  "Vary" \!
  Ent._E5 unescape dup !Listen.Steps
  "Steps" \!
  Tree.Changed
%
% run the experiment
%
  *lstnrunk

 |SaveV
  Ent._E4 unescape dup !Listen.Vary
  "Vary" \!
  Ent._E5 unescape dup !Listen.Steps
  "Steps" \!
  Tree.Changed

 |CancelV
  *untabber

 |Clear
  *lstncler

 |Listen
  *listener

 |Stop
  *lstnstop

 |Cancel
  empty !Edits
  "Jdone(false);Tabber(0);"
  Help.!
  *reselect(

 |Restore
  *treeofld

 |DelStep
  *treedeln
  *untabber(

 |DelAll
  Tree.Off
  0 Tree./Below
  rootnode
  select*
  Tree.On
  Tree.Changed
  *untabber(

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

 |Save
  "Jdone(true);SendOps('Store');"
  Help.!

 |Store
  *jspmstor

 |Help
  "Listener" !Help.Url
  *xhelstar

 > pop

>

*acceptun

%
% stack: found
%