%
% acceptance vectors for Js code editing
%
sel@

_Ent.Page
<

|JsEdit
%
% 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
%
 Ent._E3
">JsEdit " log()
 <
 |Initial
  "JsEdit" !Help.Url
  *taskbket
  _JsEditing
  *enterval
  "Body"
  *entervan
  &
  &"JsValue();"
  @Arching
  _App.Zoom "Zoomer" do
  Url.!
  true Mep.Window

 |Save
  "Jdone(true);SendOps('Store');"
  @Arching Url.!

 |Store
  _prevhelp .!_Helper
  _@ _JS.Prefix eq$
  {
   Ent._E5 unescape
   *jspmdjsx
"wides " log()
   write
  }
  {
   *jspestor
  } ifelse
  @Arching
  hide

 |Cancel
  Task.@
  _prevhelp .!_Helper
  @Arching
  hide

 |Help
  "JsEdit" !Help.Url
  *xhelstar

 > pop

>

*acceptun

%
% stack: found
%