%
% acceptance vectors for Themes
%
page@sel
<

|Themes
%
% Jsx editing vector operations
% note that the case for the first tab is derived from the tab # in E4
% to derive startup, use a separate lookup for prior tab 'name' in E5
%
 wireop(
">Themes" log)(
 <
 |Initial
  "Themes" *helpface

 |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
%
   > not
   {
   } if
   lockdis

  |Change
   root?
   {
    zerotab
   }
   {
    *jspmchng
   } ifelse

  |JsEdit
   *jspmedit

  |New
   edits?
   {
    contab
   }
   {
    *jspmnewm
   } ifelse

  > pop

%
% expand specific references
%
 |Expand

 |Search
  _@ !Values.SearchA
  "Body" !Values.SearchC
  "Search" vector()

%
% invoke Xhelp
%
 |Help
  "JsCode" x!/*

%
% Lint all
%
 |LintAll
  _Linting not dup !Linting
  {
   false !App.Logging
   *jsphalls
  }
  {
   true !App.Logging
  } ifelse

%
% Lint the individual function
%
 |Lint
  sel@
  *jsphlint

%
% advanced tree operations
%
 |Tree
  hide
%
% spaces interpreted as hierarchy seps
% edit the requested tree
%
  "Pshop Listen" *treemang

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

 |Store
  *jspmstor

 |Wide
%
% only edit non-root nodes
%
  nonroot
  {
   contab
%
% edit the current jsx text in the wide editor
%
   wirex( !JsEditing
   "cmirarea" "jsedit.html" *archcmir
  }
  {
  } ifelse

 |Cancel
  empty !Edits
  "Jdone(false)" zerotab&
  Help.!
  *reselect(

%
% done
%
 |Reject
  *nodebacr

%
% new functions from text
%
 |Functions
  wirex(
  *jspmfunx
  empty !Edits
  "Jdone(false)" zerotab&
  Help.!

%
% interpret PS symbology in code
%
 |Replace
  wirex(
  *jspmanly

%
% see Lint info
%
 |See
  *servinit
  *procserv
  *jsphiniu(

 > pop

>

*acceptun

%
% stack: found
%