%
% acceptance vectors for Left Bar (editor version) indicators
%
page@sel
<
|Editor
 *editxlat
 <
 |Initial
  *defeditr
  "E" *editgrin
  false !Edit.Full
%
% initialize editor operations
%
  *edtrinit
  *leftbred
%%%  *taskbkeu(

%
% chain to next command (items on stack)
% continue with chain of startup since this editor has started
%

 |Ready
  false !Presel
  "PvwNone()"
%%% Base.!
  Edit.!
  editoff
  5426 !tick
%%%  true !Edit.Resume

 |Changed
%
% cable(|strand(|wireop(|wired(|wirex(|wirex2(|wirex3(|wirex4(
%               _Changed changed emode origval newval
  true !Nx;

 |Moded
%
% cable(|strand(|wireop(|wired(|wirex(|wirex2(|wirex3(|wirex4(
%               Moded   changed emode  origval  newval
  wirex(
"edmode" log)(
  !Nx=
  "Load" *nexushub

 |Saved
%
% the save has been made to the BasicData.NewValue
% cable(|strand(|wireop(|wired(|wirex(|wirex2(|wirex3(|wirex4(
%                save  changed  emode  origval  newval
%
% mark the changed state
% only process a save to the tree if changed flag present
%
  wired( true? !Nx;
  _Nx;
"nxchgd" log)(
  {
   wirex3( wirex(
%
% initiate the final Save to Nexus
%
   "Save" *nexushub
  } if
%%%  "Preview" *nexushub
%%%  *edtrprvx(
  editoff

%%%  "C" !Help.Group *leftbrop

 >
 {
%
% command processed
%
 }
 {
%
% command not processed, interrogate current group of left bar
%
  *editgriq
 } ifelse

|Preview

 wireop(
">Preview" log)(
 <
 |Initial
  false !Presel
%
% green check acceptance
%
 |Accept
  "PvwNone()"
  _Edit.Enabled
  {
   dup Edit.!
   editoff
  } if
  Base.!
  
  false !Presel
 > pop

>

*acceptun

%
% stack: found
%