%
% Nexus transaction hub ops
%
% stack: nexus-op
%
<
%
% get the nexus filename of type
%
|File
  _Nx@ 1 left
%%% "nxat" log)(
  <
  |,
%
% this is a CNC/Gwiz based nexus
%
   *nexusfil

  |@
%
% this is a tree based nexus
%
   (@@
%
% change focus to the tree being edited and set node
%
   *nexusenv
%
% get value associated with the current edit mode
%
   hierpath !Nx*
   *nexusfil
   exch )@
  > not
  {
%
% is a file type
%
   *nexusfil
  } if

%
% stack: nexus-raw
%

%
% get the nexus file data of type
%
|Get
 "File" *=
 read

|ReSize
%
% insure all components resize to new coords and dims
%
% stack: area-vec
%
 *helplocx
 *
 @Help
 *browdims
 baseon

|Insure
%
% insure prior data contents not changed
%
 _Nx;
 {
%
% prior contents changed, first step of save
%
  "Insure" *nexusrun
 }
 {
 } ifelse

|Show
 *edtrshow

|Hide
 *edtrhide

%
% change the mode and therefore the context associated
% with the current Nexus - Nx @ \ =
%
|Mode
%
% insure prior data contents not changed
%
 _Nx;
 {
%
% prior contents changed, first step of save
%
  "Mode" *nexusrun
 }
 {
%
% set the new editing mode
%
  "ModeSetter(" _Nx= quo&jspend
%%% Base.!
  Edit.!
 } ifelse

%
% load the current Nexus and proceed to preview
%
|LoadView
%
% insure prior data contents not changed
%
 _Nx;
 {
%
% prior contents changed, first step of save
%
  "LoadView" *nexusrun
 }
 {
  "Load" *=
%
% invoke Nexus preview
%
%%%  "Preview" *=

 } ifelse

%
% load the markup file associated
% with the current Nexus - Nx @ \ =
%
|Load
%
% insure prior data contents not changed
%
 _Nx;
 {
%
% prior contents changed, first step of save
%
  "Load" *nexusrun
 }
 {
  false !Nx;
  _Nx@ 1 left
%%% "nxat" log)(
  <
  |,
%
% this is a CNC/Gwiz based nexus
%
   *nexusflb

  |@
%
% this is a tree based nexus
%
   (@@
%
% change focus to the tree being edited and set node
%
   *nexusenv
%
% edit body value associated with the current edit mode
%

   "Load" *nexustre
   *edtrsetb
   *nexuschg

   )@
  > not
  {
%
% is a file type
%
   *nexusflb
  } if
 } ifelse

|Cancel
%
% initiate save in help
%
 false !Nx;
 'Cutton("Cancel")'
%%% Base.!
 Edit.!

|Saving
%
% initiate save in help
%
 'Cutton("Accept")'
%%% Base.!
 Edit.!

|Save
%
% stack: new-content edit-mode
%
% new content with possibly new mode
%
 !Ny=
dup ^"ny " logs
 !Ny()
 _Ny@ 1 left
"nysv" log)(
 <
 |,
%
% this is a CNC/Gwiz based nexus
%
  
  *nexusflw

 |@
%
% this is a tree based nexus
%
  (@@
  *nexusenw
  "Save" *nexustre
%
% save has completed, move on with any extended step
% execute any extended process
%
  )@

 > not
 {
%
% this is a file based nexus write
%
  *nexusflw
 } if

 false !Nx;
 _Nx:
%%% "nx:" log)(
 {
  _Nx::
%%% "Nxvector" log)(
  execstr
  false !Nx:
  empty !Nx::
 } if

|Preview

%
% insure prior data contents not changed
%
 _Nx;
%%% "nx;" log)(
 {
%
% prior contents changed, first step of save
%
  "Preview" *nexusrun
 }
 {

  _Nx@ 1 left
"pvwnx" log)(
  <
  |,
%
% this is a CNC/Gwiz based nexus
%

  |@
%
% this is a tree based nexus
%
   (@@
   *nexusenv
   )@
  > not
  {
%
% is a file type
%
  } if

  *markprvv
 } ifelse

> pop